summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Davison <dandavison7@gmail.com>2011-02-01 11:42:28 +0000
committerDan Davison <dandavison7@gmail.com>2011-02-01 11:44:32 +0000
commitbbb28d5bf8c002df30ee8d8ce1c323c99653a7bc (patch)
tree7f540696b266fd886e3a1890309ba499b4dc2b28
parent8083344c86db9ba66f606694458c3ec6b386273a (diff)
downloadorg-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.el2
-rw-r--r--lisp/org-src.el6
2 files changed, 3 insertions, 5 deletions
diff --git a/lisp/ob.el b/lisp/ob.el
index a10c8fb..b899410 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 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)