Mercurial > emacs

changeset 5311:da52825a3880

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pages-copy-header-and-position): Call end-of-line, not forward-line. (pages-directory): Omit space at end of pages-directory-buffer.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 04:56:43 +0000
parents fe3bea12d381
children aad805608eec
files lisp/textmodes/page-ext.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.