Mercurial > hg > xemacs-beta

comparison lisp/term/sun-mouse.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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 "xDescribe mouse list briefly: ") 541 (interactive "xDescibe 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