From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Richard Stallman <rms@gnu.org>
Newsgroups: gmane.emacs.devel
Subject: Re: defcustom and the stars.
Date: Wed, 03 Jan 2007 21:32:09 -0500
Message-ID: <E1H2IOn-0002da-Ii@fencepost.gnu.org>
References: <87d55xozrn.fsf@lrde.org> <jwvodpg69xd.fsf-monnier+emacs@gnu.org>
	<877iw4pdyo.fsf@lrde.org>
Reply-To: rms@gnu.org
NNTP-Posting-Host: lo.gmane.org
Content-Type: text/plain; charset=ISO-8859-15
X-Trace: sea.gmane.org 1167878223 22228 80.91.229.12 (4 Jan 2007 02:37:03 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Thu, 4 Jan 2007 02:37:03 +0000 (UTC)
Cc: monnier@iro.umontreal.ca, emacs-devel@gnu.org
Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Jan 04 03:37:01 2007
Return-path: <emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org>
Envelope-to: ged-emacs-devel@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1H2ITT-0001iC-Az
	for ged-emacs-devel@m.gmane.org; Thu, 04 Jan 2007 03:36:59 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1H2ITS-0006cY-4A
	for ged-emacs-devel@m.gmane.org; Wed, 03 Jan 2007 21:36:58 -0500
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1H2IPA-0003Uv-3s
	for emacs-devel@gnu.org; Wed, 03 Jan 2007 21:32:32 -0500
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1H2IP9-0003U9-GQ
	for emacs-devel@gnu.org; Wed, 03 Jan 2007 21:32:31 -0500
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1H2IP9-0003Tr-3f
	for emacs-devel@gnu.org; Wed, 03 Jan 2007 21:32:31 -0500
Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.52) id 1H2IP8-0003rv-Qo
	for emacs-devel@gnu.org; Wed, 03 Jan 2007 21:32:30 -0500
Original-Received: from rms by fencepost.gnu.org with local (Exim 4.60)
	(envelope-from <rms@gnu.org>)
	id 1H2IOn-0002da-Ii; Wed, 03 Jan 2007 21:32:09 -0500
Original-To: michael@cadilhac.name (=?iso-8859-1?Q?Micha=EBl?= Cadilhac)
In-reply-to: <877iw4pdyo.fsf@lrde.org> (michael@cadilhac.name)
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Emacs development discussions." <emacs-devel.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-devel>
List-Post: <mailto:emacs-devel@gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=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:64732
Archived-At: <http://permalink.gmane.org/gmane.emacs.devel/64732>

This change

    + 	      ;; If DOC starts with a `*' remove it.
    + 	      (when (eq (aref doc 0) ?*)
    + 		(setq doc (substring doc 1)))

might be ok, but I am not sure it is really right -- it seems
like a hard question.  So I would rather leave this alone, for now.

    ! 	      (if (user-variable-p variable)
    ! 		  (let ((change-label "change"))
    ! 		    (terpri)
    ! 		    (terpri)
    ! 		    (princ (concat "You can " change-label
    ! 				   " at user level this variable."))
    ! 		    (with-current-buffer standard-output
    ! 		      (save-excursion
    ! 			(re-search-backward
    ! 			 (concat "\\(" change-label "\\)") nil t)
    ! 			(help-xref-button 1 'help-change-variable variable))))))

What is that meant to achieve?
What does the feature look like at user level?