home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / infcl-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  2.3 KB  |  60 lines
  1. ;;;; Menu definitions for Allegro Common Lisp.
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Wed May  9 18:01:39 1990 
  4.  
  5. (if (eq window-system 'x)
  6.     (progn
  7.       (require 'x-menus)
  8.       (require 'x-cl-fns))
  9.   (require 'hci-menus))
  10. (provide 'infcl-menus)
  11.  
  12. (if (eq window-system 'x)
  13.  
  14. (defXmenu 'inferior-cl-menu
  15.   '("Allegro Inferior Common Lisp Menu"
  16.     ("Command Menu"
  17.      ("Previous command" call-interactively 'fi:pop-input)
  18.      ("Next command" call-interactively 'fi:push-input)
  19.      ("List command ring" call-interactively 'fi:list-input-ring)
  20.      ("Search command ring forwards"
  21.       call-interactively 'fi:re-search-forward-input)
  22.      ("Search command input backwards"
  23.       call-interactively 'fi:re-search-backward-input)     
  24.      ("Flush command" fi:subprocess-kill-input)
  25.      ("Move to start of last output" fi:subprocess-show-output)
  26.      ("Flush last output" fi:subprocess-kill-output))
  27.     ("Signal Menu"
  28.      ("Send End-Of-File signal" fi:subprocess-send-eof)
  29.      ("Send Suspend signal" fi:subprocess-suspend)
  30.      ("Send Interrupt signal" fi:subprocess-quit)
  31.      ("Send Quit signal" fi:subprocess-quit)
  32.      ("Send Kill signal" fi:subprocess-kill))
  33.     ("Help Menu"
  34.      ("Complete symbol at point" call-interactively 'fi:lisp-complete-symbol)
  35.      ("Describe symbol" call-interactively 'fi:lisp-describe)
  36.      ("Display CLtL manual entry" fi:clman)
  37.      ("Display source code" call-interactively 'fi:lisp-find-tag)
  38.      ("Display function documentation"
  39.       call-interactively 'fi:lisp-function-documentation)
  40.      ("Display argument list" call-interactively 'fi:lisp-arglist)
  41.      ("Display all callers" call-interactively 'fi:lisp-who-calls)
  42.      ("Display macroexpansion" fi:lisp-macroexpand)
  43.      ("Display full macroexpansion" call-interactively 'fi:lisp-walk)
  44.      ("Display full macroexpansion (compiler style)"
  45.       prefix-arg-supplied 'fi:lisp-walk))
  46.     ("Print Menu"
  47.      ("Print defun"
  48.       save-excursion
  49.       (mark-defun) (enscript-region (region-beginning) (region-end)))
  50.      ("Print region" enscript-region (region-beginning) (region-end))
  51.      ("Print buffer" enscript-buffer)
  52.      ("Show Printer Queue" lpq))
  53.     ("Miscellaneous Menu"
  54.      ("Describe Inferior Common Lisp mode" describe-mode)
  55.      ("Describe Key Bindings" describe-bindings)
  56.      ("Other Menus" x-mouse-other-menus))))
  57.  
  58.   )
  59.  
  60.