home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / emacs / 3478 < prev    next >
Encoding:
Text File  |  1992-11-08  |  1.2 KB  |  36 lines
  1. Path: sparky!uunet!ukma!wupost!csus.edu!ucdavis!caldwr!rfinch
  2. From: rfinch@water.ca.gov (Ralph Finch)
  3. Newsgroups: comp.emacs
  4. Subject: demacs: tags table fix
  5. Message-ID: <RFINCH.92Nov5211057@venice.water.ca.gov>
  6. Date: 6 Nov 92 05:10:57 GMT
  7. Sender: root@caldwr.water.ca.gov
  8. Organization: Calif. Dept. of Water Resources
  9. Lines: 25
  10.  
  11. Anybody else have problems with tag files with demacs?  The supplied
  12. detags works fine, but there was a problem in tags.el...replacement
  13. below for tag-table-files seems to fix it.
  14.  
  15. (defun tag-table-files ()
  16.   "Return a list of files in the current tag table.
  17. File names returned are absolute."
  18.   (save-excursion
  19.    (visit-tags-table-buffer)
  20.    (or tag-table-files
  21.        (let (files)
  22.     (goto-char (point-min))
  23.     (while (re-search-forward " \n\\([^,]+\\),[0-9]+$" nil t)
  24.       (setq files (cons (expand-file-name
  25.                  (buffer-substring (match-beginning 1) (match-end 1))
  26.                  (file-name-directory tags-file-name))
  27.                 files))
  28.       (goto-char (match-end 0))
  29.       )
  30.     (setq tag-table-files (nreverse files))))))
  31.  
  32. --
  33. Ralph Finch            916-653-8268
  34. rfinch@water.ca.gov        ...ucbvax!ucdavis!caldwr!rfinch
  35. Any opinions expressed are my own; they do not represent the DWR
  36.