Mercurial > emacs
changeset 70540:b0678252450c
Remove `eval' and `let' binding for now unused lambda `string-or-null'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 09 May 2006 22:55:30 +0000 |
| parents | b270f677c979 |
| children | 62bb603c277b |
| files | lisp/files.el |
| diffstat | 1 files changed, 23 insertions(+), 25 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue May 09 22:43:35 2006 +0000 +++ b/lisp/files.el Tue May 09 22:55:30 2006 +0000 @@ -2349,31 +2349,29 @@ ;; For variables defined in the C source code the declaration should go here: ;; FIXME: Some variables should be moved according to the rules above. -(let ((string-or-null (lambda (a) (or (stringp a) (null a))))) - (eval - `(mapc (lambda (pair) - (put (car pair) 'safe-local-variable (cdr pair))) - '((byte-compile-dynamic . booleanp) - (byte-compile-dynamic-docstrings . booleanp) - (byte-compile-warnings . booleanp) - (c-basic-offset . integerp) - (c-file-style . stringp) - (c-indent-level . integerp) - (comment-column . integerp) - (compile-command . string-or-null-p) - (find-file-visit-truename . booleanp) - (fill-column . integerp) - (fill-prefix . string-or-null-p) - (indent-tabs-mode . booleanp) ;; C source code - (kept-old-versions . integerp) - (kept-new-versions . integerp) - (left-margin . integerp) - (no-byte-compile . booleanp) - (no-update-autoloads . booleanp) - (outline-regexp . string-or-null-p) - (tab-width . integerp) ;; C source code - (truncate-lines . booleanp) ;; C source code - (version-control . symbolp))))) +(mapc (lambda (pair) + (put (car pair) 'safe-local-variable (cdr pair))) + '((byte-compile-dynamic . booleanp) + (byte-compile-dynamic-docstrings . booleanp) + (byte-compile-warnings . booleanp) + (c-basic-offset . integerp) + (c-file-style . stringp) + (c-indent-level . integerp) + (comment-column . integerp) + (compile-command . string-or-null-p) + (find-file-visit-truename . booleanp) + (fill-column . integerp) + (fill-prefix . string-or-null-p) + (indent-tabs-mode . booleanp) ;; C source code + (kept-old-versions . integerp) + (kept-new-versions . integerp) + (left-margin . integerp) + (no-byte-compile . booleanp) + (no-update-autoloads . booleanp) + (outline-regexp . string-or-null-p) + (tab-width . integerp) ;; C source code + (truncate-lines . booleanp) ;; C source code + (version-control . symbolp))) (put 'c-set-style 'safe-local-eval-function t)