home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / gnu / emacs / help / 3543 < prev    next >
Encoding:
Text File  |  1992-07-28  |  2.8 KB  |  74 lines
  1. Newsgroups: gnu.emacs.help
  2. Path: sparky!uunet!news.claremont.edu!nntp-server.caltech.edu!danlip
  3. From: danlip@cco.caltech.edu (Daniel Adam Lipofsky)
  4. Subject: binding funtion keys (answer not in FAQ)
  5. Message-ID: <1992Jul29.034810.9280@cco.caltech.edu>
  6. Sender: news@cco.caltech.edu
  7. Nntp-Posting-Host: globie
  8. Organization: California Institute of Technology, Pasadena
  9. Date: Wed, 29 Jul 1992 03:48:10 GMT
  10. Lines: 62
  11.  
  12.  
  13. I am working on one set of HP machines, and I want to get the
  14. emacs key bindings to work like the key bindings on a different
  15. set of HP machines which I have worked on previously.  I
  16. managed to get the function key bindings to work by following
  17. the answer to FAQ #127.  However, they look different from the
  18. ones on the good system.  Also, the bindings on the good system
  19. could do things like Shift-F1 and Control-F3, as well as other keys
  20. such as Menu, Prev, Next, InsertChar.  An example of the
  21. code is given below.
  22.  
  23. Can anyone tell me
  24. 1)  Why I can't just port the code over
  25. 2)  What the other machine is doing (and how I can get my machine to do it)
  26. 3)  If I can't get my machine to do it, how I can bind the function keys
  27.     with modifiers (such as Shift-F1)
  28.  
  29. An e-mail response would be best.
  30. Thank you,
  31. --danlip
  32.  
  33. ===============================================================================
  34. System I am trying to get emacs function key bindings to work on:
  35. hp9000s800 machines running HP-UX 8.
  36. GNU Emacs 18.55.19
  37.  
  38. what I did so far (which works) is
  39. (global-set-key "\e[" nil)
  40. (global-set-key "\e[11~" 'help-for-help)             ;;F1
  41. (global-set-key "\e[12~" 'find-file)             ;;F2
  42. (global-set-key "\e[13~" 'save-buffer)               ;;F3
  43. ;; and so on
  44.  
  45. what I did so far (which doesn't work) was copy the stuff from
  46. below.
  47.  
  48. ===============================================================================
  49. System with working function key bindings:
  50. hp9000s300 machines running HP-UX 8 (I think).
  51. GNU Emacs 18.57.18
  52.  
  53. the default.el file on this system contains:
  54. (global-set-key "\C-c~11@" 'help-for-help)           ;;F1
  55. (global-set-key "\C-c~12@" 'find-file)             ;;F2
  56. (global-set-key "\C-c~13@" 'save-buffer)             ;;F3
  57. ;; and so on
  58. (global-set-key "\C-c~11A" 'call-last-kbd-macro)     ;;shift-F1
  59. (global-set-key "\C-c~12A" 'start-kbd-macro)         ;;F2
  60. (global-set-key "\C-c~13A" 'end-kbd-macro)           ;;F3
  61. ;; and so on
  62. (global-set-key "\C-c~11B" 'set-mark-command)        ;;meta-F1
  63. (global-set-key "\C-c~12B" 'set-visited-file-name)   ;;F2
  64. (global-set-key "\C-c~13B" 'save-modified-buffers)   ;;F3
  65. ;; and so on
  66. ;;Note: final char is '@' + (1 for shift) + (2 for meta) + (4 for control)
  67.  
  68. ===============================================================================
  69.  
  70. -- 
  71. "The calender of the Theocracy of Muntab counts down, not up.  No-one knows
  72. why, but it might not be a good idea to hang around and find out."
  73.     --Terry Pratchett, _Wyrd_Sisters_
  74.