Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-65
author cvs
date Mon, 13 Aug 2007 10:50:39 +0200
parents afd57c14dfc8
children 7c94d56991e1
comparison
equal deleted inserted replaced
334:58353925ad93 335:54f7aa390f4f
1535 (defun Info-build-node-completions () 1535 (defun Info-build-node-completions ()
1536 (or Info-current-file-completions 1536 (or Info-current-file-completions
1537 (let ((compl (Info-build-annotation-completions))) 1537 (let ((compl (Info-build-annotation-completions)))
1538 (save-excursion 1538 (save-excursion
1539 (save-restriction 1539 (save-restriction
1540 (widen)
1540 (if (marker-buffer Info-tag-table-marker) 1541 (if (marker-buffer Info-tag-table-marker)
1541 (progn 1542 (progn
1542 (set-buffer (marker-buffer Info-tag-table-marker)) 1543 (set-buffer (marker-buffer Info-tag-table-marker))
1543 (goto-char Info-tag-table-marker) 1544 (goto-char Info-tag-table-marker)
1544 (while (re-search-forward "\nNode: \\(.*\\)\177" nil t) 1545 (while (re-search-forward "\nNode: \\(.*\\)\177" nil t)
1545 (setq compl 1546 (setq compl
1546 (cons (list (buffer-substring (match-beginning 1) 1547 (cons (list (buffer-substring (match-beginning 1)
1547 (match-end 1))) 1548 (match-end 1)))
1548 compl)))) 1549 compl))))
1549 (widen)
1550 (goto-char (point-min)) 1550 (goto-char (point-min))
1551 (while (search-forward "\n\^_" nil t) 1551 (while (search-forward "\n\^_" nil t)
1552 (forward-line 1) 1552 (forward-line 1)
1553 (let ((beg (point))) 1553 (let ((beg (point)))
1554 (forward-line 1) 1554 (forward-line 1)