# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779951500 0
# Node ID 65a8b9c507dc4cae1542cbcc609929a0604b401a
# Parent  8ee0129c7bb8056e636f4be5055ba672827402e2
(Info-insert-dir): Insert newlines before rather than
after nodes copied from other files, for consistency.

diff -r 8ee0129c7bb8 -r 65a8b9c507dc lisp/info.el
--- 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