mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Fix last change to textmodes/page-ext.el

Browse Source 
* lisp/textmodes/page-ext.el (pages-directory): Make buffer writable
while we build it (bug#28431).
This commit is contained in:
Stefan Monnier 2017-09-16 20:10:31 -04:00
parent a726e09a9a
commit 1d599df5e0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/textmodes/page-ext.el
View File

@ -583,6 +583,7 @@ directory for only the accessible portion of the buffer."
(with-output-to-temp-buffer pages-directory-buffer (with-output-to-temp-buffer pages-directory-buffer
(with-current-buffer standard-output (with-current-buffer standard-output
(pages-directory-mode) (pages-directory-mode)
(setq buffer-read-only nil)
(insert (insert
"==== Pages Directory: use `C-c C-c' to go to page under cursor. ====" ?\n) "==== Pages Directory: use `C-c C-c' to go to page under cursor. ====" ?\n)
(setq pages-buffer pages-target-buffer) (setq pages-buffer pages-target-buffer)
@ -631,6 +632,7 @@ directory for only the accessible portion of the buffer."
))))) )))))
(set-buffer standard-output) (set-buffer standard-output)
(setq buffer-read-only t)
;; Put positions in increasing order to go with buffer. ;; Put positions in increasing order to go with buffer.
(setq pages-pos-list (nreverse pages-pos-list)) (setq pages-pos-list (nreverse pages-pos-list))
(if (called-interactively-p 'interactive) (if (called-interactively-p 'interactive)