diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:21:26 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:21:26 +0000 |
| commit | 3f28203c9ba15c2668dd3ff7c793fe34006ded7a (patch) | |
| tree | 2a91360ad3c09c131de9c2fa77bf514a84cf01af /lisp/term/sun-mouse.el | |
| parent | ddf024bc198ebe95bff2f860a51e7b5254161714 (diff) | |
| download | emacs-3f28203c9ba15c2668dd3ff7c793fe34006ded7a.tar.gz | |
(describe-mouse-briefly): Fix message spelling.
Diffstat (limited to 'lisp/term/sun-mouse.el')
| -rw-r--r-- | lisp/term/sun-mouse.el | 8 |
1 files 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) |