XEmacs 21.2.14.

[chise/xemacs-chise.git.1] / lisp / cus-edit.el

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 630c5dc..339f262 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -39,7 +39,7 @@
 ;; very slow in an average XEmacs because of the large number of
 ;; symbols requiring a large number of funcalls -- XEmacs with Gnus
 ;; can grow to some 17000 symbols without ever doing anything fancy.
-;; It would probably pay off to make a hashtable of symbols known to
+;; It would probably pay off to make a hash table of symbols known to
 ;; Custom, similar to custom-group-hash-table.
 
 ;; This is not top priority, because none of the functions that do
@@ -282,7 +282,7 @@
 (defun custom-split-regexp-maybe (regexp)
   "If REGEXP is a string, split it to a list at `\\|'.
 You can get the original back with from the result with:
-  (mapconcat 'identity result \"\\|\")
+  (mapconcat #'identity result \"\\|\")
 
 IF REGEXP is not a string, return it unchanged."
   (if (stringp regexp)
@@ -2288,7 +2288,8 @@ Match frames with dark backgrounds")
             (unless (widget-get widget :custom-form)
                 (widget-put widget :custom-form custom-face-default-form))
             (let* ((symbol (widget-value widget))
-                   (spec (or (get symbol 'saved-face)
+                   (spec (or (get symbol 'customized-face)
+                             (get symbol 'saved-face)
                              (get symbol 'face-defface-spec)
                              ;; Attempt to construct it.
                              (list (list t (face-custom-attributes-get
@@ -3016,7 +3017,7 @@ Leave point at the location of the call, or after the last expression."
                                           (not (get symbol 'force-value)))))))
                    (when value
                      (princ "\n '(")
-                     (princ symbol)
+                     (prin1 symbol)
                      (princ " ")
                      (prin1 (car value))
                      (cond (requests
@@ -3057,7 +3058,7 @@ Leave point at the location of the call, or after the last expression."
                               ;; Don't print default face here.
                               value)
                      (princ "\n '(")
-                     (princ symbol)
+                     (prin1 symbol)
                      (princ " ")
                      (prin1 value)
                      (if (or (get symbol 'face-defface-spec)