From: Tom Tromey <tromey@redhat.com>
Date: Sat, 14 Aug 2010 23:01:42 +0000 (-0400)
Subject: * lisp/progmodes/etags.el (tags-file-name): Mark safe if stringp (Bug#6733).
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~292
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f1a6fafcf1386e556d2864768d593134d1df854;p=emacs.git

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

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)