Path: utzoo!utgpu!watmath!uunet!bu-cs!bloom-beacon!bionet!rutgers!mailrus!tut.cis.ohio-state.edu!RDSS.UCAR.EDU!michaelis
From: michaelis@RDSS.UCAR.EDU (michaelis)
Newsgroups: gnu.emacs.bug
Subject: GNU Emacs bug in version 18.50 running on VMS
Message-ID: <8901121721.AA06922@prep.ai.mit.edu>
Date: 12 Jan 89 17:30:44 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 52

I am rather new to Emacs, but I believe I have found a bug in the program
running under VMS.  To be specific, I am running GNU Emacs 18.50 under 
VMS 4.7 with a DEC VT320 terminal set up with a VT220 ID. 

The problem is in using the vt200.el keypad definition.  My .emacs file 
listed below may help in giving you some clues to the problem...then again 
it may not.  The problem is that when I type a ^G with nothing to abort, 
GNU forgets the cursor key definitions.  However, after I attach to my 
parent process and then reenter Emacs, the cursor keys work again.  

The problem is rather annoying, and talking to the local experts around 
here has turned up nothing but a, "Hmmm, that shouldn't happen.  I don't 
know what the problem could be."

In a fit of desperation, I listed out the values of all Emacs' variables 
before and after the cursor key problem.  Result: zilch.  The variable 
listings were identical.

I hope that you can find and kill the problem for your next release of GNU 
Emacs. While you are at it, you might make the program recognize a DEC 
VT320.

-Matt Michaelis




=============================== .emacs =========================================

; Fix EMACS to use the bloody keypad keys.
;
(load "du:[michaelis.emacs]vt200.elc")

; This is a bit of a clunky way to enable the cursor keys, but it is the
; best way I have found so far.
(enable-arrow-keys)

; My personal whims.  I like to have wrap mode on.  I don't like to see
; the lines wrap around; it's too strange.
(setq text-mode-hook 'turn-on-auto-fill)
(setq-default truncate-lines t)
(setq-default fill-column 78)


;
; Make C-x s do save-buffer since we can't use C-x C-s
; and make C-x S into save-some-buffers
;
(define-key ctl-x-map "s" 'save-buffer)
(define-key ctl-x-map "S" 'save-some-buffers)

===========================================================================