# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1281826902 14400
# Node ID de5d6a3f14932b28e9c749acd6f398d4dcb9d4ec
# Parent  2abe46caa97145978438ed8f73b085fdc316a78d
* lisp/progmodes/etags.el (tags-file-name): Mark safe if stringp (Bug#6733).

diff -r 2abe46caa971 -r de5d6a3f1493 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 14 18:58:10 2010 -0400
+++ b/lisp/ChangeLog	Sat Aug 14 19:01:42 2010 -0400
@@ -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 -r 2abe46caa971 -r de5d6a3f1493 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sat Aug 14 18:58:10 2010 -0400
+++ b/lisp/progmodes/etags.el	Sat Aug 14 19:01:42 2010 -0400
@@ -40,6 +40,7 @@
 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)