info-xref.el :tag support

info-xref.el :tag support

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 251 bytes --]

A small addition to my info-xref.el to get rid of a couple of false
reports,

2006-04-17  Kevin Ryde  <user42@zip.com.au>

	* info-xref.el (info-xref-check-all-custom): Cope with :tag in
	custom-manual, as for instance used in the `font-lock' group.


[-- Attachment #2: info-xref.el.tag.diff --]
[-- Type: text/plain, Size: 604 bytes --]

*** info-xref.el.~1.11.~	2006-02-13 07:38:01.000000000 +1100
--- info-xref.el	2006-04-17 16:47:02.000000000 +1000
***************
*** 301,306 ****
--- 301,309 ----
         (lambda (symbol)
           (dolist (link (get symbol 'custom-links))
             (when (memq (car link) '(custom-manual info-link))
+              ;; skip :tag part of eg. (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))

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel

Re: info-xref.el :tag support

[Kevin Ryde]

I wrote:
>
> *** info-xref.el.~1.11.~	2006-02-13 07:38:01.000000000 +1100
> --- info-xref.el	2006-04-17 16:47:02.000000000 +1000
> ***************
> *** 301,306 ****
> --- 301,309 ----
>          (lambda (symbol)
>            (dolist (link (get symbol 'custom-links))
>              (when (memq (car link) '(custom-manual info-link))
> +              ;; skip :tag part of eg. (custom-manual :tag "Foo" "(foo)Node")
> +              (if (eq :tag (cadr link))
> +                  (setq link (cddr link)))

Could I have this applied please.

You can run M-x info-xref-check-all-custom to see the recently arisen
false positives that result without it.  (The report is clean apart
from them, which is good :-)