procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Call custom-load-symbol unconditionally.
(customize-face, customize-face-other-window): Fix format arg.
This commit is contained in:
Markus Rost 2003-01-02 18:02:09 +00:00
parent 0e5ddee193
commit b59b77f136
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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'

10
lisp/cus-edit.el
View file

@ -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*"