emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Documentation not clear for the Lisp function set-variable


From: Luc Teirlinck
Subject: Re: Documentation not clear for the Lisp function set-variable
Date: Wed, 6 Jul 2005 20:54:37 -0500 (CDT)

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.")
============================================================




reply via email to

[Prev in Thread] Current Thread [Next in Thread]