diff lisp/info.el @ 335:54f7aa390f4f r21-0-65

Import from CVS: tag r21-0-65
author cvs
date Mon, 13 Aug 2007 10:50:39 +0200
parents afd57c14dfc8
children 7c94d56991e1
line wrap: on
line diff
--- a/lisp/info.el	Mon Aug 13 10:49:52 2007 +0200
+++ b/lisp/info.el	Mon Aug 13 10:50:39 2007 +0200
@@ -1537,6 +1537,7 @@
       (let ((compl (Info-build-annotation-completions)))
 	(save-excursion
 	  (save-restriction
+	    (widen)
 	    (if (marker-buffer Info-tag-table-marker)
 		(progn
 		  (set-buffer (marker-buffer Info-tag-table-marker))
@@ -1546,7 +1547,6 @@
 			  (cons (list (buffer-substring (match-beginning 1)
 							(match-end 1)))
 				compl))))
-	      (widen)
 	      (goto-char (point-min))
 	      (while (search-forward "\n\^_" nil t)
 		(forward-line 1)