From 0a51c121e4d54fcd9e90bc0538784e2755acf1b1 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 9 May 2006 22:55:30 +0000 Subject: [PATCH] Remove `eval' and `let' binding for now unused lambda `string-or-null'. --- lisp/files.el | 48 +++++++++++++++++++++++------------------------- 1 file changed, 23 insertions(+), 25 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 861265ef3c0..29cd3038500 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2349,31 +2349,29 @@ asking you for confirmation." ;; 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) -- 2.39.5