1062 |
;; into the menu in the like-named node in the main buffer. |
;; into the menu in the like-named node in the main buffer. |
1063 |
(apply 'insert-buffer-substring (cdr node)))) |
(apply 'insert-buffer-substring (cdr node)))) |
1064 |
(Info-dir-remove-duplicates) |
(Info-dir-remove-duplicates) |
1065 |
;; Kill all the buffers we just made. |
;; Kill all the buffers we just made, including the special one excised. |
1066 |
(mapc 'kill-buffer buffers) |
(mapc 'kill-buffer (cons buffer buffers)) |
1067 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1068 |
(if problems |
(if problems |
1069 |
(message "Composing main Info directory...problems encountered, see `*Messages*'") |
(message "Composing main Info directory...problems encountered, see `*Messages*'") |