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