[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 1d599df: Fix last change to textmodes/page-ext.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs-26 1d599df: Fix last change to textmodes/page-ext.el |
Date: |
Sat, 16 Sep 2017 20:10:38 -0400 (EDT) |
branch: emacs-26
commit 1d599df5e0fbbc52e8592c0aff1d23e978c29b67
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
Fix last change to textmodes/page-ext.el
* lisp/textmodes/page-ext.el (pages-directory): Make buffer writable
while we build it (bug#28431).
---
lisp/textmodes/page-ext.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index d744bd2..94b68de 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -583,6 +583,7 @@ directory for only the accessible portion of the buffer."
(with-output-to-temp-buffer pages-directory-buffer
(with-current-buffer standard-output
(pages-directory-mode)
+ (setq buffer-read-only nil)
(insert
"==== Pages Directory: use `C-c C-c' to go to page under cursor.
====" ?\n)
(setq pages-buffer pages-target-buffer)
@@ -631,6 +632,7 @@ directory for only the accessible portion of the buffer."
)))))
(set-buffer standard-output)
+ (setq buffer-read-only t)
;; Put positions in increasing order to go with buffer.
(setq pages-pos-list (nreverse pages-pos-list))
(if (called-interactively-p 'interactive)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 1d599df: Fix last change to textmodes/page-ext.el,
Stefan Monnier <=