home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / bug-lucid-emacs / text0044.txt < prev    next >
Encoding:
Text File  |  1993-07-04  |  1.6 KB  |  42 lines
  1. Start up a virgin Lucid Emacs 19.6 (lemacs -q).
  2.  
  3. Type M-x shell (to define the following functions that are used).
  4.  
  5. Put the following code in the *scratch* buffer:
  6.  
  7. ---------------------------------------------------------------
  8. (setq comint-mode-map (make-keymap))            ;; 1
  9. (set-keymap-name comint-mode-map 'comint-mode-map)    ;; 2
  10. (define-key comint-mode-map "\C-a" 'beginning-of-line)    ;; 3
  11. (define-key comint-mode-map "\C-c\C-a" 'comint-bol)    ;; 4
  12. (use-local-map comint-mode-map)                ;; 5
  13. (setq shell-mode-map (make-keymap))            ;; 6
  14. (set-keymap-parent shell-mode-map comint-mode-map)    ;; 7 
  15. (set-keymap-name shell-mode-map 'shell-mode-map)    ;; 8
  16. (define-key shell-mode-map "\C-c\C-p" 'send-invisible)    ;; 9
  17. (use-local-map shell-mode-map)                ;; 10
  18. (use-local-map comint-mode-map)                ;; 11
  19. (keymap-parent shell-mode-map)                ;; 12
  20. ---------------------------------------------------------------
  21.  
  22. Evaluate lines 1 through 5 (make sure you hit C-x C-e *before* the
  23. comment on each line), then hit C-c C-a.  You should go to the start
  24. of the line (i.e. 'comint-bol).
  25.  
  26. Now evaluate lines 6 through 10, then hit C-c C-a.  Lucid Emacs 19.6
  27. tells me that C-c C-a is not defined at this point.  This is the bug.
  28.  
  29. Now evaluate line 11.  Hit C-c C-a, and you go to the start of the
  30. line as expected.
  31.  
  32. Now evaluate line 12.  #<keymap comint-mode-map> as expected.
  33.  
  34. Is this a bug, or am I losing my mind ?
  35.  
  36. -- 
  37. --------------------------------------------- _--_|\  |
  38. Rod Whitby (rwhitby@research.canon.oz.au)    /      \ |
  39. Canon Information Systems Research Australia \_.--._/ |
  40. 1 Thomas Holt Drive, North Ryde, N.S.W., 2113.     v  |
  41.  
  42.