Re: help-echo in Custom

[Luc Teirlinck]

>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)))))


Sincerely,

Luc.