From 8a5e4b3bf76372f34f9a6f4ae1f42fa6eb7f5315 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 20 May 2006 18:11:02 +0000 Subject: (info-xref-check-all-custom): Skip :tag part of ``(custom-manual :tag "Foo" "(foo)Node")''. --- lisp/info-xref.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/info-xref.el') diff --git a/lisp/info-xref.el b/lisp/info-xref.el index 75bc72f25b4..a6acfa8021c 100644 --- a/lisp/info-xref.el +++ b/lisp/info-xref.el @@ -301,7 +301,10 @@ quite a while." (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 -- cgit v1.2.1