Richard Stallman wrote:
If you just leave this function unchanged and install the rest,
it should work. However, it would be good to make one additional
change: the same commands should display a message of the form
`%s' is an alias for `%s'
in the echo area.
What about the following new patch?
===File ~/cus-edit-diff=====================================
*** cus-edit.el 06 Jul 2005 17:24:52 -0500 1.226
--- cus-edit.el 06 Jul 2005 20:06:50 -0500
***************
*** 1021,1029 ****
(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))))
;;;###autoload
(defalias 'customize-variable-other-window 'customize-option-other-window)
--- 1021,1032 ----
(defun customize-option (symbol)
"Customize SYMBOL, which must be a user option variable."
(interactive (custom-variable-prompt))
! (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,1041 ****
"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))))
(defvar customize-changed-options-previous-release "20.2"
"Version for `customize-changed-options' to refer back to by default.")
--- 1036,1047 ----
"Customize SYMBOL, which must be a user option variable.
Show the buffer in another window, but don't select it."
(interactive (custom-variable-prompt))
! (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.")
============================================================
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
