diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-05-20 18:10:27 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-05-20 18:10:27 +0000 |
| commit | 0df53f796b4136d4724f7d44cca1b5bc795caf20 (patch) | |
| tree | 10dd366727fef310e5493c14cbde5821cb3864da /lisp/info-xref.el | |
| parent | 622186959ac14b8be221b8e98f8a0d39aebb718d (diff) | |
| download | emacs-0df53f796b4136d4724f7d44cca1b5bc795caf20.tar.gz | |
(info-xref-check-all-custom): Skip :tag part of
``(custom-manual :tag "Foo" "(foo)Node")''.
Diffstat (limited to 'lisp/info-xref.el')
| -rw-r--r-- | lisp/info-xref.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |