From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Luc Teirlinck Newsgroups: gmane.emacs.devel Subject: Re: help-echo in Custom Date: Thu, 14 Aug 2003 14:56:23 -0500 (CDT) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <200308141956.h7EJuN128151@raven.dms.auburn.edu> References: <200308141646.h7EGku827416@raven.dms.auburn.edu> <200308141725.h7EHPS127484@raven.dms.auburn.edu> <200308141814.h7EIEgm27566@raven.dms.auburn.edu> <200308141900.h7EJ0Kg27867@raven.dms.auburn.edu> <200308141932.h7EJWTu28065@raven.dms.auburn.edu> NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1060891374 22332 80.91.224.253 (14 Aug 2003 20:02:54 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 14 Aug 2003 20:02:54 +0000 (UTC) Cc: abraham@dina.kvl.dk, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Thu Aug 14 22:02:53 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19nOJB-0001MQ-00 for ; Thu, 14 Aug 2003 22:02:53 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 19nOJr-0001QJ-00 for ; Thu, 14 Aug 2003 22:03:35 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.20) id 19nOGg-0000e2-9n for emacs-devel@quimby.gnus.org; Thu, 14 Aug 2003 16:00:18 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.20) id 19nOFb-0006Qv-U6 for emacs-devel@gnu.org; Thu, 14 Aug 2003 15:59:11 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20) id 19nOEo-00054D-VS for emacs-devel@gnu.org; Thu, 14 Aug 2003 15:58:54 -0400 Original-Received: from [131.204.53.104] (helo=manatee.dms.auburn.edu) by monty-python.gnu.org with esmtp (Exim 4.20) id 19nOEm-0004yG-Sv for emacs-devel@gnu.org; Thu, 14 Aug 2003 15:58:20 -0400 Original-Received: from raven.dms.auburn.edu (raven.dms.auburn.edu [131.204.53.29]) by manatee.dms.auburn.edu (8.12.9/8.12.9) with ESMTP id h7EJwGeQ017274; Thu, 14 Aug 2003 14:58:17 -0500 (CDT) Original-Received: (from teirllm@localhost) by raven.dms.auburn.edu (8.11.6+Sun/8.11.6) id h7EJuN128151; Thu, 14 Aug 2003 14:56:23 -0500 (CDT) X-Authentication-Warning: raven.dms.auburn.edu: teirllm set sender to teirllm@dms.auburn.edu using -f Original-To: teirllm@dms.auburn.edu In-reply-to: <200308141932.h7EJWTu28065@raven.dms.auburn.edu> (message from Luc Teirlinck on Thu, 14 Aug 2003 14:32:29 -0500 (CDT)) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:15958 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:15958 >>From my earlier message: So why not make them admissible values for widget help-echo's anyway and make and S- show them too by putting in those two eval's ? Well better: (defun widget-echo-help (pos) "Display help-echo text for widget at POS." (let* ((widget (widget-at pos)) (help-echo (and widget (widget-get widget :help-echo)))) (if (functionp help-echo) (setq help-echo (funcall help-echo widget))) (if help-echo (message "%s" (eval help-echo))))) Sincerely, Luc.