diff options
| author | Stefan Monnier <[email protected]> | 2012-11-29 15:19:11 -0500 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2012-11-29 15:19:11 -0500 |
| commit | 83e12fe07c18a6190c6c5ef6e959697eb0ac9f19 (patch) | |
| tree | 0c6d1d215de69b99ce1936ae57212f4124189239 | |
| parent | 31646597cdf1ad25ed8aa866329f0e9e0d8caa68 (diff) | |
* lisp/progmodes/etags.el (visit-tags-table-buffer): Give a more precise
error message when the file doesn't exist.
Fixes: debbugs:12974
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e77ddc95d..20de699a5e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-11-29 Stefan Monnier <[email protected]> + + * 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 <[email protected]> (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 071a0fb603..067d89781d 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 () |