home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / lisp-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  1.2 KB  |  41 lines
  1. ;;;; The menus for lisp-mode.
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Thu May 12 13:58:12 1988 
  4.  
  5. (if (eq window-system 'x)
  6.     (require 'x-menus)
  7.   (require 'hci-menus))
  8. (provide 'lisp-menus)
  9.  
  10. (if (eq window-system 'x)
  11.  
  12. (defXmenu 'lisp-menu
  13.   '("Lisp Menu"
  14.     ("Lisp Menu"
  15.      ("Send defun" call-interactively 'lisp-send-defun)
  16.      ("Send region" call-interactively 'lisp-send-region)
  17.      ("Send buffer" call-interactively 'lisp-send-buffer)
  18.      ("Print region" call-interactively 'lpr-region)
  19.      ("Print buffer" lpr-buffer)
  20.      ("Justify current defun" indent-defform)
  21.      ("Describe Lisp mode" describe-mode)
  22.      ("Other Menus" x-mouse-other-menus))))
  23.         
  24. (defHCImenu lisp-send-menu
  25.   ("defun" call-interactively 'lisp-send-defun)
  26.   ("region" call-interactively 'lisp-send-region)
  27.   ("buffer" call-interactively 'lisp-send-buffer))
  28.  
  29. (defHCImenu lisp-menu
  30.   ("Lisp Menu")
  31.   ("Send" . lisp-send-menu)
  32.   ("Justify current defun" indent-defform)
  33.   ("Print buffer" lpr-buffer)
  34.   ("Print region" call-interactively 'lpr-region)
  35.   ("Describe Lisp mode" describe-mode)
  36.   ("Other menus" . other-menus-menu)
  37.   ("Quit" . emacs-quit-menu))
  38.  
  39.   )
  40.  
  41.