Mercurial > emacs
comparison lisp/cus-edit.el @ 64151:292d83423c40
(customize-option, customize-option-other-window): Make them handle aliases.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Thu, 07 Jul 2005 23:19:43 +0000 |
| parents | 6fb026ad601f |
| children | ca001bc998df fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
| 64150:50ac59c8d9bd | 64151:292d83423c40 |
|---|---|
| 1019 | 1019 |
| 1020 ;;;###autoload | 1020 ;;;###autoload |
| 1021 (defun customize-option (symbol) | 1021 (defun customize-option (symbol) |
| 1022 "Customize SYMBOL, which must be a user option variable." | 1022 "Customize SYMBOL, which must be a user option variable." |
| 1023 (interactive (custom-variable-prompt)) | 1023 (interactive (custom-variable-prompt)) |
| 1024 (custom-buffer-create (list (list symbol 'custom-variable)) | 1024 (let ((basevar (indirect-variable symbol))) |
| 1025 (format "*Customize Option: %s*" | 1025 (custom-buffer-create (list (list basevar 'custom-variable)) |
| 1026 (custom-unlispify-tag-name symbol)))) | 1026 (format "*Customize Option: %s*" |
| 1027 (custom-unlispify-tag-name basevar))) | |
| 1028 (unless (eq symbol basevar) | |
| 1029 (message "`%s' is an alias for `%s'" symbol basevar)))) | |
| 1027 | 1030 |
| 1028 ;;;###autoload | 1031 ;;;###autoload |
| 1029 (defalias 'customize-variable-other-window 'customize-option-other-window) | 1032 (defalias 'customize-variable-other-window 'customize-option-other-window) |
| 1030 | 1033 |
| 1031 ;;;###autoload | 1034 ;;;###autoload |
| 1032 (defun customize-option-other-window (symbol) | 1035 (defun customize-option-other-window (symbol) |
| 1033 "Customize SYMBOL, which must be a user option variable. | 1036 "Customize SYMBOL, which must be a user option variable. |
| 1034 Show the buffer in another window, but don't select it." | 1037 Show the buffer in another window, but don't select it." |
| 1035 (interactive (custom-variable-prompt)) | 1038 (interactive (custom-variable-prompt)) |
| 1036 (custom-buffer-create-other-window | 1039 (let ((basevar (indirect-variable symbol))) |
| 1037 (list (list symbol 'custom-variable)) | 1040 (custom-buffer-create-other-window |
| 1038 (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) | 1041 (list (list basevar 'custom-variable)) |
| 1042 (format "*Customize Option: %s*" (custom-unlispify-tag-name basevar))) | |
| 1043 (unless (eq symbol basevar) | |
| 1044 (message "`%s' is an alias for `%s'" symbol basevar)))) | |
| 1039 | 1045 |
| 1040 (defvar customize-changed-options-previous-release "20.2" | 1046 (defvar customize-changed-options-previous-release "20.2" |
| 1041 "Version for `customize-changed-options' to refer back to by default.") | 1047 "Version for `customize-changed-options' to refer back to by default.") |
| 1042 | 1048 |
| 1043 ;;;###autoload | 1049 ;;;###autoload |