# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1165507556 0
# Node ID 2584fedc2373cc0aeaef4030ee9c9aee709c6607
# Parent  3da08313abee224f627be4f49c749cbe4bae11b2
(Info-index): Strip leading colon from topic.

diff -r 3da08313abee -r 2584fedc2373 lisp/info.el
--- 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)))