diff options
| author | Jim Blandy | 1993-06-09 11:59:12 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-06-09 11:59:12 +0000 |
| commit | eb8c3be94e12644f506b8857e49ffef88046bb0b (patch) | |
| tree | 505c4ea5ae59214e4d6e749047d160c98191c9d2 /lisp/term | |
| parent | 16a4a21d0117ef5ed346f340f244fe199d3c8a26 (diff) | |
| download | emacs-eb8c3be94e12644f506b8857e49ffef88046bb0b.tar.gz emacs-eb8c3be94e12644f506b8857e49ffef88046bb0b.zip | |
Apply typo patches from Paul Eggert.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/README | 2 | ||||
| -rw-r--r-- | lisp/term/sun-mouse.el | 10 | ||||
| -rw-r--r-- | lisp/term/wyse50.el | 2 |
3 files changed, 7 insertions, 7 deletions
diff --git a/lisp/term/README b/lisp/term/README index 7307634c75c..e672b15dcf7 100644 --- a/lisp/term/README +++ b/lisp/term/README | |||
| @@ -162,7 +162,7 @@ key_f64 k1 function key 64 | |||
| 162 | 162 | ||
| 163 | (4) The uses of the "k0" capability are inconsistent; sometimes it | 163 | (4) The uses of the "k0" capability are inconsistent; sometimes it |
| 164 | describes F10, whereas othertimes it describes F0 and "k;" describes F10. | 164 | describes F10, whereas othertimes it describes F0 and "k;" describes F10. |
| 165 | Emacs attempts to politely accomodate both systems by testing for | 165 | Emacs attempts to politely accommodate both systems by testing for |
| 166 | "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10. | 166 | "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10. |
| 167 | ----------------------------------------------------------------------------- | 167 | ----------------------------------------------------------------------------- |
| 168 | 168 | ||
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 2356c65917a..b34c3833dd5 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el | |||
| @@ -65,7 +65,7 @@ Setting to nil limits the scrollbar to the edge or vertical dividing bar.") | |||
| 65 | 65 | ||
| 66 | (defun define-mouse (mousemap mouse-list def) | 66 | (defun define-mouse (mousemap mouse-list def) |
| 67 | "Args MOUSEMAP, MOUSE-LIST, DEF. Define MOUSE-LIST in MOUSEMAP as DEF. | 67 | "Args MOUSEMAP, MOUSE-LIST, DEF. Define MOUSE-LIST in MOUSEMAP as DEF. |
| 68 | MOUSE-LIST is a list of atoms specifing a mouse hit according to these rules: | 68 | MOUSE-LIST is a list of atoms specifying a mouse hit according to these rules: |
| 69 | * One of these atoms specifies the active region of the definition. | 69 | * One of these atoms specifies the active region of the definition. |
| 70 | text, scrollbar, modeline, minibuffer | 70 | text, scrollbar, modeline, minibuffer |
| 71 | * One or two or these atoms specify the button or button combination. | 71 | * One or two or these atoms specify the button or button combination. |
| @@ -151,7 +151,7 @@ Just like the Common Lisp function of the same name." | |||
| 151 | (defmacro sm::hit-x (hit) (list 'nth 1 hit)) | 151 | (defmacro sm::hit-x (hit) (list 'nth 1 hit)) |
| 152 | ;;; Screen y position. | 152 | ;;; Screen y position. |
| 153 | (defmacro sm::hit-y (hit) (list 'nth 2 hit)) | 153 | (defmacro sm::hit-y (hit) (list 'nth 2 hit)) |
| 154 | ;;; Millisconds since last hit. | 154 | ;;; Milliseconds since last hit. |
| 155 | (defmacro sm::hit-delta (hit) (list 'nth 3 hit)) | 155 | (defmacro sm::hit-delta (hit) (list 'nth 3 hit)) |
| 156 | 156 | ||
| 157 | (defmacro sm::hit-up-p (hit) ; A predicate. | 157 | (defmacro sm::hit-up-p (hit) ; A predicate. |
| @@ -374,7 +374,7 @@ Returns one of (text scrollbar modeline minibuffer)" | |||
| 374 | (cond ((minibuffer-window-p w) 'minibuffer) | 374 | (cond ((minibuffer-window-p w) 'minibuffer) |
| 375 | ((>= y bottom) 'modeline) | 375 | ((>= y bottom) 'modeline) |
| 376 | ((>= x right) 'scrollbar) | 376 | ((>= x right) 'scrollbar) |
| 377 | ;; far right column (window seperator) is always a scrollbar | 377 | ;; far right column (window separator) is always a scrollbar |
| 378 | ((and scrollbar-width | 378 | ((and scrollbar-width |
| 379 | ;; mouse within scrollbar-width of edge. | 379 | ;; mouse within scrollbar-width of edge. |
| 380 | (>= x (- right scrollbar-width)) | 380 | (>= x (- right scrollbar-width)) |
| @@ -596,7 +596,7 @@ evaluated for their side-effects rather than their values. | |||
| 596 | If the selected form is a menu or a symbol whose value is a menu, | 596 | If the selected form is a menu or a symbol whose value is a menu, |
| 597 | then it is displayed and evaluated as a pullright menu item. | 597 | then it is displayed and evaluated as a pullright menu item. |
| 598 | If the the FORM of the first ITEM is nil, the STRING of the item | 598 | If the the FORM of the first ITEM is nil, the STRING of the item |
| 599 | is used as a label for the menu, i.e. it's inverted and not selectible." | 599 | is used as a label for the menu, i.e. it's inverted and not selectable." |
| 600 | 600 | ||
| 601 | (if (symbolp menu) (setq menu (symbol-value menu))) | 601 | (if (symbolp menu) (setq menu (symbol-value menu))) |
| 602 | (eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu))) | 602 | (eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu))) |
| @@ -641,7 +641,7 @@ CODE values: 13 = Tool-Position, 14 = Size-in-Pixels, 18 = Size-in-Chars." | |||
| 641 | 641 | ||
| 642 | ;;; | 642 | ;;; |
| 643 | ;;; Function interface to selection/region | 643 | ;;; Function interface to selection/region |
| 644 | ;;; primative functions are defined in sunfns.c | 644 | ;;; primitive functions are defined in sunfns.c |
| 645 | ;;; | 645 | ;;; |
| 646 | (defun sun-yank-selection () | 646 | (defun sun-yank-selection () |
| 647 | "Set mark and yank the contents of the current sunwindows selection. | 647 | "Set mark and yank the contents of the current sunwindows selection. |
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el index 9cc7ff991c6..64bd9532de4 100644 --- a/lisp/term/wyse50.el +++ b/lisp/term/wyse50.el | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | 26 | ||
| 27 | ;; Uses the Emacs 19 terminal initialization features --- won't work with 18. | 27 | ;; Uses the Emacs 19 terminal initialization features --- won't work with 18. |
| 28 | ;; Rewritten for Emacs 19 by jimb, January 1992 | 28 | ;; Rewritten for Emacs 19 by jimb, January 1992 |
| 29 | ;; Cleaned up for new terminal package cinventions by esr, March 1993 | 29 | ;; Cleaned up for new terminal package conventions by esr, March 1993 |
| 30 | ;; Should work well for Televideo TVI 925 although it's overkill. | 30 | ;; Should work well for Televideo TVI 925 although it's overkill. |
| 31 | ;; | 31 | ;; |
| 32 | ;; The Wyse50 is ergonomically wonderful, but its escape-sequence design sucks | 32 | ;; The Wyse50 is ergonomically wonderful, but its escape-sequence design sucks |