; Revert parts of previous commit

* admin/unidata/unidata-gen.el (unidata-gen-table)
(unidata-gen-table-symbol, unidata-gen-table-integer)
(unidata-gen-table-numeric, unidata-gen-table-word-list)
(unidata-describe-decomposition):
* lisp/composite.el (unicode-category-table):
* lisp/files.el (recover-file):
* lisp/frame.el (frames-on-display-list, frame-background-mode):
* lisp/language/indian.el (script-regexp-alist): Revert parts of
previous commit; it seemed innocent but caused issues.

admin/unidata/unidata-gen.el

@@ -583,7 +583,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 		(aset vec (- range start) val-code))
 	    (setq tail (cdr tail)))
 	  (setq str "\002" val-code -1 count 0)
-          (mapc (lambda (x)
+	  (mapc #'(lambda (x)
 		    (if (= val-code x)
 			(setq count (1+ count))
 		      (if (> count 2)
@@ -613,7 +613,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-gen-table-symbol (prop index default-value val-list)
   (let ((table (unidata-gen-table prop index
-                                  (lambda (x) (and (> (length x) 0)
+				  #'(lambda (x) (and (> (length x) 0)
 						     (intern x)))
 				  default-value val-list)))
     (set-char-table-extra-slot table 1 0)
@@ -622,7 +622,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-gen-table-integer (prop index default-value val-list)
   (let ((table (unidata-gen-table prop index
-                                  (lambda (x) (and (> (length x) 0)
+				  #'(lambda (x) (and (> (length x) 0)
 						     (string-to-number x)))
 				  default-value val-list)))
     (set-char-table-extra-slot table 1 0)
@@ -631,7 +631,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-gen-table-numeric (prop index default-value val-list)
   (let ((table (unidata-gen-table prop index
-                                  (lambda (x)
+				  #'(lambda (x)
 				      (if (string-match "/" x)
 					  (/ (float (string-to-number x))
 					     (string-to-number
@@ -1000,7 +1000,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
                       (cl-incf (alist-get elt (cdr word-list) 0)))))
 	      (set-char-table-range table (cons start limit) vec))))))
     (setq word-list (sort (cdr word-list)
-                          (lambda (x y) (> (cdr x) (cdr y)))))
+			  #'(lambda (x y) (> (cdr x) (cdr y)))))
     (setq tail word-list idx 0)
     (while tail
       (setcdr (car tail) (unidata-encode-word idx))
@@ -1266,7 +1266,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-describe-decomposition (val)
   (mapconcat
-   (lambda (x)
+   #'(lambda (x)
        (if (symbolp x) (symbol-name x)
 	 (concat (string ?')
 		 (compose-string (string x) 0 1 (string ?\t x ?\t))

lisp/composite.el

@@ -739,7 +739,7 @@ All non-spacing characters have this function in
   (let ((elt `([,(purecopy "\\c.\\c^+") 1 compose-gstring-for-graphic]
 	       [nil 0 compose-gstring-for-graphic])))
     (map-char-table
-     (lambda (key val)
+     #'(lambda (key val)
 	 (if (memq val '(Mn Mc Me))
 	     (set-char-table-range composition-function-table key elt)))
      unicode-category-table))

lisp/files.el

@@ -6682,7 +6682,7 @@ auto-save file, if that is more recent than the visited file."
                        (abbreviate-file-name file-name)))
 	  ((with-temp-buffer-window
 	    "*Directory*" nil
-            (lambda (window _value)
+	    #'(lambda (window _value)
 		(with-selected-window window
 		  (unwind-protect
 		      (yes-or-no-p (format "Recover auto save file %s? " file-name))

lisp/frame.el

@@ -987,7 +987,7 @@ HOST:SERVER.SCREEN).
 If DEVICE is omitted or nil, it defaults to the selected
 frame's terminal device."
   (let* ((terminal (get-device-terminal device))
-         (func (lambda (frame)
+	 (func #'(lambda (frame)
 		   (eq (frame-terminal frame) terminal))))
     (filtered-frame-list func)))
 
@@ -1165,7 +1165,7 @@ If you change this without using customize, you should use
 `frame-set-background-mode' to update existing frames;
 e.g. (mapc \\='frame-set-background-mode (frame-list))."
   :group 'faces
-  :set (lambda (var value)
+  :set #'(lambda (var value)
 	   (set-default var value)
 	   (mapc #'frame-set-background-mode (frame-list)))
   :initialize #'custom-initialize-changed

lisp/language/indian.el

@@ -376,7 +376,7 @@ South Indian language Malayalam is supported in this language environment."))
 	 (kannada . ,kannada-composable-pattern)
 	 (malayalam . ,malayalam-composable-pattern))))
   (map-char-table
-   (lambda (key val)
+   #'(lambda (key val)
        (let ((slot (assq val script-regexp-alist)))
 	 (if slot
 	     (set-char-table-range