Mercurial > hg > xemacs-beta

comparison lisp/code-init.el @ 1698:4b7295e5a412

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-19 16:32:56 by youngs] 2003-09-20 Mike Alexander <mta@arbortext.com> * code-init.el (eol-detection-enabled-p): eval the initialization value.
author youngs
date Fri, 19 Sep 2003 16:32:57 +0000
parents 0b318c558de8
children 0f60caa73962
comparison
equal deleted inserted replaced
1697:20d5b69d37a1 1698:4b7295e5a412
40 :type 'boolean 40 :type 'boolean
41 ;; upon initialization, we don't want the whole business of 41 ;; upon initialization, we don't want the whole business of
42 ;; set-eol-detection to be called. We will init everything appropriately 42 ;; set-eol-detection to be called. We will init everything appropriately
43 ;; later in the same file, when reset-language-environment is called. 43 ;; later in the same file, when reset-language-environment is called.
44 :initialize #'(lambda (var val) 44 :initialize #'(lambda (var val)
45 (setq eol-detection-enabled-p val)) 45 (setq eol-detection-enabled-p (eval val)))
46 :set #'(lambda (var val) 46 :set #'(lambda (var val)
47 (set-eol-detection val) 47 (set-eol-detection val)
48 (setq eol-detection-enabled-p val))) 48 (setq eol-detection-enabled-p val)))
49 49
50 (defun set-eol-detection (flag) 50 (defun set-eol-detection (flag)