home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / emacs / 2849 < prev    next >
Encoding:
Text File  |  1992-08-13  |  2.0 KB  |  56 lines
  1. Xref: sparky comp.emacs:2849 comp.sys.dec:4513
  2. Path: sparky!uunet!sun-barr!cs.utexas.edu!ut-emx!slcs.slb.com!aa.cad.slb.com!braun
  3. From: braun@mailhost.aa.cad.slb.com (Matthew Braun)
  4. Newsgroups: comp.emacs,comp.sys.dec
  5. Subject: Remove key on DECstation under Xwindows
  6. Message-ID: <1992Aug13.151752.8531@mailhost.aa.cad.slb.com>
  7. Date: 13 Aug 92 15:17:52 GMT
  8. Sender: usenet@mailhost.aa.cad.slb.com (Usenet Administrator)
  9. Organization: Schlumberger CAD/CAM in Ann Arbor, MI
  10. Lines: 44
  11.  
  12. Info:  DECstation 5000/200, LK201 keyboard, X11R4, twm or mwm
  13.  
  14. Can anyone think of a reason the Remove key would send ^[[3~ to a xterm
  15. window and send nothing to an emacs window?
  16.  
  17. In a xterm, run 'cat > /dev/null'
  18.   then press: <Remove> <Return> <Ctrl-D>
  19. and you will see the above characters that are send to a xterm window.
  20.  
  21. In an emacs window, it sends nothing.
  22.   Press <Ctrl-Q> (runs quoted-insert command)
  23.   then press Remove... nothing!  (unless it works for you)
  24.   You can try other keys, like Find, Select, Prev, Next.  They work.
  25.  
  26. I am trying to define my keyboard in the .emacs file, they all work
  27. (except Remove) when emacs creates its own window:
  28.  
  29. (defvar CSI-map nil " ")
  30. (if (not CSI-map)
  31.   (progn
  32.     (setq CSI-map (make-keymap))
  33.     (define-key global-map "\e[" CSI-map)
  34.     (define-key CSI-map "1~" 'set-mark-command)         ;; Find
  35.     (define-key CSI-map "2~" 'beginning-of-line)        ;; Insert Here
  36.     (define-key CSI-map "3~" 'scroll-down)              ;; Remove
  37.     (define-key CSI-map "4~" 'delete-char)              ;; Select
  38.     (define-key CSI-map "5~" 'end-of-line)              ;; Prev Screen
  39.     (define-key CSI-map "6~" 'scroll-up)                ;; Next Screen 
  40.     (define-key CSI-map "25~" 'beginning-of-buffer)     ;; F13
  41.     (define-key CSI-map "26~" 'end-of-buffer)           ;; F14
  42. ))
  43.  
  44. All these definitions work including the Remove key if start emacs in a
  45. xterm window with:  emacs -t `tty`
  46.  
  47.  
  48. Please email, I'll post a summary if there is interest.
  49.  
  50. Thanks,
  51.  
  52. Matthew
  53.  
  54. ---------------
  55. internet: braun@falcon.aa.cad.slb.com
  56.