Mercurial > emacs
diff lisp/info.el @ 90729:6588c6259dfb
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 545-562)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- erc-iswitchb: Temporarily enable iswitchb mode
* gnus--rel--5.10 (patch 172-176)
- Merge from emacs--devo--0
- Update from CVS
- Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 16 Dec 2006 01:29:26 +0000 |
| parents | a1a25ac6c88a 2584fedc2373 |
| children | bc10a33dd40b |
line wrap: on
line diff
--- a/lisp/info.el Fri Dec 15 01:34:17 2006 +0000 +++ b/lisp/info.el Sat Dec 16 01:29:26 2006 +0000 @@ -2805,6 +2805,11 @@ (kill-buffer Info-complete-menu-buffer))))) (if (equal Info-current-file "dir") (error "The Info directory node has no index; use m to select a manual")) + ;; Strip leading colon in topic; index format does not allow them. + (if (and (stringp topic) + (> (length topic) 0) + (= (aref topic 0) ?:)) + (setq topic (substring topic 1))) (let ((orignode Info-current-node) (pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^\n]*\\)\\.\\(?:[ \t\n]*(line +\\([0-9]+\\))\\)?" (regexp-quote topic)))