From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Luc Teirlinck Newsgroups: gmane.emacs.devel Subject: Re: Documentation not clear for the Lisp function set-variable Date: Wed, 6 Jul 2005 20:54:37 -0500 (CDT) Message-ID: <200507070154.j671sbH26389@raven.dms.auburn.edu> References: <87slz6nr3h.fsf@jurta.org> <200506271609.j5RG9i020638@raven.dms.auburn.edu> <200506271845.j5RIj3W22159@raven.dms.auburn.edu> <200507040118.j641ImO12290@raven.dms.auburn.edu> <200507050142.j651ghI15860@raven.dms.auburn.edu> NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1120701941 13526 80.91.229.2 (7 Jul 2005 02:05:41 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 7 Jul 2005 02:05:41 +0000 (UTC) Cc: lekktu@gmail.com, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Jul 07 04:05:40 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DqLlb-0003Nv-Sb for ged-emacs-devel@m.gmane.org; Thu, 07 Jul 2005 04:05:32 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DqLmw-0007nC-Tb for ged-emacs-devel@m.gmane.org; Wed, 06 Jul 2005 22:06:54 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DqLkE-00070C-OZ for emacs-devel@gnu.org; Wed, 06 Jul 2005 22:04:07 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DqLk6-0006ub-TN for emacs-devel@gnu.org; Wed, 06 Jul 2005 22:04:00 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DqLk2-0006sj-7O for emacs-devel@gnu.org; Wed, 06 Jul 2005 22:03:54 -0400 Original-Received: from [131.204.53.104] (helo=manatee.dms.auburn.edu) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DqLjd-00072w-3V; Wed, 06 Jul 2005 22:03:29 -0400 Original-Received: from raven.dms.auburn.edu (raven.dms.auburn.edu [131.204.53.29]) by manatee.dms.auburn.edu (8.12.10/8.12.10) with ESMTP id j671ujCK009916; Wed, 6 Jul 2005 20:56:45 -0500 (CDT) Original-Received: (from teirllm@localhost) by raven.dms.auburn.edu (8.11.7p1+Sun/8.11.7) id j671sbH26389; Wed, 6 Jul 2005 20:54:37 -0500 (CDT) X-Authentication-Warning: raven.dms.auburn.edu: teirllm set sender to teirllm@dms.auburn.edu using -f Original-To: rms@gnu.org In-reply-to: (rms@gnu.org) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:40525 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:40525 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.") ============================================================