diff options
| author | Richard M. Stallman | 1994-06-27 20:54:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-27 20:54:14 +0000 |
| commit | dfbf6104bdc9ce794199c9a5d49c45d9c910362e (patch) | |
| tree | ba6dab67d2ddddbc78cea0e8fc36cbc944c9dd88 | |
| parent | f4a3a8c96b85a3dae9fd6bf18523fee6b6675272 (diff) | |
| download | emacs-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.el | 4 |
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 |