diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-05 19:06:57 -0700 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-08-05 23:29:43 -0400 |
commit | 3a81c7ee6f392463db1db4b3e77a0e0411032382 (patch) | |
tree | 405167dfe2608f7fa8983055ec530dba79964cb4 | |
parent | 003a0f10695f035e844d844eacb1a86a6d2df934 (diff) | |
download | org-mode-3a81c7ee6f392463db1db4b3e77a0e0411032382.tar.gz |
Backport commit 0c856a2 from Emacs master branch
* lisp/ob-core.el (org-babel-check-evaluate)
(org-babel-confirm-evaluate):
* lisp/ob-fortran.el (org-babel-fortran-var-to-fortran):
* lisp/ox-latex.el (org-latex-compile):
* lisp/ox-man.el (org-man-compile):
* lisp/ox-odt.el (org-odt-template):
* lisp/ox-texinfo.el (org-texinfo-compile):
Change (message (format ...)) to (message ...), and likewise
for ‘error’. This lessens the probability of confusion when the
output of ‘format’ contains ‘%’.
Fix some confusion with ‘format’
0c856a2c459016f1f9cce173f5b2b49be36e3452
Paul Eggert
Wed Aug 5 19:07:28 2015 -0700
-rw-r--r-- | lisp/ob-core.el | 8 | ||||
-rw-r--r-- | lisp/ob-fortran.el | 5 | ||||
-rw-r--r-- | lisp/ox-latex.el | 2 | ||||
-rw-r--r-- | lisp/ox-man.el | 2 | ||||
-rw-r--r-- | lisp/ox-odt.el | 4 | ||||
-rw-r--r-- | lisp/ox-texinfo.el | 2 |
6 files changed, 11 insertions, 12 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 30020f7..e3abe97 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -321,8 +321,8 @@ name of the code block." Do not query the user." (org-babel-check-confirm-evaluate info (not (when noeval - (message (format "Evaluation of this%scode-block%sis disabled." - code-block block-name)))))) + (message "Evaluation of this%scode-block%sis disabled." + code-block block-name))))) ;; dynamically scoped for asynchronous export (defvar org-babel-confirm-evaluate-answer-no) @@ -348,8 +348,8 @@ of potentially harmful code." (yes-or-no-p (format "Evaluate this%scode block%son your system? " code-block block-name))) - (message (format "Evaluation of this%scode-block%sis aborted." - code-block block-name))))))) + (message "Evaluation of this%scode-block%sis aborted." + code-block block-name)))))) ;;;###autoload (defun org-babel-execute-safely-maybe () diff --git a/lisp/ob-fortran.el b/lisp/ob-fortran.el index baeb4ba..6bd5fb5 100644 --- a/lisp/ob-fortran.el +++ b/lisp/ob-fortran.el @@ -149,15 +149,14 @@ of the same value." ;; val is a matrix ((and (listp val) (org-every #'listp val)) (format "real, parameter :: %S(%d,%d) = transpose( reshape( %s , (/ %d, %d /) ) )\n" - var (length val) (length (car val)) + var (length val) (length (car val)) (org-babel-fortran-transform-list val) (length (car val)) (length val))) ((listp val) (format "real, parameter :: %S(%d) = %s\n" var (length val) (org-babel-fortran-transform-list val))) (t - (error (format "the type of parameter %s is not supported by ob-fortran" - var)))))) + (error "the type of parameter %s is not supported by ob-fortran" var))))) (defun org-babel-fortran-transform-list (val) "Return a fortran representation of enclose syntactic lists." diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index c3eb1ea..ddb9649 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -3433,7 +3433,7 @@ Return PDF file name or an error if it couldn't be produced." default-directory)) (time (current-time)) warnings) - (unless snippet (message (format "Processing LaTeX file %s..." texfile))) + (unless snippet (message "Processing LaTeX file %s..." texfile)) (save-window-excursion (cond ;; A function is provided: Apply it. diff --git a/lisp/ox-man.el b/lisp/ox-man.el index 6388a55..f9d37ac 100644 --- a/lisp/ox-man.el +++ b/lisp/ox-man.el @@ -1196,7 +1196,7 @@ Return PDF file name or an error if it couldn't be produced." (file-name-directory full-name) default-directory)) errors) - (message (format "Processing Groff file %s..." file)) + (message "Processing Groff file %s..." file) (save-window-excursion (cond ;; A function is provided: Apply it. diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index e578a17..fa86bd0 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1410,8 +1410,8 @@ original parsed data. INFO is a plist holding export options." ((member styles-file-type '("odt" "ott")) (org-odt--zip-extract styles-file "styles.xml" org-odt-zip-dir))))) (t - (error (format "Invalid specification of styles.xml file: %S" - (plist-get info :odt-styles-file))))) + (error "Invalid specification of styles.xml file: %S" + (plist-get info :odt-styles-file)))) ;; create a manifest entry for styles.xml (org-odt-create-manifest-file-entry "text/xml" "styles.xml") diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index df56b67..85b3dee 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1589,7 +1589,7 @@ Return INFO file name or an error if it couldn't be produced." (file-name-directory full-name) default-directory)) errors) - (message (format "Processing Texinfo file %s..." file)) + (message "Processing Texinfo file %s..." file) (save-window-excursion ;; Replace %b, %f and %o with appropriate values in each command ;; before applying it. Output is redirected to "*Org INFO |