[Emacs-diffs] Changes to emacs/lisp/textmodes/page-ext.el

[Richard M. Stallman]

Index: emacs/lisp/textmodes/page-ext.el
diff -c emacs/lisp/textmodes/page-ext.el:1.24 
emacs/lisp/textmodes/page-ext.el:1.25
*** emacs/lisp/textmodes/page-ext.el:1.24       Fri Aug  9 12:40:43 2002
--- emacs/lisp/textmodes/page-ext.el    Mon Aug 12 13:23:16 2002
***************
*** 473,478 ****
--- 473,480 ----
  (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,575 ****
        (message "Creating directory for: %s "
                 (buffer-name)))
    
!   (let ((target-buffer (current-buffer))
          (pages-directory-buffer
         (concat pages-directory-prefix " " (buffer-name)))
          (linenum 1)
--- 571,577 ----
        (message "Creating directory for: %s "
                 (buffer-name)))
    
!   (let ((pages-target-buffer (current-buffer))
          (pages-directory-buffer
         (concat pages-directory-prefix " " (buffer-name)))
          (linenum 1)
***************
*** 585,591 ****
          (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-pos-list nil))
        
        (if pages-list-all-headers-p
--- 587,593 ----
          (pages-directory-mode)
          (insert
           "==== Pages Directory: use `C-c C-c' to go to page under cursor. 
====" ?\n)
!         (setq pages-buffer pages-target-buffer)
          (setq pages-pos-list nil))
        
        (if pages-list-all-headers-p
***************
*** 635,641 ****
        (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))))
      (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)
--- 637,643 ----
        (setq pages-pos-list (nreverse pages-pos-list))
        (if (interactive-p)
            (message "%d matching lines in: %s"
!                    (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,686 ****
          (setq pages-pos-list (cons position pages-pos-list))
          ;; insert page header
        (setq inserted-at (point))
!       (insert-buffer-substring target-buffer start end)
        (add-text-properties inserted-at (point) 
                             '(mouse-face highlight
                               help-echo "mouse-2: go to this page"))
--- 682,688 ----
          (setq pages-pos-list (cons position pages-pos-list))
          ;; insert page header
        (setq inserted-at (point))
!       (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"))