mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(describe-mouse-briefly): Fix message spelling.

Browse Source
This commit is contained in:
Karl Heuer 1996-01-04 23:21:26 +00:00
parent a4cc06e29d
commit b4390c7306
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/term/sun-mouse.el
View File

@ -28,7 +28,7 @@
;;; Original idea by Stan Jefferson
;;;
;;; Modelled after the GNUEMACS keymap interface.
;;; Modeled after the GNUEMACS keymap interface.
;;;
;;; User Functions:
;;; make-mousemap, copy-mousemap,
@ -273,7 +273,7 @@ Returns nil."
(defun sm::combined-hits ()
"Read and return next mouse-hit, include possible double click"
(let ((hit1 (mouse-hit-read)))
(if (not (sm::hit-up-p hit1)) ; Up hits dont start doubles or chords.
(if (not (sm::hit-up-p hit1)) ; Up hits don't start doubles or chords.
(let ((hit2 (mouse-second-hit extra-click-wait)))
(if hit2 ; we cons'd it, we can smash it.
; (setf (sm::hit-code hit1) (logior (sm::hit-code hit1) ...))
@ -351,7 +351,7 @@ Returns list (window x y) where x and y are relative to window."
(setq re (1+ re)))
(if (= be (frame-height))
;; include partial line at bottom of frame with this window
;; id est, if window is not multple of char size.
;; id est, if window is not multiple of char size.
(setq be (1+ be)))
(if (and (>= x le) (< x re)
@ -547,7 +547,7 @@ where each mouse-list is bound to the function in REGION."
(defun describe-mouse-briefly (mouse-list)
"Print a short description of the function bound to MOUSE-LIST."
(interactive "xDescibe mouse list briefly: ")
(interactive "xDescribe mouse list briefly: ")
(let ((function (mouse-lookup (mouse-list-to-mouse-code mouse-list))))
(if function
(message "%s runs the command %s" mouse-list function)