[Emacs-diffs] /srv/bzr/emacs/trunk r111030: * lisp/progmodes/etags.el (visit-tags-table-buffer): Give a more precise

[Stefan Monnier]

------------------------------------------------------------
revno: 111030
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12974
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-11-29 15:19:11 -0500
message:
  * lisp/progmodes/etags.el (visit-tags-table-buffer): Give a more precise
  error message when the file doesn't exist.
modified:
  lisp/ChangeLog
  lisp/progmodes/etags.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-29 20:09:37 +0000
+++ b/lisp/ChangeLog    2012-11-29 20:19:11 +0000
@@ -1,3 +1,8 @@
+2012-11-29  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * simple.el (activate-mark): Run activate-mark-hook (bug#13027).

=== modified file 'lisp/progmodes/etags.el'
--- a/lisp/progmodes/etags.el   2012-07-11 23:13:41 +0000
+++ b/lisp/progmodes/etags.el   2012-11-29 20:19:11 +0000
@@ -702,7 +702,9 @@
        (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 ()