Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 1370575f1259
children 538048ae2ab8
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
1471 (mode-p nil)) 1471 (mode-p nil))
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)
1477 (and enable-local-variables 1476 (and enable-local-variables
1477 (setq mode-p t)
1478 (funcall (intern (concat (downcase (symbol-name val)) 1478 (funcall (intern (concat (downcase (symbol-name val))
1479 "-mode"))))) 1479 "-mode")))))
1480 (set-any-p 1480 (set-any-p
1481 (hack-one-local-variable key val)) 1481 (hack-one-local-variable key val))
1482 (t 1482 (t