From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 17 Sep 2017 00:10:31 +0000 (-0400)
Subject: Fix last change to textmodes/page-ext.el
X-Git-Tag: emacs-26.0.90~155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d599df5e0fbbc52e8592c0aff1d23e978c29b67;p=emacs.git

Fix last change to textmodes/page-ext.el

* lisp/textmodes/page-ext.el (pages-directory): Make buffer writable
while we build it (bug#28431).
---

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index d744bd2cf01..94b68decfb7 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)