# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1147215330 0
# Node ID b0678252450c7cf02f3757292562465e35cba33a
# Parent  b270f677c9795fa23cc9de268ad038d654f19419
Remove `eval' and `let' binding for now unused lambda `string-or-null'.

diff -r b270f677c979 -r b0678252450c lisp/files.el
--- 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)