diff options
author | Bastien <bzg@gnu.org> | 2018-04-27 00:25:15 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2018-04-27 00:25:15 +0200 |
commit | 25f99522adf1488f934e23328c735e879391a1c9 (patch) | |
tree | cb5b97a9e088d2c0dfe63fd7260165d451e83948 | |
parent | b64f31abd236e12fd2cf699e5be8008e7a696333 (diff) | |
download | org-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.el | 4 |
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)))) |