Mercurial > hg > xemacs-beta
diff man/lispref/menus.texi @ 263:727739f917cb r20-5b30
Import from CVS: tag r20-5b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:24:41 +0200 |
parents | 11cf20601dec |
children | 341dac730539 |
line wrap: on
line diff
--- a/man/lispref/menus.texi Mon Aug 13 10:23:52 2007 +0200 +++ b/man/lispref/menus.texi Mon Aug 13 10:24:41 2007 +0200 @@ -244,8 +244,8 @@ :filter file-menu-filter ; file-menu-filter is a function that takes ; one argument (a list of menu items) and ; returns a list of menu items - [ "Save As..." write-file t ] - [ "Revert Buffer" revert-buffer (buffer-modified-p) ] + [ "Save As..." write-file] + [ "Revert Buffer" revert-buffer :active (buffer-modified-p) ] [ "Read Only" toggle-read-only :style toggle :selected buffer-read-only ] ) @end example @@ -621,8 +621,8 @@ @example (add-submenu nil '("%_Test" ["One" (insert "1") :accelerator ?1 :active t] - ["%_Two" (insert "2") t] - ["%_3" (insert "3") t])) + ["%_Two" (insert "2")] + ["%_3" (insert "3")])) @end example will add a new menu to the top level menubar. The new menu can be reached @@ -709,8 +709,8 @@ (setq menu-accelerator-enabled 'menu-force) (add-submenu nil '("%_Test" ["One" (insert "1") :accelerator ?1 :active t] - ["%_Two" (insert "2") t] - ["%_3" (insert "3") t])) + ["%_Two" (insert "2")] + ["%_3" (insert "3")])) @end example will add the menu "Test" to the top level menubar. Pressing C-x followed by