--- files.el~	2008-03-02 04:28:15.000000000 +0900
+++ files.el	2008-07-03 15:23:48.000000000 +0900
@@ -2846,10 +2846,14 @@
 	   (hack-one-local-variable-quotep (nth 1 exp))
 	   (hack-one-local-variable-quotep (nth 2 exp))
 	   (let ((prop (nth 1 (nth 2 exp))) (val (nth 3 exp)))
-	     (cond ((eq prop 'lisp-indent-hook)
+	     (cond ((memq prop '(lisp-indent-hook
+                                 lisp-indent-function
+                                 scheme-indent-function))
 		    ;; Only allow safe values of lisp-indent-hook;
 		    ;; not functions.
-		    (or (numberp val) (equal val ''defun)))
+		    (or (numberp val)
+                        (and (hack-one-local-variable-quotep val)
+                             (memq (nth 1 val) '(defun scheme-let-indent)))))
 		   ((eq prop 'edebug-form-spec)
 		    ;; Only allow indirect form specs.
 		    ;; During bootstrapping, edebug-basic-spec might not be