home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / shell-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  1.3 KB  |  43 lines
  1. ;;;; The Shell mode menus.
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Thu May 12 13:59:35 1988 
  4.  
  5. (if (eq window-system 'x)
  6.     (require 'x-menus)
  7.   (require 'hci-menus))
  8. (provide 'shell-menus)
  9.  
  10. (if (eq window-system 'x)
  11.  
  12. (defXmenu 'shell-menu
  13.   '("Process Menu"
  14.     ("Process Menu"
  15.      ("Copy previous command" copy-last-shell-input)
  16.      ("Show last output" show-output-from-shell)
  17.      ("Flush last output" kill-output-from-shell)
  18.      ("Suspend process" stop-shell-subjob)
  19.      ("Restart process" continue-shell-subjob)
  20.      ("Interrupt process" interrupt-shell-subjob)
  21.      ("Quit process" quit-shell-subjob)
  22.      ("Describe this mode" describe-mode)
  23.      ("Other Menus" x-mouse-other-menus))))
  24.  
  25. (defHCImenu shell-signal-menu
  26.   ("interrupt signal" interrupt-shell-subjob)
  27.   ("stop signal" stop-shell-subjob)
  28.   ("quit signal" quit-shell-subjob))
  29.  
  30. (defHCImenu shell-menu
  31.   ;; This menu is inherited by all shell-mode buffers, e.g.
  32.   ;; the inferior lisps and prologs, and the TeX shell.
  33.   ("Process Menu")
  34.   ("Copy previous command" copy-last-shell-input)
  35.   ("Show last output" show-output-from-shell)
  36.   ("Flush last output" kill-output-from-shell)
  37.   ("Send process" . shell-signal-menu)
  38.   ("Describe this mode" describe-mode)
  39.   ("Other menus" . other-menus-menu)
  40.   ("Quit" . emacs-quit-menu))
  41.  
  42.   )
  43.