(iconify-or-deiconify-frame): New function. Use it for C-z.

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

diff --git a/lisp/term/news.el b/lisp/term/news.el
index 448dfd82850e59c4bcc483eb452fde346b307a10..fe54ff9b43ab4401fb971619f8ae66fae93a6adf 100644 (file)
--- a/lisp/term/news.el
+++ b/lisp/term/news.el
@@ -3,24 +3,23 @@
 ;; Author: FSF
 ;; Keywords: terminals
 
-;; Copyright (C) 1989 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
 
-;; This file is part of GNU Emacs.
-
-;; 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.
-
-;; 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.
+;;; 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; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; 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.
 
 ;;; Commentary:
 
@@ -30,8 +29,10 @@
 
 (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])