changeset 74471:2584fedc2373

(Info-index): Strip leading colon from topic.
author Kim F. Storm <storm@cua.dk>
date Thu, 07 Dec 2006 16:05:56 +0000
parents 3da08313abee
children 389355f7baa3
files lisp/info.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Thu Dec 07 16:05:39 2006 +0000
+++ b/lisp/info.el	Thu Dec 07 16:05:56 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)))