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

diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index b34c3833dd571674a72e700b07c17ec56aff6fe6..711fe1dd962dfe80a455a787fbfcb9ae0f927748 100644 (file)
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -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)