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

(Info-insert-dir): Insert newlines before rather than

after nodes copied from other files, for consistency.
parent f3ca341e
...@@ -475,14 +475,14 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." ...@@ -475,14 +475,14 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
nil t) nil t)
(progn (progn
(search-forward "\n\^_" nil 'move) (search-forward "\n\^_" nil 'move)
(beginning-of-line)) (beginning-of-line)
(insert "\n"))
;; If none exists, add one. ;; If none exists, add one.
(goto-char (point-max)) (goto-char (point-max))
(insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n")) (insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n"))
;; Merge the text from the other buffer's menu ;; Merge the text from the other buffer's menu
;; into the menu in the like-named node in the main buffer. ;; into the menu in the like-named node in the main buffer.
(apply 'insert-buffer-substring (cdr (car nodes))) (apply 'insert-buffer-substring (cdr (car nodes))))
(insert "\n"))
(setq nodes (cdr nodes))) (setq nodes (cdr nodes)))
;; Kill all the buffers we just made. ;; Kill all the buffers we just made.
(while buffers (while buffers
......
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