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