* lisp/progmodes/etags.el (tags-file-name): Mark safe if stringp (Bug#6733).

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dee217104db..5eb3792ef64 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-14  Tom Tromey  <tromey@redhat.com>
+
+        * progmodes/etags.el (tags-file-name): Mark safe if stringp
+        (Bug#6733).
+
 2010-08-14  Eli Zaretskii  <eliz@gnu.org>
 
         * mouse.el (mouse-yank-primary): Fix mouse-2 on MS-Windows and
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 4f0fcd77ab5..2018a71574e 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -40,6 +40,7 @@ If you set this variable, do not also set `tags-table-list'.
 Use the `etags' program to make a tags table file.")
 ;; Make M-x set-variable tags-file-name like M-x visit-tags-table.
 ;;;###autoload (put 'tags-file-name 'variable-interactive (purecopy "fVisit tags table: "))
+;;;###autoload (put 'tags-file-name 'safe-local-variable 'stringp)
 
 (defgroup etags nil "Tags tables."
   :group 'tools)