From: Kim F. Storm <storm@cua.dk>
Date: Thu, 7 Dec 2006 16:05:56 +0000 (+0000)
Subject: (Info-index): Strip leading colon from topic.
X-Git-Tag: emacs-pretest-22.0.92~257
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03e8d958c512a43e802c19fffcd6cf2eacd9e58e;p=emacs.git

(Info-index): Strip leading colon from topic.
---

diff --git a/lisp/info.el b/lisp/info.el
index 05c07220892..2318f3240dd 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2805,6 +2805,11 @@ Give an empty topic name to go to the Index node itself."
 	(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)))