From bbb28d5bf8c002df30ee8d8ce1c323c99653a7bc Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Tue, 1 Feb 2011 11:42:28 +0000 Subject: [PATCH] Get rid of extra help message when editing src code * lisp/org-src.el (org-edit-src-persistent-message): Change docstring. (org-edit-src-code): Get rid of help message in echo area. * lisp/ob.el (org-babel-do-in-edit-buffer): Do not pass 'quietly argument to org-edit-src-code as this has been removed --- lisp/ob.el | 2 +- lisp/org-src.el | 6 ++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index a10c8fb2e..b899410cf 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -551,7 +551,7 @@ with a prefix argument then this is passed on to Return t if a code block was found at point, nil otherwise." `(let ((org-src-window-setup 'switch-invisibly)) (when (and (org-babel-where-is-src-block-head) - (org-edit-src-code nil nil nil 'quietly)) + (org-edit-src-code nil nil nil)) (unwind-protect (progn ,@body) (if (org-bound-and-true-p org-edit-src-from-org-mode) (org-edit-src-exit))) diff --git a/lisp/org-src.el b/lisp/org-src.el index f55e2926d..a4ddb3ba2 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -116,8 +116,7 @@ buffer.") (defcustom org-edit-src-persistent-message t "Non-nil means show persistent exit help message while editing src examples. The message is shown in the header-line, which will be created in the -first line of the window showing the editing buffer. -When nil, the message will only be shown intermittently in the echo area." +first line of the window showing the editing buffer." :group 'org-edit-structure :type 'boolean) @@ -199,7 +198,7 @@ This minor mode is turned on in two situations: There is a mode hook, and keybindings for `org-edit-src-exit' and `org-edit-src-save'") -(defun org-edit-src-code (&optional context code edit-buffer-name quietp) +(defun org-edit-src-code (&optional context code edit-buffer-name) "Edit the source code example at point. The example is copied to a separate buffer, and that buffer is switched to the correct language mode. When done, exit with @@ -322,7 +321,6 @@ buffer." (set-buffer-modified-p nil) (and org-edit-src-persistent-message (org-set-local 'header-line-format msg))) - (unless quietp (message "%s" msg)) t))) (defun org-edit-src-continue (e)