From: Stefan Monnier Date: Thu, 29 Nov 2012 20:19:11 +0000 (-0500) Subject: * lisp/progmodes/etags.el (visit-tags-table-buffer): Give a more precise X-Git-Tag: emacs-24.3.90~173^2~9^2~130 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83e12fe07c18a6190c6c5ef6e959697eb0ac9f19;p=emacs.git * lisp/progmodes/etags.el (visit-tags-table-buffer): Give a more precise error message when the file doesn't exist. Fixes: debbugs:12974 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e77ddc95dd..20de699a5ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-11-29 Stefan Monnier + + * progmodes/etags.el (visit-tags-table-buffer): Give a more precise + error message when the file doesn't exist (bug#12974). + 2012-11-29 Kelly Dean (tiny change) * simple.el (activate-mark): Run activate-mark-hook (bug#13027). diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 071a0fb6037..067d89781d2 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -702,7 +702,9 @@ Returns t if it visits a tags table, or nil if there are no more in the list." (kill-local-variable 'tags-file-name) (if (eq local-tags-file-name tags-file-name) (setq tags-file-name nil)) - (user-error "File %s is not a valid tags table" + (user-error (if (file-exists-p local-tags-file-name) + "File %s is not a valid tags table" + "File %s does not exist") local-tags-file-name))))) (defun tags-reset-tags-tables ()