(font-lock-keywords-alist): Mark as risky.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 842f4e9b55d5bfa6a8a2c22145ac2748924c1dda..6e3e7b4acfb050a570b6ccce37e50a450a3d8301 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2007-04-21  Richard Stallman  <rms@gnu.org>
 
+       * font-lock.el (font-lock-keywords-alist): Mark as risky.
+
        * subr.el (read-number): Doc fix.
 
        * simple.el (pop-to-mark-command): Display message "mark popped"

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index ad2e0b8ea1b043a7ca543ad4717915f73a149eab..c826a5f20c60a780d0d5776c83875ae992ad7269 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -468,6 +468,7 @@ they are added at the end.
 
 This is normally set via `font-lock-add-keywords' and
 `font-lock-remove-keywords'.")
+(put 'font-lock-keywords-alist 'risky-local-variable t)
 
 (defvar font-lock-removed-keywords-alist nil
   "Alist of `font-lock-keywords' elements to be removed for major modes.