comparison lisp/term/news.el @ 622:11502791fc1c

[xemacs-hg @ 2001-06-22 01:49:57 by ben] dired-msw.c: Fix problem noted by Michael Sperber with directories containing [] and code that destructively modifies an existing string. term\AT386.el: Fix warnings. term\apollo.el: Removed. Kill kill kill. Sync with FSF and remove most crap. term\linux.el: Removed. Sync with FSF. Don't define most defns, because they are automatically defined by termcap. But do add defns for keys that normally get defined as f13, f14, etc. and really ought to be shift-f3, shift-f4, etc. (NOTE: I did this based on Cygwin, which emulates the Linux console. I would appreciate it if someone on Linux could verify.) term\cygwin.el: New. Load term/linux. term\lk201.el, term\news.el, term\vt100.el: Sync with FSF. Fix warnings. dialog-gtk.el: Fix warning. For 21.4: help.el, update-elc.el: Compile in proper order. Maybe for 21.4: keydefs.el: Add a defn for M-?, previously undefined, to access help -- in case the terminal is not set up right, or f1 gets redefined. README: Rewrite.
author ben
date Fri, 22 Jun 2001 01:50:04 +0000
parents 3ecd8885ac67
children 308d34e9f07d
comparison
equal deleted inserted replaced
621:29117767b6b8 622:11502791fc1c
20 ;;; You should have received a copy of the GNU General Public License 20 ;;; You should have received a copy of the GNU General Public License
21 ;;; along with XEmacs; see the file COPYING. If not, write to the 21 ;;; along with XEmacs; see the file COPYING. If not, write to the
22 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;;; Boston, MA 02111-1307, USA. 23 ;;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Synched up with: FSF 21.0.103.
26
25 ;;; Commentary: 27 ;;; Commentary:
26 28
27 ;;; Uses the Emacs 19 terminal initialization features --- won't work with 18. 29 ;;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
28 30
29 ;;; Code: 31 ;;; Code:
32
33 (defvar news-fkey-prefix)
30 34
31 (if (boundp 'news-fkey-prefix) 35 (if (boundp 'news-fkey-prefix)
32 nil 36 nil
33 ;; The terminal initialization should already have set up some keys 37 ;; The terminal initialization should already have set up some keys
34 (setq news-fkey-prefix (lookup-key function-key-map "\eO")) 38 (setq news-fkey-prefix (lookup-key function-key-map "\eO"))