[sawfish] accelerators for all menu-entries



commit 006ffa604fec2ef24eae409a8e4e67a2c5616795
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Aug 21 19:07:18 2010 +0200

    accelerators for all menu-entries

 lisp/sawfish/wm/menus.jl |   20 ++++++++++----------
 1 files changed, 10 insertions(+), 10 deletions(-)
---
diff --git a/lisp/sawfish/wm/menus.jl b/lisp/sawfish/wm/menus.jl
index b05dbea..20b5ced 100644
--- a/lisp/sawfish/wm/menus.jl
+++ b/lisp/sawfish/wm/menus.jl
@@ -151,21 +151,21 @@ before killing it.")
       (,(_ "_Customize") . custom-menu)
       ()
       (,(_ "Sessi_on")
-       (,(_ "Display Errors") display-errors)
-       (,(_ "Reload Appsmenu") update-apps-menu)
+       (,(_ "Display _Errors") display-errors)
+       (,(_ "_Reload Appsmenu") update-apps-menu)
        ()
-       (,(_ "Restart Sawfish") restart)
-       (,(_ "Quit Sawfish") quit))
+       (,(_ "Restart _Sawfish") restart)
+       (,(_ "_Quit Sawfish") quit))
       ()
       (,(_ "_Help")
-       (,(_ "_FAQ...") help:show-faq)
-       (,(_ "_News...") help:show-news)
-       (,(_ "_WWW page...") help:show-homepage)
-       (,(_ "_Manual...") help:show-programmer-manual)
+       (,(_ "Sawfish _FAQ") help:show-faq)
+       (,(_ "Sawfish _News") help:show-news)
+       (,(_ "Sawfish _Wiki") help:show-homepage)
+       (,(_ "Sawfish _Manual") help:show-programmer-manual)
        ()
-       (,(_ "_About Sawfish...") help:about))
+       (,(_ "_About Sawfish") help:about))
       ()
-      (,(_ "Kill Window") (system "xkill &"))))
+      (,(_ "_Kill Window") (system "xkill &"))))
 
   (defvar apps-menu)
 



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]