|
@@ -421,8 +421,8 @@ Assume point is in the corresponding edit buffer."
|
|
|
(write-back org-src--allow-write-back))
|
|
|
(with-temp-buffer
|
|
|
;; Reproduce indentation parameters from source buffer.
|
|
|
- (setq-local indent-tabs-mode use-tabs?)
|
|
|
- (when (> source-tab-width 0) (setq-local tab-width source-tab-width))
|
|
|
+ (setq indent-tabs-mode use-tabs?)
|
|
|
+ (when (> source-tab-width 0) (setq tab-width source-tab-width))
|
|
|
;; Apply WRITE-BACK function on edit buffer contents.
|
|
|
(insert (org-no-properties contents))
|
|
|
(goto-char (point-min))
|
|
@@ -647,13 +647,12 @@ This minor mode is turned on in two situations:
|
|
|
See also `org-src-mode-hook'."
|
|
|
nil " OrgSrc" nil
|
|
|
(when org-edit-src-persistent-message
|
|
|
- (setq-local
|
|
|
- header-line-format
|
|
|
- (substitute-command-keys
|
|
|
- (if org-src--allow-write-back
|
|
|
- "Edit, then exit with `\\[org-edit-src-exit]' or abort with \
|
|
|
+ (setq header-line-format
|
|
|
+ (substitute-command-keys
|
|
|
+ (if org-src--allow-write-back
|
|
|
+ "Edit, then exit with `\\[org-edit-src-exit]' or abort with \
|
|
|
`\\[org-edit-src-abort]'"
|
|
|
- "Exit with `\\[org-edit-src-exit]' or abort with \
|
|
|
+ "Exit with `\\[org-edit-src-exit]' or abort with \
|
|
|
`\\[org-edit-src-abort]'"))))
|
|
|
;; Possibly activate various auto-save features (for the edit buffer
|
|
|
;; or the source buffer).
|
|
@@ -685,7 +684,7 @@ See also `org-src-mode-hook'."
|
|
|
(if (bound-and-true-p org-src--allow-write-back)
|
|
|
(progn
|
|
|
(setq buffer-offer-save t)
|
|
|
- (setq-local write-contents-functions '(org-edit-src-save)))
|
|
|
+ (setq write-contents-functions '(org-edit-src-save)))
|
|
|
(setq buffer-read-only t))))
|
|
|
|
|
|
(add-hook 'org-src-mode-hook #'org-src-mode-configure-edit-buffer)
|