diff options
author | Dan Davison <dandavison7@gmail.com> | 2011-02-01 11:42:28 +0000 |
---|---|---|
committer | Dan Davison <dandavison7@gmail.com> | 2011-02-01 11:44:32 +0000 |
commit | bbb28d5bf8c002df30ee8d8ce1c323c99653a7bc (patch) | |
tree | 7f540696b266fd886e3a1890309ba499b4dc2b28 | |
parent | 8083344c86db9ba66f606694458c3ec6b386273a (diff) | |
download | org-mode-bbb28d5bf8c002df30ee8d8ce1c323c99653a7bc.tar.gz |
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
-rw-r--r-- | lisp/ob.el | 2 | ||||
-rw-r--r-- | lisp/org-src.el | 6 |
2 files changed, 3 insertions, 5 deletions
@@ -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 f55e292..a4ddb3b 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) |