(hack-one-local-variable): Clear text props from string value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5cc06f5f6694e06a706b227acebe75a8c0bae4a..75cd79827160905b9064beeaba928172b0279298 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-02  Richard M. Stallman  <rms@gnu.org>
+
+       * files.el (hack-one-local-variable):
+       Clear text props from string value.
+
 2002-04-02  Mike Williams  <mdub@bigfoot.com>
 
        * textmodes/sgml-mode.el (sgml-close-tag): Rename from

diff --git a/lisp/files.el b/lisp/files.el
index 0c9a3947b8cda4da2b1765121ddb54d831b2644b..8516212cdd7e638b57b13e88e21de563cbc2c8b5 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1994,6 +1994,11 @@ is considered risky."
           (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))))
 
 \f