aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/term
diff options
context:
space:
mode:
authorPavel Janík2001-07-16 12:23:00 +0000
committerPavel Janík2001-07-16 12:23:00 +0000
commite8af40eed41d6c61ea6a0649512c4b09afcb1bfa (patch)
tree588654cb6c38a93c432bfae53ccbf36569e3cf23 /lisp/term
parent4cba8c0bdcce038e6966aab82d08859d796e69d0 (diff)
downloademacs-e8af40eed41d6c61ea6a0649512c4b09afcb1bfa.tar.gz
emacs-e8af40eed41d6c61ea6a0649512c4b09afcb1bfa.zip
Some fixes to follow coding conventions.
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/AT386.el2
-rw-r--r--lisp/term/internal.el3
-rw-r--r--lisp/term/iris-ansi.el8
-rw-r--r--lisp/term/mac-win.el5
-rw-r--r--lisp/term/tvi970.el2
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")
966XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") 968XConsortium: 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