mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(customize-group-other-window): Handle groups not

Browse source 
yet loaded.  If buffer exists, use it unchanged.  Rename parameter
and update doc string.
This commit is contained in:
Richard M. Stallman 1998-05-09 04:59:22 +00:00
parent 9129bcc3bd
commit fd88fe732d
1 changed files with 26 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

41
lisp/cus-edit.el
View file

@ -828,21 +828,32 @@ are shown; the contents of those subgroups are initially hidden."
(custom-unlispify-tag-name group))))))
;;;###autoload
(defun customize-group-other-window (symbol)
"Customize SYMBOL, which must be a customization group."
(interactive (list (completing-read "Customize group: (default emacs) "
obarray
(lambda (symbol)
(get symbol 'custom-group))
t)))
(when (stringp symbol)
(if (string-equal "" symbol)
(setq symbol 'emacs)
(setq symbol (intern symbol))))
(custom-buffer-create-other-window
(list (list symbol 'custom-group))
(format "*Customize Group: %s*" (custom-unlispify-tag-name symbol))))
(defun customize-group-other-window (group)
"Customize GROUP, which must be a customization group."
(interactive (list (let ((completion-ignore-case t))
(completing-read "Customize group: (default emacs) "
obarray
(lambda (symbol)
(or (get symbol 'custom-loads)
(get symbol 'custom-group)))
t))))
(when (stringp group)
(if (string-equal "" group)
(setq group 'emacs)
(setq group (intern group))))
(or (get group 'custom-group)
(custom-load-symbol group))
(let ((name (format "*Customize Group: %s*"
(custom-unlispify-tag-name group))))
(if (get-buffer name)
(let ((window (selected-window)))
(switch-to-buffer-other-window name)
(select-window window))
(custom-buffer-create-other-window
(list (list group 'custom-group))
name
(concat " for group "
(custom-unlispify-tag-name group))))))
;;;###autoload
(defalias 'customize-variable 'customize-option)