Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 382:064ab7fed2e0 r21-2-6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-6
author cvs
date Mon, 13 Aug 2007 11:07:39 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
381:908a86f940e6 382:064ab7fed2e0
300 (extent-property extent 'glyph-widget))) 300 (extent-property extent 'glyph-widget)))
301 (help-echo (and widget (widget-get widget :help-echo)))) 301 (help-echo (and widget (widget-get widget :help-echo))))
302 (and (functionp help-echo) 302 (and (functionp help-echo)
303 (setq help-echo (funcall help-echo widget))) 303 (setq help-echo (funcall help-echo widget)))
304 (when (stringp help-echo) 304 (when (stringp help-echo)
305 (setq help-echo-owns-message t)
305 (display-message 'help-echo help-echo)))) 306 (display-message 'help-echo help-echo))))
306 307
307 (defsubst widget-handle-help-echo (extent help-echo) 308 (defsubst widget-handle-help-echo (extent help-echo)
308 (set-extent-property extent 'balloon-help help-echo) 309 (set-extent-property extent 'balloon-help help-echo)
309 (set-extent-property extent 'help-echo help-echo) 310 (set-extent-property extent 'help-echo help-echo)