diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/page-ext.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 87059d21b0a..566f84614fe 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -473,6 +473,8 @@ contain matches to the regexp.\)") (defvar pages-pos-list nil "List containing the positions of the pages in the pages-buffer.") +(defvar pages-target-buffer) + (defvar pages-directory-map nil "Keymap for the pages-directory-buffer.") @@ -569,7 +571,7 @@ directory for only the accessible portion of the buffer." (message "Creating directory for: %s " (buffer-name))) - (let ((target-buffer (current-buffer)) + (let ((pages-target-buffer (current-buffer)) (pages-directory-buffer (concat pages-directory-prefix " " (buffer-name))) (linenum 1) @@ -585,7 +587,7 @@ directory for only the accessible portion of the buffer." (pages-directory-mode) (insert "==== Pages Directory: use `C-c C-c' to go to page under cursor. ====" ?\n) - (setq pages-buffer target-buffer) + (setq pages-buffer pages-target-buffer) (setq pages-pos-list nil)) (if pages-list-all-headers-p @@ -635,7 +637,7 @@ directory for only the accessible portion of the buffer." (setq pages-pos-list (nreverse pages-pos-list)) (if (interactive-p) (message "%d matching lines in: %s" - (length pages-pos-list) (buffer-name target-buffer)))) + (length pages-pos-list) (buffer-name pages-target-buffer)))) (pop-to-buffer pages-directory-buffer) (sit-for 0) ; otherwise forward-line fails if N > window height. (forward-line (if (= 0 pages-buffer-original-page) @@ -680,7 +682,7 @@ Used by `pages-directory' function." (setq pages-pos-list (cons position pages-pos-list)) ;; insert page header (setq inserted-at (point)) - (insert-buffer-substring target-buffer start end) + (insert-buffer-substring pages-target-buffer start end) (add-text-properties inserted-at (point) '(mouse-face highlight help-echo "mouse-2: go to this page")) |