Lines Matching defs:concat
58 ( | . calc-store-concat ) ))))
64 (message (concat "Stored to variable \"%s\"" msg)
73 (message (concat "Stored to variable \"%s\"" msg)
97 (defun calc-store-concat (&optional var)
191 (let ((var (concat
197 (lambda (x) (boundp (intern (concat "var-" x)))))
290 (concat "<>" (calc-var-name var)) value))))))
325 (concat "=" (calc-var-name (car (car var))))
376 (calc-record value (concat "<" (calc-var-name var))))
408 (message (concat "Special constant \"%s\" copied to \"%s\"" msg)
424 (message (concat "Variable \"%s\" copied to \"%s\"" msg)
444 (concat "Editing variable `" (calc-var-name var) "'. "))
611 (if (search-forward (concat "(setq " (symbol-name var) " '") nil t)