Mercurial > emacs

comparison lisp/info.el @ 6121:a9caf92da1d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-restore-point): Don't wipe out hl before using it.
author Karl Heuer <kwzh@gnu.org>
date Tue, 01 Mar 1994 09:02:19 +0000
parents 32df2b4d67cf
children f0f62abb621b
comparison
equal deleted inserted replaced
6120:121ee28dbda0 6121:a9caf92da1d3
581 "If this node has been visited, restore the point value when we left." 581 "If this node has been visited, restore the point value when we left."
582 (while hl 582 (while hl
583 (if (and (equal (nth 0 (car hl)) Info-current-file) 583 (if (and (equal (nth 0 (car hl)) Info-current-file)
584 (equal (nth 1 (car hl)) Info-current-node)) 584 (equal (nth 1 (car hl)) Info-current-node))
585 (progn 585 (progn
586 (setq hl nil) ;terminate the while at next iter 586 (goto-char (nth 2 (car hl)))
587 (goto-char (nth 2 (car hl)))) 587 (setq hl nil)) ;terminate the while at next iter
588 (setq hl (cdr hl))))) 588 (setq hl (cdr hl)))))
589 589
590 (defvar Info-last-search nil 590 (defvar Info-last-search nil
591 "Default regexp for \\<Info-mode-map>\\[Info-search] command to search for.") 591 "Default regexp for \\<Info-mode-map>\\[Info-search] command to search for.")
592 592