# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017789266 0
# Node ID 974edbcc8ecd740ec345e813f01bf5fc130bf4ff
# Parent  89727a7321d0b66e3bf7cfba25418cc97f4b6917
(hack-one-local-variable): Clear text props from string value.

diff -r 89727a7321d0 -r 974edbcc8ecd lisp/files.el
--- a/lisp/files.el	Tue Apr 02 22:32:15 2002 +0000
+++ b/lisp/files.el	Tue Apr 02 23:14:26 2002 +0000
@@ -1994,6 +1994,11 @@
 	   (message "Ignoring `eval:' in the local variables list")))
 	;; Ordinary variable, really set it.
 	(t (make-local-variable var)
+	   ;; Make sure the string has no text properties.
+	   ;; Some text properties can get evaluated in various ways,
+	   ;; so it is risky to put them on with a local variable list.
+	   (if (stringp val)
+	       (set-text-properties 0 (length val) nil val))
 	   (set var val))))