diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:56:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:56:43 +0000 |
| commit | e6945ec7802c66960d0376bdae0b0c7b13d698a7 (patch) | |
| tree | 7f7f3104799e43374843c44b444b918015104054 /lisp/textmodes/page-ext.el | |
| parent | 23e62b22f520c784c6abee5394f56b1de5941214 (diff) | |
| download | emacs-e6945ec7802c66960d0376bdae0b0c7b13d698a7.tar.gz | |
(pages-copy-header-and-position): Call end-of-line, not forward-line.
(pages-directory): Omit space at end of pages-directory-buffer.
Diffstat (limited to 'lisp/textmodes/page-ext.el')
| -rw-r--r-- | lisp/textmodes/page-ext.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 1b83a3ae3da..caba12e73ee 100644 --- 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. |