From 8ab8bf6ed43c9449e735cd438d900b425c236312 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Fri, 12 Jun 2009 13:07:56 -0700 Subject: [PATCH] quoting "%"s in messages --- lisp/org-babel.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-babel.el b/lisp/org-babel.el index 0798c89cc..ca6740405 100644 --- a/lisp/org-babel.el +++ b/lisp/org-babel.el @@ -131,7 +131,7 @@ the header arguments specified at the source code block." (member "vector" (split-string (cdr (assoc :results params))))) (setq result (list result))) (if arg - (message (format "%S" result)) + (message (replace-regexp-in-string "%" "%%" (format "%S" result))) (org-babel-insert-result result (cdr (assoc :results params)))) result)) @@ -269,7 +269,7 @@ silent -- no results are inserted" (if (= (length result) 0) (message "no result returned by source block") (if (and insert (member "silent" insert)) - (progn (message (format "%S" result)) result) + (progn (message (replace-regexp-in-string "%" "%%" (format "%S" result))) result) (when (and (stringp result) ;; ensure results end in a newline (not (or (string-equal (substring result -1) "\n") (string-equal (substring result -1) "\r"))))