diff --git a/lisp/info.el b/lisp/info.el index d2cff3aec96..06496692f75 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -583,8 +583,8 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." (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)))) + (goto-char (nth 2 (car hl))) + (setq hl nil)) ;terminate the while at next iter (setq hl (cdr hl))))) (defvar Info-last-search nil