mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(Info-build-node-completions): Add a call to widen.

Browse Source 
(Info-goto-emacs-command-node): Fix paren error.  Fix typo in message.
(Info-restore-point): Use iteration instead of recursion.
This commit is contained in:
Richard M. Stallman 1994-02-24 03:25:46 +00:00
parent 2512acba30
commit cedb118cc8
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/info.el
View File

@ -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