Mercurial > emacs

changeset 70775:5a774661776f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-xref-check-all-custom): Skip :tag part of ``(custom-manual :tag "Foo" "(foo)Node")''.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 20 May 2006 18:10:27 +0000
parents 437a6e9490f3
children a12bb5620cc4
files lisp/info-xref.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info-xref.el	Sat May 20 17:46:07 2006 +0000
+++ b/lisp/info-xref.el	Sat May 20 18:10:27 2006 +0000
@@ -301,7 +301,10 @@
        (lambda (symbol)
          (dolist (link (get symbol 'custom-links))
            (when (memq (car link) '(custom-manual info-link))
-             (if (info-xref-goto-node-p (cadr link))
+	     ;; skip :tag part of (custom-manual :tag "Foo" "(foo)Node")
+	     (if (eq :tag (cadr link))
+		 (setq link (cddr link)))
+	     (if (info-xref-goto-node-p (cadr link))
                  (setq good (1+ good))
                (setq bad (1+ bad))
                ;; symbol-file gives nil for preloaded variables, would need