aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cus-edit.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r--lisp/cus-edit.el10
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 4369437a136..e8eded3b1af 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -878,8 +878,7 @@ then prompt for the MODE to customize."
878 (if (string-equal "" group) 878 (if (string-equal "" group)
879 (setq group 'emacs) 879 (setq group 'emacs)
880 (setq group (intern group)))) 880 (setq group (intern group))))
881 (or (get group 'custom-group) 881 (custom-load-symbol group)
882 (custom-load-symbol group))
883 (let ((name (format "*Customize Group: %s*" 882 (let ((name (format "*Customize Group: %s*"
884 (custom-unlispify-tag-name group)))) 883 (custom-unlispify-tag-name group))))
885 (if (get-buffer name) 884 (if (get-buffer name)
@@ -903,8 +902,7 @@ then prompt for the MODE to customize."
903 (if (string-equal "" group) 902 (if (string-equal "" group)
904 (setq group 'emacs) 903 (setq group 'emacs)
905 (setq group (intern group)))) 904 (setq group (intern group))))
906 (or (get group 'custom-group) 905 (custom-load-symbol group)
907 (custom-load-symbol group))
908 (let ((name (format "*Customize Group: %s*" 906 (let ((name (format "*Customize Group: %s*"
909 (custom-unlispify-tag-name group)))) 907 (custom-unlispify-tag-name group))))
910 (if (get-buffer name) 908 (if (get-buffer name)
@@ -1082,7 +1080,7 @@ suggest to customized that face, if it's customizable."
1082 t nil) 1080 t nil)
1083 "*Customize Faces*") 1081 "*Customize Faces*")
1084 (unless (facep face) 1082 (unless (facep face)
1085 (error "Invalid face %S")) 1083 (error "Invalid face %S" face))
1086 (custom-buffer-create (list (list face 'custom-face)) 1084 (custom-buffer-create (list (list face 'custom-face))
1087 (format "*Customize Face: %s*" 1085 (format "*Customize Face: %s*"
1088 (custom-unlispify-tag-name face))))) 1086 (custom-unlispify-tag-name face)))))
@@ -1108,7 +1106,7 @@ suggest to customized that face, if it's customizable."
1108 t nil) 1106 t nil)
1109 "*Customize Faces*") 1107 "*Customize Faces*")
1110 (unless (facep face) 1108 (unless (facep face)
1111 (error "Invalid face %S")) 1109 (error "Invalid face %S" face))
1112 (custom-buffer-create-other-window 1110 (custom-buffer-create-other-window
1113 (list (list face 'custom-face)) 1111 (list (list face 'custom-face))
1114 (format "*Customize Face: %s*" 1112 (format "*Customize Face: %s*"