summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2018-04-27 00:25:15 +0200
committerBastien <bzg@gnu.org>2018-04-27 00:25:15 +0200
commit25f99522adf1488f934e23328c735e879391a1c9 (patch)
treecb5b97a9e088d2c0dfe63fd7260165d451e83948
parentb64f31abd236e12fd2cf699e5be8008e7a696333 (diff)
downloadorg-mode-25f99522adf1488f934e23328c735e879391a1c9.tar.gz
org-src.el: Don't set `buffer-file-name'
* lisp/org-src.el (org-src-mode-configure-edit-buffer): Don't set `buffer-file-name'. Thanks to Clément Pit-Claudel for reporting this.
-rw-r--r--lisp/org-src.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el
index ec32d7b..30b5895 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -667,14 +667,12 @@ See also `org-src-mode-hook'."
(setq org-src--auto-save-timer nil)))))))))
(defun org-src-mode-configure-edit-buffer ()
+ "Configure the src edit buffer."
(when (bound-and-true-p org-src--from-org-mode)
(add-hook 'kill-buffer-hook #'org-src--remove-overlay nil 'local)
(if (bound-and-true-p org-src--allow-write-back)
(progn
(setq buffer-offer-save t)
- (setq buffer-file-name
- (concat (buffer-file-name (marker-buffer org-src--beg-marker))
- "[" (buffer-name) "]"))
(setq-local write-contents-functions '(org-edit-src-save)))
(setq buffer-read-only t))))