Mercurial > emacs
changeset 1136:4d4c177b980f
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 14 Sep 1992 18:41:47 +0000 |
| parents | e33f6475229a |
| children | 6f2689fa1c37 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Mon Sep 14 06:53:22 1992 +0000 +++ b/lisp/progmodes/etags.el Mon Sep 14 18:41:47 1992 +0000 @@ -251,8 +251,6 @@ 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 @@ ;; 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 @@ (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))))