mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(customize-option): Renamed from custom-variable.

Browse Source 
(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.
This commit is contained in:
Richard M. Stallman 1997-06-01 06:41:08 +00:00
parent 5b5cdd97a3
commit 38d5807862
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/cus-edit.el
View File

@ -740,22 +740,24 @@ are shown; the contents of those subgroups are initially hidden."
(list (list symbol 'custom-group)) (list (list symbol 'custom-group))
(format "*Customize Group: %s*" (custom-unlispify-tag-name symbol)))) (format "*Customize Group: %s*" (custom-unlispify-tag-name symbol))))
;;;### (defalias 'customize-variable 'customize-option)
;;;###autoload ;;;###autoload
(defun customize-variable (symbol) (defun customize-option (symbol)
"Customize SYMBOL, which must be a variable." "Customize SYMBOL, which must be a user option variable."
(interactive (custom-variable-prompt)) (interactive (custom-variable-prompt))
(custom-buffer-create (list (list symbol 'custom-variable)) (custom-buffer-create (list (list symbol 'custom-variable))
(format "*Customize Variable: %s*" (format "*Customize Option: %s*"
(custom-unlispify-tag-name symbol)))) (custom-unlispify-tag-name symbol))))
;;;###autoload ;;;###autoload
(defun customize-variable-other-window (symbol) (defun customize-option-other-window (symbol)
"Customize SYMBOL, which must be a variable. "Customize SYMBOL, which must be a user option variable.
Show the buffer in another window, but don't select it." Show the buffer in another window, but don't select it."
(interactive (custom-variable-prompt)) (interactive (custom-variable-prompt))
(custom-buffer-create-other-window (custom-buffer-create-other-window
(list (list symbol 'custom-variable)) (list (list symbol 'custom-variable))
(format "*Customize Variable: %s*" (custom-unlispify-tag-name symbol)))) (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol))))
;;;###autoload ;;;###autoload
(defun customize-face (&optional symbol) (defun customize-face (&optional symbol)
@ -1331,6 +1333,7 @@ Change the state of this item."
(require load) (require load)
(error nil))) (error nil)))
;; Don't reload a file already loaded. ;; Don't reload a file already loaded.
((assoc load load-history))
((assoc (locate-library load) load-history)) ((assoc (locate-library load) load-history))
(t (t
(condition-case nil (condition-case nil