diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-03-07 09:02:15 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-03-07 09:05:56 -0800 |
| commit | 3739d51ef3b935b30e40ba4534fe362bc685865f (patch) | |
| tree | ada093c6c9464828035b59a9f56f90a367b57d3a /lisp/calc/calc-store.el | |
| parent | 953cbce77be9a8da1cbf0ca5ee6442923478e186 (diff) | |
| download | emacs-3739d51ef3b935b30e40ba4534fe362bc685865f.tar.gz | |
Be safer about "%" in message formats
* lisp/calc/calc-store.el (calc-copy-special-constant):
* lisp/net/rcirc.el (rcirc-handler-PART, rcirc-handler-KICK):
* lisp/org/org-agenda.el (org-agenda):
* lisp/org/org-clock.el (org-clock-out, org-clock-display):
* lisp/org/org.el (org-refile):
* lisp/progmodes/ada-xref.el (ada-goto-declaration):
* lisp/progmodes/idlwave.el (idlwave-scan-library-catalogs):
Don’t trust arbitrary strings to not contain "%" or "`" in
(message (concat STRING1 STRING2 ...)).
Diffstat (limited to 'lisp/calc/calc-store.el')
| -rw-r--r-- | lisp/calc/calc-store.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index 589a776c413..3987c129c23 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el @@ -405,8 +405,8 @@ sconst)))) (if var (let ((msg (calc-store-value var value ""))) - (message (concat "Special constant \"%s\" copied to \"%s\"" msg) - sconst (calc-var-name var))))))))) + (message "Special constant \"%s\" copied to \"%s\"%s" + sconst (calc-var-name var) msg)))))))) (defun calc-copy-variable (&optional var1 var2) (interactive) |