Commit e6945ec7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(pages-directory): Omit space at end of pages-directory-buffer.
parent 23e62b22
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment