(Info-insert-dir): Insert newlines before rather than
after nodes copied from other files, for consistency.
This commit is contained in:
parent
f3ca341e3c
commit
25869acf6e
1 changed files with 3 additions and 3 deletions
|
@ -475,14 +475,14 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
|
|||
nil t)
|
||||
(progn
|
||||
(search-forward "\n\^_" nil 'move)
|
||||
(beginning-of-line))
|
||||
(beginning-of-line)
|
||||
(insert "\n"))
|
||||
;; If none exists, add one.
|
||||
(goto-char (point-max))
|
||||
(insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n"))
|
||||
;; Merge the text from the other buffer's menu
|
||||
;; into the menu in the like-named node in the main buffer.
|
||||
(apply 'insert-buffer-substring (cdr (car nodes)))
|
||||
(insert "\n"))
|
||||
(apply 'insert-buffer-substring (cdr (car nodes))))
|
||||
(setq nodes (cdr nodes)))
|
||||
;; Kill all the buffers we just made.
|
||||
(while buffers
|
||||
|
|
Loading…
Add table
Reference in a new issue