Mercurial > emacs
changeset 13962:dd14d8d6e7db
(describe-mouse-briefly): Fix message spelling.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 04 Jan 1996 23:21:26 +0000 |
| parents | ff6ac63de609 |
| children | a62c62ac5102 |
| files | lisp/term/sun-mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)