aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-06-27 20:54:14 +0000
committerRichard M. Stallman1994-06-27 20:54:14 +0000
commitdfbf6104bdc9ce794199c9a5d49c45d9c910362e (patch)
treeba6dab67d2ddddbc78cea0e8fc36cbc944c9dd88
parentf4a3a8c96b85a3dae9fd6bf18523fee6b6675272 (diff)
downloademacs-dfbf6104bdc9ce794199c9a5d49c45d9c910362e.tar.gz
emacs-dfbf6104bdc9ce794199c9a5d49c45d9c910362e.zip
(Info-insert-dir): Capitalize `node' when inserting it.
(Info-search): Don't move point to beginning, after Info-read-subfile.
-rw-r--r--lisp/info.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el
index 122b4ab4e9f..faf478ea836 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -469,7 +469,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
469 (beginning-of-line)) 469 (beginning-of-line))
470 ;; If none exists, add one. 470 ;; If none exists, add one.
471 (goto-char (point-max)) 471 (goto-char (point-max))
472 (insert "\^_\nFile: dir\tnode: " nodename "\n\n* Menu:\n\n")) 472 (insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n"))
473 ;; Merge the text from the other buffer's menu 473 ;; Merge the text from the other buffer's menu
474 ;; into the menu in the like-named node in the main buffer. 474 ;; into the menu in the like-named node in the main buffer.
475 (apply 'insert-buffer-substring (cdr (car nodes))) 475 (apply 'insert-buffer-substring (cdr (car nodes)))
@@ -677,7 +677,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
677 (message "Searching subfile %s..." (cdr (car list))) 677 (message "Searching subfile %s..." (cdr (car list)))
678 (Info-read-subfile (car (car list))) 678 (Info-read-subfile (car (car list)))
679 (setq list (cdr list)) 679 (setq list (cdr list))
680 (goto-char (point-min)) 680;; (goto-char (point-min))
681 (if (re-search-forward regexp nil t) 681 (if (re-search-forward regexp nil t)
682 (setq found (point) list ()))) 682 (setq found (point) list ())))
683 (if found 683 (if found