From: Luc Teirlinck Date: Thu, 7 Jul 2005 23:19:43 +0000 (+0000) Subject: (customize-option, customize-option-other-window): Make them handle aliases. X-Git-Tag: emacs-pretest-22.0.90~8303 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcb380c00a9569f317e3a9b3dd2317237c296794;p=emacs.git (customize-option, customize-option-other-window): Make them handle aliases. --- diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 76e8e5bf7ba..5c3ff9448c0 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1021,9 +1021,12 @@ then prompt for the MODE to customize." (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 Option: %s*" - (custom-unlispify-tag-name symbol)))) + (let ((basevar (indirect-variable symbol))) + (custom-buffer-create (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)))) ;;;###autoload (defalias 'customize-variable-other-window 'customize-option-other-window) @@ -1033,9 +1036,12 @@ then prompt for the MODE to customize." "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 Option: %s*" (custom-unlispify-tag-name symbol)))) + (let ((basevar (indirect-variable symbol))) + (custom-buffer-create-other-window + (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" "Version for `customize-changed-options' to refer back to by default.")