/[emacs]/emacs/lisp/progmodes/etags.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/etags.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.163 by rms, Mon Mar 25 00:40:16 2002 UTC revision 1.164 by monnier, Fri Apr 12 03:03:26 2002 UTC
# Line 1210  where they were found." Line 1210  where they were found."
1210  ;; Return non-nil iff the current buffer is a valid etags TAGS file.  ;; Return non-nil iff the current buffer is a valid etags TAGS file.
1211  (defun etags-verify-tags-table ()  (defun etags-verify-tags-table ()
1212    ;; Use eq instead of = in case char-after returns nil.    ;; Use eq instead of = in case char-after returns nil.
1213    (eq (char-after 1) ?\f))    (eq (char-after (point-min)) ?\f))
1214    
1215  (defun etags-file-of-tag ()  (defun etags-file-of-tag ()
1216    (save-excursion    (save-excursion
# Line 1254  where they were found." Line 1254  where they were found."
1254          ;; the beginning of the file.          ;; the beginning of the file.
1255          (setq tag-text t          (setq tag-text t
1256                line nil                line nil
1257                startpos 1)                startpos (point-min))
1258    
1259        ;; Find the end of the tag and record the whole tag text.        ;; Find the end of the tag and record the whole tag text.
1260        (search-forward "\177")        (search-forward "\177")
# Line 1336  where they were found." Line 1336  where they were found."
1336      (beginning-of-line)))      (beginning-of-line)))
1337    
1338  (defun etags-list-tags (file)  (defun etags-list-tags (file)
1339    (goto-char 1)    (goto-char (point-min))
1340    (when (search-forward (concat "\f\n" file ",") nil t)    (when (search-forward (concat "\f\n" file ",") nil t)
1341      (forward-line 1)      (forward-line 1)
1342      (while (not (or (eobp) (looking-at "\f")))      (while (not (or (eobp) (looking-at "\f")))
# Line 1401  where they were found." Line 1401  where they were found."
1401      (princ "Tags in file `")      (princ "Tags in file `")
1402      (tags-with-face 'highlight (princ buffer-file-name))      (tags-with-face 'highlight (princ buffer-file-name))
1403      (princ "':\n\n"))      (princ "':\n\n"))
1404    (goto-char 1)    (goto-char (point-min))
1405    (while (re-search-forward string nil t)    (while (re-search-forward string nil t)
1406      (beginning-of-line)      (beginning-of-line)
1407      (let ((tag (buffer-substring (point)      (let ((tag (buffer-substring (point)
# Line 1841  see the doc of that variable if you want Line 1841  see the doc of that variable if you want
1841        (prin1 (car set-list) (current-buffer)) ;invisible        (prin1 (car set-list) (current-buffer)) ;invisible
1842        (insert "\n")        (insert "\n")
1843        (setq set-list (delete (car set-list) set-list)))        (setq set-list (delete (car set-list) set-list)))
1844      (goto-char 1)      (goto-char (point-min))
1845      (insert-before-markers      (insert-before-markers
1846       "Type `t' to select a tags table or set of tags tables:\n\n")       "Type `t' to select a tags table or set of tags tables:\n\n")
1847      (if desired-point      (if desired-point

Legend:
Removed from v.1.163  
changed lines
  Added in v.1.164

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26