|
@@ -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))))
|
|
|
|