wesh@dmsadel.dms.oz (Wes Hosking 269 4836) (04/22/89)
Gnu emacs vers 18.51 Interactive systems 386/V.3.106 ( and 3.2 ) Terminals - vt100, vt200,... ( or ansi ) The Gold key key emulation for the edt-emulation under emacs does not appear to support Gold keypad functions. All of our VMS types say that the emulation is unusable without this feature. The keypad emulation works ( ie. it does delete lines, etc. ) but the un-delete line feature doesn't work. ( and all the PF1 followed by other keypad push ). Has anybody using edt-emulation had similar problems, I have checked that terminfo isn't doing anything funny. Pushing the GOLD key causes ESC O P to turn up on the mini-buffer. wesh@dmsadel.dms.oz
templon@silver.bacs.indiana.edu (jeffrey templon) (04/25/89)
I have had exactly the same problem running GNU 18.52 on a VAX 8650 running VAX VMS and another 8650 running Ultrix. I sent a bug report to the bug report people and they couldn't reproduce it. Glad to see I am not losing my mind. Are you using flow control and the key-translate-table deal? I wondered if perhaps that was the problem, that the translation somehow didn't cover the GOLD key combos and thus they got ignored. Unfortunately I am not a lisper so I can't tell. Here is my flow controller in case someone wants to test this guess. It gets run at emacs startup time. Jeff P.S. Please cc: any discussion this promotes directly to me as I will not be able (probably ) to read it before it expires!!! Thanks -jt ;;; IUCF Emacs site-specific initialization file ;;; This file cobbled together by JAT to solve flow control problem. ;;; Note that control-q and control-s are remapped into control-\ ;;; and control-` (control-^ on non-VT terminals.) ;;; ;;; (setq inhibit-startup-message t) (setq delete-auto-save-files t) ;;; Make a keyboard translate table and initialize it to the identity. (setq flow-control-keyboard-translate-table (make-string 128 0)) (let ((i 0)) (while (< i 128) (aset flow-control-keyboard-translate-table i i) (setq i (1+ i)))) ;;; Now, map C-^ to C-s and C-\ to C-q (on vt100s C-^ is C-`). (aset flow-control-keyboard-translate-table ?\^^ ?\^s) (aset flow-control-keyboard-translate-table ?\^\\ ?\^q) (defun flow-on () "Handle C-s/C-q flow control by mapping C-^ to C-s and C-\ to C-q. Also tell Emacs to use CBREAK mode and interpret C-s and C-q as flow control commands. Meta-keys are ignored, and C-g discards buffered output (possibly causing incorrect screen updating)." (interactive) (setq keyboard-translate-table flow-control-keyboard-translate-table) (set-input-mode nil t)) (defun flow-off () "Turn off flow control handling. See the function flow-on." (interactive) (setq keyboard-translate-table nil) (set-input-mode t nil)) (defun prefix-region (point mark string) "Prefix the region between POINT and MARK with STRING." (interactive "*r\nsPrefix: ") (save-excursion (save-restriction (narrow-to-region point mark) (goto-char point) (replace-regexp "^" string)))) (flow-on)