diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-16 10:35:08 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-16 10:35:08 +0100 |
commit | 602d6edb56adcc381fd6204b7ac46a0285048126 (patch) | |
tree | 92a7fe4090166aa474320d16c467d004aba51f49 | |
parent | 3eac44224973bd3f232d1b9797c905d59611cc8d (diff) | |
download | org-mode-602d6edb56adcc381fd6204b7ac46a0285048126.tar.gz |
org-src.el: Prevent saving when editing fixed-width buffer, exiting will save already
* org-src.el (org-edit-src-save): Prevent saving when editing
fixed-width buffer, exiting will save already.
(org-edit-src-exit): Inconditionally kill the src/example
editing buffer.
-rw-r--r-- | lisp/org-src.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index 6045888..298c31d 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -698,6 +698,8 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"." (set-buffer-modified-p nil)) (org-src-switch-to-buffer (marker-buffer beg) (or context 'exit)) (if (eq context 'save) (save-buffer) + (with-current-buffer buffer + (set-buffer-modified-p nil)) (kill-buffer buffer)) (goto-char beg) (when allow-write-back-p @@ -749,7 +751,9 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"." (defun org-edit-src-save () "Save parent buffer with current state source-code buffer." (interactive) - (org-src-in-org-buffer (save-buffer))) + (if (string-match "Fixed Width" (buffer-name)) + (user-error "Use C-c ' to save and exit, C-c k to abort editing") + (org-src-in-org-buffer (save-buffer)))) (declare-function org-babel-tangle "ob-tangle" (&optional only-this-block target-file lang)) |