# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1148148627 0
# Node ID 5a774661776fb57990a21c20a94a51fe90cd59ca
# Parent  437a6e9490f369343e48c98e731f9e755f8609ea
(info-xref-check-all-custom): Skip :tag part of
``(custom-manual :tag "Foo" "(foo)Node")''.

diff -r 437a6e9490f3 -r 5a774661776f lisp/info-xref.el
--- 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