diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 30020f7ee..e3abe9762 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 baeb4ba0d..6bd5fb510 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 c3eb1eaaf..ddb964960 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 6388a5530..f9d37ac3f 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 e578a1776..fa86bd074 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 df56b6708..85b3dee12 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