Mercurial > hg > xemacs-beta

diff lisp/prim/files.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents 9f59509498e1
children b980b6286996
line wrap: on
line diff
--- a/lisp/prim/files.el	Mon Aug 13 09:26:41 2007 +0200
+++ b/lisp/prim/files.el	Mon Aug 13 09:27:39 2007 +0200
@@ -1474,8 +1474,9 @@
 	      (val (cdr (car result))))
 	  (cond ((eq key 'mode)
 		 (setq mode-p t)
-		 (funcall (intern (concat (downcase (symbol-name val))
-					  "-mode"))))
+		 (and enable-local-variables
+		      (funcall (intern (concat (downcase (symbol-name val))
+					       "-mode")))))
 		(set-any-p
 		 (hack-one-local-variable key val))
 		(t