(pages-copy-header-and-position): Call end-of-line, not forward-line.

(pages-directory): Omit space at end of pages-directory-buffer.

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 1b83a3ae3da076486b30ab5930f20d76d00d708f..caba12e73ee63aed11aa27aa59902acf2c5c63ea 100644 (file)
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -547,7 +547,7 @@ directory for only the accessible portion of the buffer."
   
   (let ((target-buffer (current-buffer))
         (pages-directory-buffer
-         (concat pages-directory-prefix " " (buffer-name) " "))
+        (concat pages-directory-prefix " " (buffer-name)))
         (linenum 1)
         (pages-buffer-original-position (point))
         (pages-buffer-original-page 0))
@@ -658,7 +658,7 @@ Used by `pages-directory' function."
             (insert (format "%3d: " line-count))))
       
       (terpri))
-    (forward-line 1)))
+    (end-of-line 1)))
 
 (defun pages-directory-mode ()
   "Mode for handling the pages-directory buffer.