Mercurial > hg > xemacs-beta
diff lisp/prim/files.el @ 136:b980b6286996 r20-2b2
Import from CVS: tag r20-2b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:31:12 +0200 |
parents | 1370575f1259 |
children | 538048ae2ab8 |
line wrap: on
line diff
--- a/lisp/prim/files.el Mon Aug 13 09:30:13 2007 +0200 +++ b/lisp/prim/files.el Mon Aug 13 09:31:12 2007 +0200 @@ -1473,8 +1473,8 @@ (let ((key (car (car result))) (val (cdr (car result)))) (cond ((eq key 'mode) - (setq mode-p t) (and enable-local-variables + (setq mode-p t) (funcall (intern (concat (downcase (symbol-name val)) "-mode"))))) (set-any-p