Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
1383 (glyph-extent (highlight-extent glyph-extent t)) 1383 (glyph-extent (highlight-extent glyph-extent t))
1384 (t (highlight-extent nil nil))) 1384 (t (highlight-extent nil nil)))
1385 (cond ((extentp help) 1385 (cond ((extentp help)
1386 (or inhibit-help-echo 1386 (or inhibit-help-echo
1387 (eq help last-help-echo-object) ;save some time 1387 (eq help last-help-echo-object) ;save some time
1388 (eq (selected-window) (minibuffer-window))
1388 (let ((hprop (extent-property help 'help-echo))) 1389 (let ((hprop (extent-property help 'help-echo)))
1389 (setq last-help-echo-object help) 1390 (setq last-help-echo-object help)
1390 (or (stringp hprop) 1391 (or (stringp hprop)
1391 (setq hprop (funcall hprop help))) 1392 (setq hprop (funcall hprop help)))
1392 (and hprop (show-help-echo hprop))))) 1393 (and hprop (show-help-echo hprop)))))
1393 ((and (featurep 'toolbar) 1394 ((and (featurep 'toolbar)
1394 (toolbar-button-p help) 1395 (toolbar-button-p help)
1395 (toolbar-button-enabled-p help)) 1396 (toolbar-button-enabled-p help))
1396 (or (not toolbar-help-enabled) 1397 (or (not toolbar-help-enabled)
1397 (eq help last-help-echo-object) ;save some time 1398 (eq help last-help-echo-object) ;save some time
1399 (eq (selected-window) (minibuffer-window))
1398 (let ((hstring (toolbar-button-help-string button))) 1400 (let ((hstring (toolbar-button-help-string button)))
1399 (setq last-help-echo-object help) 1401 (setq last-help-echo-object help)
1400 (or (stringp hstring) 1402 (or (stringp hstring)
1401 (setq hstring (funcall hstring help))) 1403 (setq hstring (funcall hstring help)))
1402 (show-help-echo hstring)))) 1404 (and hstring (show-help-echo hstring)))))
1403 (last-help-echo-object 1405 (last-help-echo-object
1404 (clear-help-echo))) 1406 (clear-help-echo)))
1405 (if mouse-grabbed-buffer (setq buffer mouse-grabbed-buffer)) 1407 (if mouse-grabbed-buffer (setq buffer mouse-grabbed-buffer))
1406 (if (and buffer (symbol-value-in-buffer 'mode-motion-hook buffer nil)) 1408 (if (and buffer (symbol-value-in-buffer 'mode-motion-hook buffer nil))
1407 (with-current-buffer buffer 1409 (with-current-buffer buffer