diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-24 03:25:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-24 03:25:46 +0000 |
| commit | cedb118cc84fbf5e53097b7fcc20161909a2b26f (patch) | |
| tree | f56a5048146c74a6b6b799de4ad78d7c1790454e /lisp | |
| parent | 2512acba30ff6f87e3c1b7602c71d340acf61498 (diff) | |
| download | emacs-cedb118cc84fbf5e53097b7fcc20161909a2b26f.tar.gz | |
(Info-build-node-completions): Add a call to widen.
(Info-goto-emacs-command-node): Fix paren error. Fix typo in message.
(Info-restore-point): Use iteration instead of recursion.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/lisp/info.el b/lisp/info.el index 28554ba444c..d2cff3aec96 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -556,6 +556,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." (if (marker-buffer Info-tag-table-marker) (progn (set-buffer (marker-buffer Info-tag-table-marker)) + (widen) (goto-char Info-tag-table-marker) (while (re-search-forward "\nNode: \\(.*\\)\177" nil t) (setq compl @@ -578,11 +579,13 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." (defun Info-restore-point (hl) "If this node has been visited, restore the point value when we left." - (if hl - (if (and (equal (nth 0 (car hl)) Info-current-file) - (equal (nth 1 (car hl)) Info-current-node)) - (goto-char (nth 2 (car hl))) - (Info-restore-point (cdr hl))))) + (while hl + (if (and (equal (nth 0 (car hl)) Info-current-file) + (equal (nth 1 (car hl)) Info-current-node)) + (progn + (setq hl nil) ;terminate the while at next iter + (goto-char (nth 2 (car hl)))) + (setq hl (cdr hl))))) (defvar Info-last-search nil "Default regexp for \\<Info-mode-map>\\[Info-search] command to search for.") @@ -1461,10 +1464,10 @@ The command is found by looking up in Emacs manual's Command Index." ;; the history. (setq Info-history (nconc (cdr where) Info-history)) (message (substitute-command-keys - "Found %d other entr%. Use \\[Info-last] to see %s." - (1- num-matches) - (if (> num-matches 2) "ies" "y") - (if (> num-matches 2) "them" "it")))))) + "Found %d other entr%s. Use \\[Info-last] to see %s.") + (1- num-matches) + (if (> num-matches 2) "ies" "y") + (if (> num-matches 2) "them" "it"))))) (error "Couldn't find documentation for %s." command)))) ;;;###autoload |