mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(info-xref-check-all-custom): Skip :tag part of

Browse source 
``(custom-manual :tag "Foo" "(foo)Node")''.
This commit is contained in:
Eli Zaretskii 2006-05-20 18:11:02 +00:00
parent 664a80e90a
commit 8a5e4b3bf7
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2006-05-20 Kevin Ryde <user42@zip.com.au>
* info-xref.el (info-xref-check-all-custom): Skip :tag part of
``(custom-manual :tag "Foo" "(foo)Node")''.
2006-05-20 Karl Chen <quarl@cs.berkeley.edu>
* progmodes/cc-vars.el (c-backslash-column): Mark as safe if its

5
lisp/info-xref.el
View file

@ -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