Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
1472 (while result 1472 (while result
1473 (let ((key (car (car result))) 1473 (let ((key (car (car result)))
1474 (val (cdr (car result)))) 1474 (val (cdr (car result))))
1475 (cond ((eq key 'mode) 1475 (cond ((eq key 'mode)
1476 (setq mode-p t) 1476 (setq mode-p t)
1477 (funcall (intern (concat (downcase (symbol-name val)) 1477 (and enable-local-variables
1478 "-mode")))) 1478 (funcall (intern (concat (downcase (symbol-name val))
1479 "-mode")))))
1479 (set-any-p 1480 (set-any-p
1480 (hack-one-local-variable key val)) 1481 (hack-one-local-variable key val))
1481 (t 1482 (t
1482 nil))) 1483 nil)))
1483 (setq result (cdr result))) 1484 (setq result (cdr result)))