Commit dcb380c0 authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(customize-option, customize-option-other-window): Make them handle aliases.

parent a1306094
...@@ -1021,9 +1021,12 @@ then prompt for the MODE to customize." ...@@ -1021,9 +1021,12 @@ then prompt for the MODE to customize."
(defun customize-option (symbol) (defun customize-option (symbol)
"Customize SYMBOL, which must be a user option 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)) (let ((basevar (indirect-variable symbol)))
(format "*Customize Option: %s*" (custom-buffer-create (list (list basevar 'custom-variable))
(custom-unlispify-tag-name symbol)))) (format "*Customize Option: %s*"
(custom-unlispify-tag-name basevar)))
(unless (eq symbol basevar)
(message "`%s' is an alias for `%s'" symbol basevar))))
;;;###autoload ;;;###autoload
(defalias 'customize-variable-other-window 'customize-option-other-window) (defalias 'customize-variable-other-window 'customize-option-other-window)
...@@ -1033,9 +1036,12 @@ then prompt for the MODE to customize." ...@@ -1033,9 +1036,12 @@ then prompt for the MODE to customize."
"Customize SYMBOL, which must be a user option 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 (let ((basevar (indirect-variable symbol)))
(list (list symbol 'custom-variable)) (custom-buffer-create-other-window
(format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) (list (list basevar 'custom-variable))
(format "*Customize Option: %s*" (custom-unlispify-tag-name basevar)))
(unless (eq symbol basevar)
(message "`%s' is an alias for `%s'" symbol basevar))))
(defvar customize-changed-options-previous-release "20.2" (defvar customize-changed-options-previous-release "20.2"
"Version for `customize-changed-options' to refer back to by default.") "Version for `customize-changed-options' to refer back to by default.")
......
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