From 25f99522adf1488f934e23328c735e879391a1c9 Mon Sep 17 00:00:00 2001 From: Bastien Date: Fri, 27 Apr 2018 00:25:15 +0200 Subject: [PATCH] org-src.el: Don't set `buffer-file-name' MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * 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. --- lisp/org-src.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index ec32d7bf3..30b5895b7 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))))