diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-05-20 18:11:02 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-05-20 18:11:02 +0000 |
| commit | 8a5e4b3bf76372f34f9a6f4ae1f42fa6eb7f5315 (patch) | |
| tree | f63d2b7b571b4d59e38e3bab7c1353be48bfbcf2 /lisp/info-xref.el | |
| parent | 664a80e90ab62cace261b1fd1727a37d6229cafd (diff) | |
| download | emacs-8a5e4b3bf76372f34f9a6f4ae1f42fa6eb7f5315.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 |