; 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.

1 files changed, 6 insertions, 6 deletions

diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index d373c82feea..6f9d2703849 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -376,12 +376,12 @@ South Indian language Malayalam is supported in this language environment."))
          (kannada . ,kannada-composable-pattern)
          (malayalam . ,malayalam-composable-pattern))))
   (map-char-table
-   (lambda (key val)
-     (let ((slot (assq val script-regexp-alist)))
-       (if slot
-           (set-char-table-range
-            composition-function-table key
-            (list (vector (cdr slot) 0 #'font-shape-gstring))))))
+   #'(lambda (key val)
+       (let ((slot (assq val script-regexp-alist)))
+         (if slot
+             (set-char-table-range
+              composition-function-table key
+              (list (vector (cdr slot) 0 #'font-shape-gstring))))))
    char-script-table))
 
 (provide 'indian)