diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-09-16 20:10:31 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-09-16 20:10:31 -0400 |
commit | 1d599df5e0fbbc52e8592c0aff1d23e978c29b67 (patch) | |
tree | f2ce7f84e18ec9f48b3e8f4121a58257734f186e /lisp/textmodes/page-ext.el | |
parent | a726e09a9a89f85c78b65a96601110bca1a9983b (diff) | |
download | emacs-1d599df5e0fbbc52e8592c0aff1d23e978c29b67.tar.gz |
Fix last change to textmodes/page-ext.el
* lisp/textmodes/page-ext.el (pages-directory): Make buffer writable
while we build it (bug#28431).
Diffstat (limited to 'lisp/textmodes/page-ext.el')
-rw-r--r-- | lisp/textmodes/page-ext.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |