diff options
| author | Pavel Janík | 2001-07-16 12:23:00 +0000 |
|---|---|---|
| committer | Pavel Janík | 2001-07-16 12:23:00 +0000 |
| commit | e8af40eed41d6c61ea6a0649512c4b09afcb1bfa (patch) | |
| tree | 588654cb6c38a93c432bfae53ccbf36569e3cf23 /lisp/term | |
| parent | 4cba8c0bdcce038e6966aab82d08859d796e69d0 (diff) | |
| download | emacs-e8af40eed41d6c61ea6a0649512c4b09afcb1bfa.tar.gz emacs-e8af40eed41d6c61ea6a0649512c4b09afcb1bfa.zip | |
Some fixes to follow coding conventions.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/AT386.el | 2 | ||||
| -rw-r--r-- | lisp/term/internal.el | 3 | ||||
| -rw-r--r-- | lisp/term/iris-ansi.el | 8 | ||||
| -rw-r--r-- | lisp/term/mac-win.el | 5 | ||||
| -rw-r--r-- | lisp/term/tvi970.el | 2 |
5 files changed, 13 insertions, 7 deletions
diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el index d006450380b..eae65d2fbd0 100644 --- a/lisp/term/AT386.el +++ b/lisp/term/AT386.el | |||
| @@ -33,7 +33,7 @@ | |||
| 33 | ;; The terminal initialization should already have set up some keys | 33 | ;; The terminal initialization should already have set up some keys |
| 34 | (setq AT386-keypad-map (lookup-key function-key-map "\e[")) | 34 | (setq AT386-keypad-map (lookup-key function-key-map "\e[")) |
| 35 | (if (not (keymapp AT386-keypad-map)) | 35 | (if (not (keymapp AT386-keypad-map)) |
| 36 | (error "What? Your AT386 termcap/terminfo has no keycaps in it.")) | 36 | (error "What? Your AT386 termcap/terminfo has no keycaps in it")) |
| 37 | 37 | ||
| 38 | ;; Equivalents of these are set up automatically by termcap/terminfo | 38 | ;; Equivalents of these are set up automatically by termcap/terminfo |
| 39 | ;; (define-key AT386-keypad-map "A" [up]) | 39 | ;; (define-key AT386-keypad-map "A" [up]) |
diff --git a/lisp/term/internal.el b/lisp/term/internal.el index ba0199ae6f1..aeda2b6c03e 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el | |||
| @@ -21,6 +21,8 @@ | |||
| 21 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 21 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 22 | ;; Boston, MA 02111-1307, USA. | 22 | ;; Boston, MA 02111-1307, USA. |
| 23 | 23 | ||
| 24 | ;;; Commentary: | ||
| 25 | |||
| 24 | ;;; Code: | 26 | ;;; Code: |
| 25 | 27 | ||
| 26 | ;; --------------------------------------------------------------------------- | 28 | ;; --------------------------------------------------------------------------- |
| @@ -714,4 +716,3 @@ list. You can (and should) also run it whenever the value of | |||
| 714 | (standard-display-8bit 127 255) | 716 | (standard-display-8bit 127 255) |
| 715 | 717 | ||
| 716 | ;;; internal.el ends here | 718 | ;;; internal.el ends here |
| 717 | |||
diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el index e4da16f077e..7a0df10ed17 100644 --- a/lisp/term/iris-ansi.el +++ b/lisp/term/iris-ansi.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;; term/iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps | 1 | ;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -21,6 +21,10 @@ | |||
| 21 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 21 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 22 | ;; Boston, MA 02111-1307, USA. | 22 | ;; Boston, MA 02111-1307, USA. |
| 23 | 23 | ||
| 24 | ;;; Commentary: | ||
| 25 | |||
| 26 | ;;; Code: | ||
| 27 | |||
| 24 | (define-key function-key-map "\e[120q" [S-escape]) | 28 | (define-key function-key-map "\e[120q" [S-escape]) |
| 25 | (define-key function-key-map "\e[121q" [C-escape]) | 29 | (define-key function-key-map "\e[121q" [C-escape]) |
| 26 | 30 | ||
| @@ -318,4 +322,4 @@ | |||
| 318 | (define-key function-key-map "\e[196q" [C-delete]) | 322 | (define-key function-key-map "\e[196q" [C-delete]) |
| 319 | (define-key function-key-map "\e[197q" [M-delete]) | 323 | (define-key function-key-map "\e[197q" [M-delete]) |
| 320 | 324 | ||
| 321 | ;;; term/iris-ansi.el ends here | 325 | ;;; iris-ansi.el ends here |
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 8a55ff2a139..2e1e43df81d 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; mac-win.el --- support for "Macintosh windows". | 1 | ;;; mac-win.el --- support for "Macintosh windows" |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -21,6 +21,8 @@ | |||
| 21 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 21 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 22 | ;; Boston, MA 02111-1307, USA. | 22 | ;; Boston, MA 02111-1307, USA. |
| 23 | 23 | ||
| 24 | ;;; Commentary: | ||
| 25 | |||
| 24 | ;;; Code: | 26 | ;;; Code: |
| 25 | 27 | ||
| 26 | ;; --------------------------------------------------------------------------- | 28 | ;; --------------------------------------------------------------------------- |
| @@ -966,4 +968,3 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") | |||
| 966 | XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") | 968 | XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") |
| 967 | 969 | ||
| 968 | ;;; mac-win.el ends here | 970 | ;;; mac-win.el ends here |
| 969 | |||
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el index 200ba315534..23b507bef4a 100644 --- a/lisp/term/tvi970.el +++ b/lisp/term/tvi970.el | |||
| @@ -123,4 +123,4 @@ With a negative argument, select numeric keypad mode." | |||
| 123 | 123 | ||
| 124 | (tvi970-set-keypad-mode 1) | 124 | (tvi970-set-keypad-mode 1) |
| 125 | 125 | ||
| 126 | ;;; tv970 ends here | 126 | ;;; tvi970.el ends here |