changeset 8913:65a8b9c507dc

(Info-insert-dir): Insert newlines before rather than after nodes copied from other files, for consistency.
author Richard M. Stallman <rms@gnu.org>
date Mon, 19 Sep 1994 05:11:40 +0000
parents 8ee0129c7bb8
children 489c8ece5188
files lisp/info.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Mon Sep 19 05:07:10 1994 +0000
+++ b/lisp/info.el	Mon Sep 19 05:11:40 1994 +0000
@@ -475,14 +475,14 @@
 				 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