Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-25

[gnu-emacs] / lisp / term / tvi970.el

diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el
index 89762bd4ffdc27a8ef6114491ff9206a5b07d5f5..425ac200927d0f26d59ab753ad034a60a36cb455 100644 (file)
--- a/lisp/term/tvi970.el
+++ b/lisp/term/tvi970.el
@@ -18,12 +18,13 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
-;;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
+;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
 
 ;;; Code:
 
@@ -43,13 +44,14 @@
          ;; ("\eOR"    [kp-f3])
          ;; ("\eOS"    [kp-f4])
 
-         ;; These are set by terminfo
+         ;; These might br set by terminfo
          ("\e[H"       [home])
          ("\e[Z"       [backtab])
          ("\e[i"       [print])
          ("\e[@"       [insert])
          ("\e[L"       [insertline])
          ("\e[M"       [deleteline])
+         ("\e[U"       [next])         ;; actually the `page' key
 
          ;; These won't be set up by either
          ("\eOm"       [kp-subtract])
@@ -58,22 +60,21 @@
          ("\eOM"       [kp-enter])
 
          ;; These won't be set up by either either
-         ("\e[K"       [eraseline])    ;; Not an X keysym
-         ("\e[J"       [erasepage])    ;; Not an X keysym
-         ("\e[2J"      [clear])        ;; Not an X keysym
-         ("\e[P"       [delete])       ;; Not an X keysym
-         ("\e[U"       [page])         ;; Not an X keysym
+         ("\e[K"       [key_eol])      ;; Not an X keysym
+         ("\e[J"       [key_eos])      ;; Not an X keysym
+         ("\e[2J"      [key_clear])    ;; Not an X keysym
+         ("\e[P"       [key_dc])       ;; Not an X keysym
          ("\e[g"       [S-tab])        ;; Not an X keysym
          ("\e[2N"      [clearentry])   ;; Not an X keysym
          ("\e[2K"      [S-clearentry]) ;; Not an X keysym
          ("\e[E"       [?\C-j])        ;; Not an X keysym
          ("\e[g"       [S-backtab])    ;; Not an X keysym
-         ("\e[?1i"     [S-print])      ;; Not an X keysym
-         ("\e[4h"      [S-insert])     ;; Not an X keysym
+         ("\e[?1i"     [key_sprint])   ;; Not an X keysym
+         ("\e[4h"      [key_sic])      ;; Not an X keysym
          ("\e[4l"      [S-delete])     ;; Not an X keysym
          ("\e[Q"       [S-insertline]) ;; Not an X keysym
-         ("\e[1Q"      [S-deleteline]) ;; Not an X keysym
-         ("\e[19l"     [S-eraseline])  ;; Not an X keysym
+         ("\e[1Q"      [key_sdl])      ;; Not an X keysym
+         ("\e[19l"     [key_seol])     ;; Not an X keysym
          ("\e[19h"     [S-erasepage])  ;; Not an X keysym
          ("\e[V"       [S-page])       ;; Not an X keysym
          ("\eS"        [send])         ;; Not an X keysym
@@ -114,7 +115,7 @@ With no argument, toggle between the two possible modes.
 With a positive argument, select alternate keypad mode.
 With a negative argument, select numeric keypad mode."
   (interactive "P")
-  (setq tvi970-keypad-numeric 
+  (setq tvi970-keypad-numeric
        (if (null arg)
            (not tvi970-keypad-numeric)
          (> (prefix-numeric-value arg) 0)))
@@ -122,4 +123,5 @@ With a negative argument, select numeric keypad mode."
 
 (tvi970-set-keypad-mode 1)
 
-;;; tv970 ends here
+;;; arch-tag: c1334cf0-1462-41c3-a963-c077d175f8f0
+;;; tvi970.el ends here