Path: utzoo!attcan!uunet!mcvax!ukc!eagle.ukc.ac.uk!icdoc!qmc-cs!harlqn!jcgs
From: jcgs@harlqn.UUCP (John Sturdy)
Newsgroups: comp.emacs
Subject: improvements to tags-helper
Message-ID: <1418@harlqn.UUCP>
Date: 31 Oct 88 15:08:02 GMT
Reply-To: jcgs@uucp (John Sturdy)
Organization: Harlequin (Cambridge, UK) Ltd.
Lines: 31

Here are some improvements for the tags-helper program I posted a while ago.
They make it handle multiple tags files quite transparently.
----------------------------------------------------------------
;;; Put this near the top of the file:
(defvar tag-lists-list nil
  "alist of tag file names to tag alists.")

;;; Put this at the end of make-tags-name-list:
(setq tag-lists-list (cons
                        (cons tags-file-name tags-name-list)
                        (delequal tags-file-name
                                  tag-lists-list)))

;;; Put this just after (interactive) in insert-tag-name:
(setq tags-name-list
        (cdr (assoc tags-file-name tag-lists-list)))

;;; put this in somewhere:
(defun delequal (item in-list)
  "Remove all occurrences of ITEM from IN-LIST, taking a copy, and not
altering anything."
  (if (null in-list)
      nil
    (if (equal item (car in-list))
        (delequal item (cdr in-list))
      (cons (car in-list) (delequal item (cdr in-list))))))
----------------------------------------------------------------
__John
                      All manner of things will be well (St. Julian of Norwich)

         jcgs@uk.co.harlqn Harlequin Ltd,Barrington,Cambridge,UK +44-223-872522