[Top][All Lists]

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

Re: help-echo in Custom

From: Luc Teirlinck
Subject: Re: help-echo in Custom
Date: Thu, 14 Aug 2003 14:56:23 -0500 (CDT)

>From my earlier message:

   So why not make them admissible values for widget help-echo's
   anyway and make <tab> and S-<tab> 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)))))



reply via email to

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