Commit b59b77f1 authored by Markus Rost's avatar Markus Rost

(customize-group, customize-group-other-window):

Call custom-load-symbol unconditionally.
(customize-face, customize-face-other-window): Fix format arg.
parent 0e5ddee1
2003-01-02 Markus Rost <rost@math.ohio-state.edu>
* cus-edit.el (customize-group, customize-group-other-window):
Call custom-load-symbol unconditionally.
(customize-face, customize-face-other-window): Fix format arg.
2003-01-02 John Paul Wallington <jpw@shootybangbang.com>
* menu-bar.el (menu-bar-left-scroll-bar): Set `scroll-bar-mode'
......
......@@ -878,8 +878,7 @@ then prompt for the MODE to customize."
(if (string-equal "" group)
(setq group 'emacs)
(setq group (intern group))))
(or (get group 'custom-group)
(custom-load-symbol group))
(custom-load-symbol group)
(let ((name (format "*Customize Group: %s*"
(custom-unlispify-tag-name group))))
(if (get-buffer name)
......@@ -903,8 +902,7 @@ then prompt for the MODE to customize."
(if (string-equal "" group)
(setq group 'emacs)
(setq group (intern group))))
(or (get group 'custom-group)
(custom-load-symbol group))
(custom-load-symbol group)
(let ((name (format "*Customize Group: %s*"
(custom-unlispify-tag-name group))))
(if (get-buffer name)
......@@ -1082,7 +1080,7 @@ suggest to customized that face, if it's customizable."
t nil)
"*Customize Faces*")
(unless (facep face)
(error "Invalid face %S"))
(error "Invalid face %S" face))
(custom-buffer-create (list (list face 'custom-face))
(format "*Customize Face: %s*"
(custom-unlispify-tag-name face)))))
......@@ -1108,7 +1106,7 @@ suggest to customized that face, if it's customizable."
t nil)
"*Customize Faces*")
(unless (facep face)
(error "Invalid face %S"))
(error "Invalid face %S" face))
(custom-buffer-create-other-window
(list (list face 'custom-face))
(format "*Customize Face: %s*"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment