home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / elisp-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  1.6 KB  |  48 lines
  1. ;;;; The menus for emacs-lisp-mode.
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Thu May 12 13:56:49 1988 
  4.  
  5. (if (eq window-system 'x)
  6.     (require 'x-menus)
  7.   (require 'hci-menus))
  8. (provide 'elisp-menus)
  9.  
  10. (if (eq window-system 'x)
  11.     ;; Set up the single menu usable under X at the moment...
  12.  
  13. (defXmenu 'emacs-lisp-menu
  14.   '("Emacs Lisp Menu"
  15.     ("Emacs Lisp Menu"
  16.      ("Eval defun" call-interactively 'eval-defun)
  17.      ("Eval region" call-interactively 'eval-region)
  18.      ("Eval buffer" eval-current-buffer)
  19.      ("Eval last s-expression" call-interactively 'eval-last-sexp)
  20.      ("Eval expression" call-interactively 'eval-expression)
  21.      ("Print buffer" lpr-buffer)
  22.      ("Print region" call-interactively 'lpr-region)
  23.      ("Describe function" call-interactively 'describe-function)
  24.      ("Describe variable" call-interactively 'describe-variable)
  25.      ("Other Menus" x-mouse-other-menus))))
  26.  
  27. (defHCImenu emacs-lisp-eval-menu
  28.   ("defun" eval-defun nil)
  29.   ("region" call-interactively 'eval-region)
  30.   ("buffer" eval-current-buffer)
  31.   ("last s-expression" call-interactively 'eval-last-sexp)
  32.   ("expression" call-interactively 'eval-expression))
  33.  
  34. (defHCImenu emacs-lisp-describe-menu
  35.   ("function" call-interactively 'describe-function)
  36.   ("variable" call-interactively 'describe-variable))
  37.  
  38. (defHCImenu emacs-lisp-menu
  39.   ("Emacs Lisp Menu")
  40.   ("Eval" . emacs-lisp-eval-menu)
  41.   ("Print buffer" lpr-buffer)
  42.   ("Print region" call-interactively 'lpr-region)
  43.   ("Describe" . emacs-lisp-describe-menu)
  44.   ("Other menus" . other-menus-menu)
  45.   ("Quit" . emacs-quit-menu))
  46.  
  47.   )
  48.