Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 394:7d59cb494b73 r21-2-12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-12
author cvs
date Mon, 13 Aug 2007 11:11:37 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
393:2e030b8965b1 394:7d59cb494b73
1540 (defun Info-build-node-completions () 1540 (defun Info-build-node-completions ()
1541 (or Info-current-file-completions 1541 (or Info-current-file-completions
1542 (let ((compl (Info-build-annotation-completions))) 1542 (let ((compl (Info-build-annotation-completions)))
1543 (save-excursion 1543 (save-excursion
1544 (save-restriction 1544 (save-restriction
1545 (widen)
1545 (if (marker-buffer Info-tag-table-marker) 1546 (if (marker-buffer Info-tag-table-marker)
1546 (progn 1547 (progn
1547 (set-buffer (marker-buffer Info-tag-table-marker)) 1548 (set-buffer (marker-buffer Info-tag-table-marker))
1548 (goto-char Info-tag-table-marker) 1549 (goto-char Info-tag-table-marker)
1549 (while (re-search-forward "\nNode: \\(.*\\)\177" nil t) 1550 (while (re-search-forward "\nNode: \\(.*\\)\177" nil t)
1550 (setq compl 1551 (setq compl
1551 (cons (list (buffer-substring (match-beginning 1) 1552 (cons (list (buffer-substring (match-beginning 1)
1552 (match-end 1))) 1553 (match-end 1)))
1553 compl)))) 1554 compl))))
1554 (widen)
1555 (goto-char (point-min)) 1555 (goto-char (point-min))
1556 (while (search-forward "\n\^_" nil t) 1556 (while (search-forward "\n\^_" nil t)
1557 (forward-line 1) 1557 (forward-line 1)
1558 (let ((beg (point))) 1558 (let ((beg (point)))
1559 (forward-line 1) 1559 (forward-line 1)