[Emacs-diffs] Changes to emacs/lisp/term/news.el

[Dan Nicolaescu]

Index: emacs/lisp/term/news.el
diff -c emacs/lisp/term/news.el:1.17 emacs/lisp/term/news.el:1.18
*** emacs/lisp/term/news.el:1.17        Mon Jul  4 16:49:23 2005
--- emacs/lisp/term/news.el     Wed Jul 27 18:02:07 2005
***************
*** 1,6 ****
  ;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard 
-*- no-byte-compile: t -*-
  
! ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
  
  ;; Author: FSF
  ;; Keywords: terminals
--- 1,6 ----
  ;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard 
-*- no-byte-compile: t -*-
  
! ;; Copyright (C) 1989, 1993, 2005 Free Software Foundation, Inc.
  
  ;; Author: FSF
  ;; Keywords: terminals
***************
*** 28,74 ****
  
  ;;; Code:
  
! (if (boundp 'news-fkey-prefix)
!     nil
!   ;; The terminal initialization should already have set up some keys
!   (setq news-fkey-prefix (lookup-key function-key-map "\eO"))
!   (if (not (keymapp news-fkey-prefix))
!       (error "What?  Your news termcap/terminfo has no keycaps in it"))
! 
!   ;; Termcap or terminfo will set these
!   ;; (define-key news-fkey-prefix "P" [f1])
!   ;; (define-key news-fkey-prefix "Q" [f2])
!   ;; (define-key news-fkey-prefix "R" [f3])
!   ;; (define-key news-fkey-prefix "S" [f4])
!   ;; (define-key news-fkey-prefix "T" [f5])
!   ;; (define-key news-fkey-prefix "U" [f6])
!   ;; (define-key news-fkey-prefix "V" [f7])
!   ;; (define-key news-fkey-prefix "W" [f8])
!   ;; (define-key news-fkey-prefix "X" [f9])
!   ;; (define-key news-fkey-prefix "Y" [f10])
! 
!   ;; Terminfo will set these
!   (define-key news-fkey-prefix "a" [execute])
!   (define-key news-fkey-prefix "b" [select])
!   (define-key news-fkey-prefix "c" [cancel])
!   (define-key news-fkey-prefix "M" [kp-enter])
!   (define-key news-fkey-prefix "q" [kp-1])
!   (define-key news-fkey-prefix "s" [kp-3])
!   (define-key news-fkey-prefix "u" [kp-5])
!   (define-key news-fkey-prefix "w" [kp-7])
!   (define-key news-fkey-prefix "y" [kp-9])
! 
!   ;; These aren't in either termcap or terminfo's repertoire
!   (define-key news-fkey-prefix "m" [kp-subtract])
!   (define-key news-fkey-prefix "k" [kp-add])
!   (define-key news-fkey-prefix "l" [kp-separator])
!   (define-key news-fkey-prefix "n" [kp-decimal])
!   (define-key news-fkey-prefix "p" [kp-0])
!   (define-key news-fkey-prefix "r" [kp-2])
!   (define-key news-fkey-prefix "t" [kp-4])
!   (define-key news-fkey-prefix "v" [kp-6])
!   (define-key news-fkey-prefix "x" [kp-8])
!   )
  
  ;;; arch-tag: bfe141a0-623b-4b42-b753-5d9353776c5e
  ;;; news.el ends here
--- 28,76 ----
  
  ;;; Code:
  
! (defun terminal-init-news ()
!   "Terminal initialization function for news."  
!   (if (boundp 'news-fkey-prefix)
!       nil
!     ;; The terminal initialization should already have set up some keys
!     (setq news-fkey-prefix (lookup-key function-key-map "\eO"))
!     (if (not (keymapp news-fkey-prefix))
!       (error "What?  Your news termcap/terminfo has no keycaps in it"))
! 
!     ;; Termcap or terminfo will set these
!     ;; (define-key news-fkey-prefix "P" [f1])
!     ;; (define-key news-fkey-prefix "Q" [f2])
!     ;; (define-key news-fkey-prefix "R" [f3])
!     ;; (define-key news-fkey-prefix "S" [f4])
!     ;; (define-key news-fkey-prefix "T" [f5])
!     ;; (define-key news-fkey-prefix "U" [f6])
!     ;; (define-key news-fkey-prefix "V" [f7])
!     ;; (define-key news-fkey-prefix "W" [f8])
!     ;; (define-key news-fkey-prefix "X" [f9])
!     ;; (define-key news-fkey-prefix "Y" [f10])
! 
!     ;; Terminfo will set these
!     (define-key news-fkey-prefix "a" [execute])
!     (define-key news-fkey-prefix "b" [select])
!     (define-key news-fkey-prefix "c" [cancel])
!     (define-key news-fkey-prefix "M" [kp-enter])
!     (define-key news-fkey-prefix "q" [kp-1])
!     (define-key news-fkey-prefix "s" [kp-3])
!     (define-key news-fkey-prefix "u" [kp-5])
!     (define-key news-fkey-prefix "w" [kp-7])
!     (define-key news-fkey-prefix "y" [kp-9])
! 
!     ;; These aren't in either termcap or terminfo's repertoire
!     (define-key news-fkey-prefix "m" [kp-subtract])
!     (define-key news-fkey-prefix "k" [kp-add])
!     (define-key news-fkey-prefix "l" [kp-separator])
!     (define-key news-fkey-prefix "n" [kp-decimal])
!     (define-key news-fkey-prefix "p" [kp-0])
!     (define-key news-fkey-prefix "r" [kp-2])
!     (define-key news-fkey-prefix "t" [kp-4])
!     (define-key news-fkey-prefix "v" [kp-6])
!     (define-key news-fkey-prefix "x" [kp-8])
!     ))
  
  ;;; arch-tag: bfe141a0-623b-4b42-b753-5d9353776c5e
  ;;; news.el ends here