Mercurial > emacs
comparison lisp/info.el @ 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 | 6d8297d65d78 |
children | b18f51df31b3 |
comparison
equal
deleted
inserted
replaced
8912:8ee0129c7bb8 | 8913:65a8b9c507dc |
---|---|
473 (regexp-quote nodename) | 473 (regexp-quote nodename) |
474 "[,\n\t]") | 474 "[,\n\t]") |
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 |
489 (kill-buffer (car buffers)) | 489 (kill-buffer (car buffers)) |
490 (setq buffers (cdr buffers))) | 490 (setq buffers (cdr buffers))) |