From b4390c7306e3931522d8c4ec53627ba2d49ec240 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 4 Jan 1996 23:21:26 +0000 Subject: [PATCH] (describe-mouse-briefly): Fix message spelling. --- lisp/term/sun-mouse.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index b34c3833dd5..711fe1dd962 100644 --- 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) -- 2.39.2