From 9508896e1dd0ec0eeec1fa426ec826ac978460c6 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 14 Sep 1992 18:41:47 +0000 Subject: [PATCH] *** empty log message *** --- lisp/progmodes/etags.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 0fb0ff549a4..694700b211f 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -251,8 +251,6 @@ Returns t if it visits a tags table, or nil if there are no more in the list." default-directory (expand-file-name "TAGS" default-directory) t)))) - (if (file-directory-p tags-file-name) - (setq tags-file-name (expand-file-name "TAGS" tags-file-name))) (visit-tags-file put-in-list) t)))) @@ -264,6 +262,8 @@ Returns t if it visits a tags table, or nil if there are no more in the list." ;; directly because we don't want to get its buffer-local value ;; in the buffer we switch to. (let ((file tags-file-name)) + (if (file-directory-p file) + (setq file (expand-file-name "TAGS" file))) (if (if (get-file-buffer file) (let (win) (set-buffer (get-file-buffer file)) @@ -643,9 +643,9 @@ See documentation of variable `tags-file-name'." (defun etags-recognize-tags-table () (and (eq (char-after 1) ?\f) -;; It is annoying to flash messages on the screen briefly, -;; and this message is not useful. -- rms -;; (message "%s is an `etags' TAGS file" buffer-file-name) + ;; It is annoying to flash messages on the screen briefly, + ;; and this message is not useful. -- rms + ;; (message "%s is an `etags' TAGS file" buffer-file-name) (mapcar (function (lambda (elt) (make-local-variable (car elt)) (set (car elt) (cdr elt))))