diff options
author | Sébastien Miquel <sebastien.miquel@posteo.eu> | 2021-06-01 08:56:48 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2021-06-27 15:53:22 +0200 |
commit | e2550506ebfec0c1a7892dfa5ef948435be1c7f4 (patch) | |
tree | 384b80f4acdeccc85a3b7e3f57566a63cfa36f90 | |
parent | aa0fa8c75360d2aa491b9ae10e59d22de2aedc92 (diff) | |
download | org-mode-e2550506ebfec0c1a7892dfa5ef948435be1c7f4.tar.gz |
src: Use `replace-buffer-contents' only for emacs >= 27
* lisp/org-src.el (org-edit-src-save):
(org-edit-src-exit): Use `replace-buffer-contents' only for emacs >=
27.
It was introduced in emacs 26.1, but earlier versions made no
guarantees of correctness.
-rw-r--r-- | lisp/org-src.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index 79f002e..4698c6d 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -1199,12 +1199,12 @@ Throw an error if there is no such buffer." ;; insert new contents. (delete-overlay overlay) (let ((expecting-bol (bolp))) - (if (version< emacs-version "26.1") + (if (version< emacs-version "27.1") (progn (delete-region beg end) (insert (with-current-buffer write-back-buf (buffer-string)))) (save-restriction (narrow-to-region beg end) - (replace-buffer-contents write-back-buf) + (replace-buffer-contents write-back-buf 0.1 nil) (goto-char (point-max)))) (when (and expecting-bol (not (bolp))) (insert "\n"))) (kill-buffer write-back-buf) @@ -1246,13 +1246,13 @@ Throw an error if there is no such buffer." (undo-boundary) (goto-char beg) (let ((expecting-bol (bolp))) - (if (version< emacs-version "26.1") + (if (version< emacs-version "27.1") (progn (delete-region beg end) (insert (with-current-buffer write-back-buf (buffer-string)))) (save-restriction (narrow-to-region beg end) - (replace-buffer-contents write-back-buf) + (replace-buffer-contents write-back-buf 0.1 nil) (goto-char (point-max)))) (when (and expecting-bol (not (bolp))) (insert "\n"))))) (when write-back-buf (kill-buffer write-back-buf)) |