From 38d580786287fc8356a31df214a73cee91738c6a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 Jun 1997 06:41:08 +0000 Subject: [PATCH] (customize-option): Renamed from custom-variable. (customize-variable): Add it as an alias. (customize-option-other-window): Renamed from customize-variable-other-window. (custom-load-symbol): Search for both short and absolute names of the library, when avoiding duplicate loading. --- lisp/cus-edit.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 8c4bf9deef6..c6f35c9e754 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -740,22 +740,24 @@ are shown; the contents of those subgroups are initially hidden." (list (list symbol 'custom-group)) (format "*Customize Group: %s*" (custom-unlispify-tag-name symbol)))) +;;;### (defalias 'customize-variable 'customize-option) + ;;;###autoload -(defun customize-variable (symbol) - "Customize SYMBOL, which must be a variable." +(defun customize-option (symbol) + "Customize SYMBOL, which must be a user option variable." (interactive (custom-variable-prompt)) (custom-buffer-create (list (list symbol 'custom-variable)) - (format "*Customize Variable: %s*" + (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) ;;;###autoload -(defun customize-variable-other-window (symbol) - "Customize SYMBOL, which must be a variable. +(defun customize-option-other-window (symbol) + "Customize SYMBOL, which must be a user option variable. Show the buffer in another window, but don't select it." (interactive (custom-variable-prompt)) (custom-buffer-create-other-window (list (list symbol 'custom-variable)) - (format "*Customize Variable: %s*" (custom-unlispify-tag-name symbol)))) + (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) ;;;###autoload (defun customize-face (&optional symbol) @@ -1331,6 +1333,7 @@ Change the state of this item." (require load) (error nil))) ;; Don't reload a file already loaded. + ((assoc load load-history)) ((assoc (locate-library load) load-history)) (t (condition-case nil -- 2.39.5