home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / alt / lucidem / help / 261 < prev    next >
Encoding:
Internet Message Format  |  1992-08-13  |  1.4 KB
  1. Date: Thu, 13 Aug 1992 10:23:38 EST
  2. From: c23mts@kocrsv01.delcoelect.com (Mike Scheidler)
  3. Subject: Re: Could someone send an example of a nested menu (submenu)?
  4. Message-ID: <9208131523.AA06682@kocrsw12.delcoelect.com>
  5. Newsgroups: alt.lucid-emacs.help
  6. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  7. Sender: help-lucid-emacs-request@lucid.com
  8. Lines: 23
  9.  
  10. On Wed Aug 12 16:24:16 1992 bob_weiner@pts.mot.com writes:
  11. >
  12. >The doc I've seen says one can nest menus but does not show
  13. >the precise syntax.  The 'add-menu-item' code doc does not help either.
  14. >A basic example would get me going.
  15. >
  16.  
  17. Here's a small example of a nested menu definition that I have been using.
  18. I know this works with version 19.1--I hope things are still the same in 19.2.
  19.  
  20. (add-menu-item '("Search"  "String search") "Forward"  'search-forward t)
  21. (add-menu-item '("Search"  "String search") "Backward" 'search-backward t)
  22. (add-menu-item '("Search"  "Regexp search") "Forward"  're-search-forward t)
  23. (add-menu-item '("Search"  "Regexp search") "Backward" 're-search-backward t)
  24. (add-menu-item '("Search") "Replace string"            'replace-string t)
  25. (add-menu-item '("Search") "Replace regexp"            'replace-regexp t)
  26.  
  27. --
  28.  Mike Scheidler                    INTERNET:  c23mts@kocrsv01.delcoelect.com
  29.  Software Technology               UUCP:      deaes!c23mts
  30.  Delco Electronics Corporation     PHONE:     (317) 451-0642
  31.  Kokomo, IN 46904
  32.  
  33.