diff options
| author | Richard M. Stallman | 1994-09-19 05:11:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-19 05:11:40 +0000 |
| commit | 25869acf6e0892bc2f65c979297308d79059519c (patch) | |
| tree | 5650bb7ecd588ba2ec196aa81d9f97bc7709b8b4 /lisp | |
| parent | f3ca341e3c718e0e308d009153ef6dfcb3172fcb (diff) | |
| download | emacs-25869acf6e0892bc2f65c979297308d79059519c.tar.gz emacs-25869acf6e0892bc2f65c979297308d79059519c.zip | |
(Info-insert-dir): Insert newlines before rather than
after nodes copied from other files, for consistency.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index b07c8930c81..2396ba62bb4 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -475,14 +475,14 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." | |||
| 475 | nil t) | 475 | nil t) |
| 476 | (progn | 476 | (progn |
| 477 | (search-forward "\n\^_" nil 'move) | 477 | (search-forward "\n\^_" nil 'move) |
| 478 | (beginning-of-line)) | 478 | (beginning-of-line) |
| 479 | (insert "\n")) | ||
| 479 | ;; If none exists, add one. | 480 | ;; If none exists, add one. |
| 480 | (goto-char (point-max)) | 481 | (goto-char (point-max)) |
| 481 | (insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n")) | 482 | (insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n")) |
| 482 | ;; Merge the text from the other buffer's menu | 483 | ;; Merge the text from the other buffer's menu |
| 483 | ;; into the menu in the like-named node in the main buffer. | 484 | ;; into the menu in the like-named node in the main buffer. |
| 484 | (apply 'insert-buffer-substring (cdr (car nodes))) | 485 | (apply 'insert-buffer-substring (cdr (car nodes)))) |
| 485 | (insert "\n")) | ||
| 486 | (setq nodes (cdr nodes))) | 486 | (setq nodes (cdr nodes))) |
| 487 | ;; Kill all the buffers we just made. | 487 | ;; Kill all the buffers we just made. |
| 488 | (while buffers | 488 | (while buffers |