home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / text-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  1.9 KB  |  64 lines
  1. ;;;; Text mode menus
  2. ;;;; George R. S. Weir, Scottish HCI Centre, <george@uk.ac.strath.hci>.
  3. ;;;; Thu May 12 14:06:12 1988 
  4.  
  5. (if (eq window-system 'x)
  6.     (require 'x-menus)
  7.   (require 'hci-menus))
  8. (provide 'text-menus)
  9.  
  10. (if (eq window-system 'x)
  11.  
  12. (defXmenu 'text-menu
  13.   '("Text Menu"
  14.     ("Text Menu"
  15.      ("Transpose chars" call-interactively 'transpose-chars)
  16.      ("Transpose words" call-interactively 'transpose-words)
  17.      ("Kill line" kill-line)
  18.      ("Yank" yank)
  19.      ("Delete horizontal space" delete-horizontal-space)
  20.      ("Upcase region" call-interactively 'upcase-region)
  21.      ("Capitalise region" call-interactively 'capitalize-region)
  22.      ("Justify paragraph" justify-paragraph)
  23.      ("Centre paragraph" center-paragraph)
  24.      ("Centre line" center-line)
  25.      ("Spell buffer" spell-buffer)
  26.      ("Print region" call-interactively 'lpr-region)
  27.      ("Print buffer" lpr-buffer)
  28.      ("Printer Queue" lpq)
  29.      ("Undo" undo)
  30.      ("Other Menus" x-mouse-other-menus))))
  31.  
  32. (defHCImenu edit-transpose-menu
  33.   ("chars" call-interactively 'transpose-chars)
  34.   ("words" call-interactively 'transpose-words))
  35.  
  36. (defHCImenu edit-menu
  37.   ("Transpose" . edit-transpose-menu)
  38.   ("Kill line" kill-line)
  39.   ("Yank" yank)
  40.   ("Start keyboard macro" call-interactively 'start-kbd-macro)
  41.   ("End keyboard macro" end-kbd-macro))
  42.  
  43. (defHCImenu print-menu
  44.   ("Print buffer" lpr-buffer)
  45.   ("Print region" call-interactively 'lpr-region)
  46.   ("Printer queue" lpq))
  47.  
  48. (defHCImenu text-menu
  49.   ("Text Menu")
  50.   ("Editing commands" . edit-menu)
  51.   ("Delete horizontal space" delete-horizontal-space)
  52.   ("Upcase region" call-interactively 'upcase-region)
  53.   ("Capitalise region" call-interactively 'capitalize-region)
  54.   ("Justify paragraph" justify-paragraph)
  55.   ("Centre paragraph" center-paragraph)
  56.   ("Centre line" center-line)
  57.   ("Spell buffer" spell-buffer)
  58.   ("Print" . print-menu)
  59.   ("Undo" undo)
  60.   ("Other menus" . other-menus-menu)
  61.   ("Quit" . emacs-quit-menu))
  62.   
  63. )
  64.