diff lisp/term/sun-mouse.el @ 13962:dd14d8d6e7db

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

--- a/lisp/term/sun-mouse.el	Thu Jan 04 23:20:49 1996 +0000
+++ b/lisp/term/sun-mouse.el	Thu Jan 04 23:21:26 1996 +0000
@@ -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 @@
 (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 @@
 	      (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 @@
 
 (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)