(disassemble-1): Move the call to

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

diff --git a/lisp/term/news.el b/lisp/term/news.el
index 448dfd82850e59c4bcc483eb452fde346b307a10..af8635fb06dab9bdf8894f01dc2c6763bedac995 100644 (file)
--- a/lisp/term/news.el
+++ b/lisp/term/news.el
@@ -1,37 +1,39 @@
-;; news.el --- keypad and function key bindings for the Sony NEWS keyboard
+;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard
+
+;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
 
 ;; Author: FSF
 ;; Keywords: terminals
 
-;; Copyright (C) 1989 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
 ;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY.  No author or distributor
-;; accepts responsibility to anyone for the consequences of using it
-;; or for whether it serves any particular purpose or works at all,
-;; unless he says so in writing.  Refer to the GNU Emacs General Public
-;; License for full details.
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
 
-;; Everyone is granted permission to copy, modify and redistribute
-;; GNU Emacs, but only under the conditions described in the
-;; GNU Emacs General Public License.   A copy of this license is
-;; supposed to have been given to you along with GNU Emacs so you
-;; can know your rights and responsibilities.  It should be in a
-;; file named COPYING.  Among other things, the copyright notice
-;; and this notice must be preserved on all copies.
+;; 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, 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:
 
 (if (boundp 'news-fkey-prefix)
     nil
-  (setq news-fkey-prefix (make-keymap))        ; "<ESC>O" commands
-  (define-key function-key-map "\eO" news-fkey-prefix)
+  ;; 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])
@@ -60,7 +62,7 @@
   (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-period])
+  (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])