diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-20 09:40:35 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-20 09:42:05 -0700 |
| commit | ab11a1cf27ebe3791df45cccde3c851affd184dd (patch) | |
| tree | 026e179d182fed09a07cb0a395fe7543feacb958 /lisp/allout.el | |
| parent | 2ad2f8b084111e1479374fa38450de234242afaf (diff) | |
| download | emacs-ab11a1cf27ebe3791df45cccde3c851affd184dd.tar.gz | |
Use %s to format strings instead of splicing them
If FOO might contain quotes that are part of a file or variable
name, the quotes should not be translated when showing FOO’s name
in a diagnostic. So, for example, (message (concat (FOO ": bar")))
is not quite right, as it would translate FOO’s quotes.
Change it to (message "%s: bar" FOO) instead.
* lisp/allout.el (allout-process-exposed):
* lisp/calc/calc-ext.el (calc-do-prefix-help):
* lisp/calc/calc-store.el (calc-store-into):
* lisp/calendar/todo-mode.el (todo-category-completions):
* lisp/cedet/semantic/complete.el (semantic-completion-message):
* lisp/org/ob-latex.el (convert-pdf):
* lisp/org/org-crypt.el (org-crypt-check-auto-save):
* lisp/org/ox-latex.el (org-latex-compile):
* lisp/org/ox-man.el (org-man-compile):
* lisp/org/ox-odt.el (org-odt--export-wrap):
* lisp/org/ox-texinfo.el (org-texinfo-compile):
* lisp/progmodes/ruby-mode.el (ruby-in-ppss-context-p):
* lisp/progmodes/verilog-mode.el (verilog-batch-execute-func)
(verilog-signals-combine-bus, verilog-read-defines)
(verilog-getopt-file, verilog-expand-dirnames)
(verilog-modi-lookup, verilog-modi-modport-lookup-one):
* lisp/term/ns-win.el (ns-spi-service-call):
Use %s to avoid translating quotes of file names etc. in diagnostics.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/allout.el b/lisp/allout.el index bbd69cd8347..5273fe2b433 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -5562,9 +5562,8 @@ Defaults: ;; Specified but not a buffer -- get it: (let ((got (get-buffer frombuf))) (if (not got) - (error (concat "allout-process-exposed: source buffer " - frombuf - " not found.")) + (error "allout-process-exposed: source buffer %s not found." + frombuf) (setq frombuf got)))) ;; not specified -- default it: (setq frombuf (current-buffer))) |