diff options
| author | Richard M. Stallman | 1993-12-23 04:56:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-23 04:56:43 +0000 |
| commit | e6945ec7802c66960d0376bdae0b0c7b13d698a7 (patch) | |
| tree | 7f7f3104799e43374843c44b444b918015104054 | |
| parent | 23e62b22f520c784c6abee5394f56b1de5941214 (diff) | |
| download | emacs-e6945ec7802c66960d0376bdae0b0c7b13d698a7.tar.gz emacs-e6945ec7802c66960d0376bdae0b0c7b13d698a7.zip | |
(pages-copy-header-and-position): Call end-of-line, not forward-line.
(pages-directory): Omit space at end of pages-directory-buffer.
| -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." | |||
| 547 | 547 | ||
| 548 | (let ((target-buffer (current-buffer)) | 548 | (let ((target-buffer (current-buffer)) |
| 549 | (pages-directory-buffer | 549 | (pages-directory-buffer |
| 550 | (concat pages-directory-prefix " " (buffer-name) " ")) | 550 | (concat pages-directory-prefix " " (buffer-name))) |
| 551 | (linenum 1) | 551 | (linenum 1) |
| 552 | (pages-buffer-original-position (point)) | 552 | (pages-buffer-original-position (point)) |
| 553 | (pages-buffer-original-page 0)) | 553 | (pages-buffer-original-page 0)) |
| @@ -658,7 +658,7 @@ Used by `pages-directory' function." | |||
| 658 | (insert (format "%3d: " line-count)))) | 658 | (insert (format "%3d: " line-count)))) |
| 659 | 659 | ||
| 660 | (terpri)) | 660 | (terpri)) |
| 661 | (forward-line 1))) | 661 | (end-of-line 1))) |
| 662 | 662 | ||
| 663 | (defun pages-directory-mode () | 663 | (defun pages-directory-mode () |
| 664 | "Mode for handling the pages-directory buffer. | 664 | "Mode for handling the pages-directory buffer. |