Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 325:f2b5d7006b0a r21-0-60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-60
author cvs
date Mon, 13 Aug 2007 10:47:35 +0200
parents 19dcec799385
children 8429d81ab209
comparison
equal deleted inserted replaced
324:8f2460f6e1f6 325:f2b5d7006b0a
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)