# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756622603 0
# Node ID da52825a38809071f42b2729522f35552c031176
# Parent  fe3bea12d3815087df95b742d42eea7e42e69607
(pages-copy-header-and-position): Call end-of-line, not forward-line.
(pages-directory): Omit space at end of pages-directory-buffer.

diff -r fe3bea12d381 -r da52825a3880 lisp/textmodes/page-ext.el
--- a/lisp/textmodes/page-ext.el	Thu Dec 23 04:55:44 1993 +0000
+++ b/lisp/textmodes/page-ext.el	Thu Dec 23 04:56:43 1993 +0000
@@ -547,7 +547,7 @@
   
   (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 @@
             (insert (format "%3d: " line-count))))
       
       (terpri))
-    (forward-line 1)))
+    (end-of-line 1)))
 
 (defun pages-directory-mode ()
   "Mode for handling the pages-directory buffer.