Mercurial > hg > xemacs-beta

comparison lisp/term/sun-mouse.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 5a88923fcbfe
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
536 (princ "--------- ------") (terpri) 536 (princ "--------- ------") (terpri)
537 (print-mouse-bindings 'scrollbar))) 537 (print-mouse-bindings 'scrollbar)))
538 538
539 (defun describe-mouse-briefly (mouse-list) 539 (defun describe-mouse-briefly (mouse-list)
540 "Print a short description of the function bound to MOUSE-LIST." 540 "Print a short description of the function bound to MOUSE-LIST."
541 (interactive "xDescibe mouse list briefly: ") 541 (interactive "xDescribe mouse list briefly: ")
542 (let ((function (mouse-lookup (mouse-list-to-mouse-code mouse-list)))) 542 (let ((function (mouse-lookup (mouse-list-to-mouse-code mouse-list))))
543 (if function 543 (if function
544 (message "%s runs the command %s" mouse-list function) 544 (message "%s runs the command %s" mouse-list function)
545 (message "%s is undefined" mouse-list)))) 545 (message "%s is undefined" mouse-list))))
546 546