From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: bojohan+news@dd.chalmers.se (Johan =?utf-8?Q?Bockg=C3=A5rd?=) Newsgroups: gmane.emacs.devel Subject: Re: display-completion-list should not strip text properties Date: Thu, 25 Jan 2007 00:43:26 +0100 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1169682278 2802 80.91.229.12 (24 Jan 2007 23:44:38 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 24 Jan 2007 23:44:38 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Jan 25 00:44:31 2007 Return-path: 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 1H9rn1-0005wi-IZ for ged-emacs-devel@m.gmane.org; Thu, 25 Jan 2007 00:44:27 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H9rmy-0001zV-1C for ged-emacs-devel@m.gmane.org; Wed, 24 Jan 2007 18:44:24 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1H9rmT-0001kp-3G for emacs-devel@gnu.org; Wed, 24 Jan 2007 18:43:53 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1H9rmS-0001kJ-1J for emacs-devel@gnu.org; Wed, 24 Jan 2007 18:43:52 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H9rmR-0001kD-T5 for emacs-devel@gnu.org; Wed, 24 Jan 2007 18:43:51 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1H9rmR-0002MB-7I for emacs-devel@gnu.org; Wed, 24 Jan 2007 18:43:51 -0500 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1H9rmE-00037x-N7 for emacs-devel@gnu.org; Thu, 25 Jan 2007 00:43:38 +0100 Original-Received: from gamma02.me.chalmers.se ([129.16.50.72]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 25 Jan 2007 00:43:38 +0100 Original-Received: from bojohan+news by gamma02.me.chalmers.se with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 25 Jan 2007 00:43:38 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: emacs-devel@gnu.org Original-Lines: 40 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: gamma02.me.chalmers.se Mail-Copies-To: never User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.90 (gnu/linux) Cancel-Lock: sha1:VG0pQG0gRhNkCVCeI74R0ICu2bg= X-detected-kernel: Linux 2.6, seldom 2.4 (older, 4) 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:65454 Archived-At: Richard Stallman writes: > I agree that this is a good change, and since it is simple and safe, > we can do it now. Here's a related, simple, change that I've been sitting on for a long time. By putting text properties on doc strings you can insert images and other fancy stuff in the *Help* buffer. This change makes describe-variable preserve text properties (describe-function already does so): 2007-01-24 Johan Bockgård * help-fns.el (describe-variable): Keep doc's text properties. Index: lisp/help-fns.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/help-fns.el,v retrieving revision 1.96 diff -u -r1.96 help-fns.el --- lisp/help-fns.el 23 Jan 2007 07:16:11 -0000 1.96 +++ lisp/help-fns.el 24 Jan 2007 23:15:35 -0000 @@ -596,7 +596,8 @@ "which is byte-compiled expression.\n" (format "`%s'.\n" safe-var)))) (princ "\nDocumentation:\n") - (princ (or doc "Not documented as a variable."))) + (with-current-buffer standard-output + (insert (or doc "Not documented as a variable.")))) ;; Make a link to customize if this variable can be customized. (if (custom-variable-p variable) (let ((customize-label "customize")) -- Johan Bockgård