sawfish r4406 - trunk/lisp/sawfish/wm

[chrisb svn gnome org]

Author: chrisb
Date: Mon Feb  9 08:47:11 2009
New Revision: 4406
URL: http://svn.gnome.org/viewvc/sawfish?rev=4406&view=rev

Log:
also from autoload and keymaps

Modified:
   trunk/lisp/sawfish/wm/autoload.jl
   trunk/lisp/sawfish/wm/keymaps.jl

Modified: trunk/lisp/sawfish/wm/autoload.jl
==============================================================================
--- trunk/lisp/sawfish/wm/autoload.jl	(original)
+++ trunk/lisp/sawfish/wm/autoload.jl	Mon Feb  9 08:47:11 2009
@@ -116,7 +116,7 @@
 (autoload-command (quote slide-group-right) (quote sawfish.wm.commands.slide-window))
 (autoload-command (quote slide-group-up) (quote sawfish.wm.commands.slide-window))
 (autoload-command (quote slide-group-down) (quote sawfish.wm.commands.slide-window))
-(defgroup cycle (_ "Window Cycling") :group focus :require sawfish.wm.commands.x-cycle)
+(defgroup cycle "Window Cycling" :group focus :require sawfish.wm.commands.x-cycle)
 (autoload-command 'cycle-windows 'sawfish.wm.commands.x-cycle)
 (autoload-command 'cycle-windows-backwards 'sawfish.wm.commands.x-cycle)
 (autoload-command 'cycle-group 'sawfish.wm.commands.x-cycle)
@@ -129,9 +129,9 @@
 (autoload-command 'cycle-dock-backwards 'sawfish.wm.commands.x-cycle)
 (autoload-command (quote xterm) (quote sawfish.wm.commands.xterm))
 (autoload-command (quote 3d-hack) (quote sawfish.wm.ext.3d-hack) #:class 'default)
-(defgroup audio (_ "Sound") :require sawfish.wm.ext.audio-events)
-(defgroup match-window (_ "Matched Windows") :layout single :require sawfish.wm.ext.match-window)
-(defgroup tooltips (_ "Tooltips") :group appearance :require sawfish.wm.ext.tooltips)
+(defgroup audio "Sound" :require sawfish.wm.ext.audio-events)
+(defgroup match-window "Matched Windows" :layout single :require sawfish.wm.ext.match-window)
+(defgroup tooltips "Tooltips" :group appearance :require sawfish.wm.ext.tooltips)
 (autoload-placement-mode 'first-fit 'sawfish.wm.placement.smart #:for-normal t)
 (autoload-placement-mode 'best-fit 'sawfish.wm.placement.smart #:for-normal t)
 (autoload-placement-mode 'best-fit-group 'sawfish.wm.placement.smart #:for-normal t)

Modified: trunk/lisp/sawfish/wm/keymaps.jl
==============================================================================
--- trunk/lisp/sawfish/wm/keymaps.jl	(original)
+++ trunk/lisp/sawfish/wm/keymaps.jl	Mon Feb  9 08:47:11 2009
@@ -29,7 +29,7 @@
 	  sawfish.wm.events
 	  sawfish.wm.custom)
 
-  (defgroup bindings (_ "Bindings")
+  (defgroup bindings "Bindings"
     :layout keymaps)
 
 ;;; Customize support
@@ -88,7 +88,7 @@
 			     "W-Left" 'previous-workspace
 			     "W-Right" 'next-workspace
 			     "W-Tab" 'cycle-windows)
-    (_ "Keymap containing bindings active anywhere.")
+    "Keymap containing bindings active anywhere."
     :group bindings
     :type keymap
     :before-set (lambda () (ungrab-keymap global-keymap))
@@ -103,7 +103,7 @@
 			     "Button1-Click1" 'raise-and-pass-through-click
 			     "W-ISO_Left_Tab" 'tab-raise-left-window 
 			     "H-ISO_Left_Tab" 'tab-raise-right-window)
-    (_ "Keymap containing bindings active when a client window is focused.")
+    "Keymap containing bindings active when a client window is focused."
     :group bindings
     :type keymap
     :before-set (lambda () (ungrab-keymap window-keymap))
@@ -111,8 +111,8 @@
 
   (defcustom root-window-keymap (bind-keys (make-keymap)
 				  "Button2-Click1" 'popup-root-menu)
-    (_ "Keymap containing bindings active when the pointer is in the root window
-(or when no window is focused).")
+    "Keymap containing bindings active when the pointer is in the root window
+(or when no window is focused)."
     :group bindings
     :type keymap)
 
@@ -122,8 +122,8 @@
 			    "Button1-Off2" 'toggle-window-shaded
 			    "Button1-Move" 'move-window-interactively
 			    "Button2-Off" 'add-to-group)
-    (_ "Keymap containing bindings active when the pointer is in the title of
-a window. (Only mouse-bindings are evaluated in this map.)")
+    "Keymap containing bindings active when the pointer is in the title of
+a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
@@ -131,8 +131,8 @@
 			     "Button3-Off" 'raise-lower-window
 			     "Button2-Move" 'move-window-interactively
 			     "Button1-Move" 'resize-window-interactively)
-    (_ "Keymap containing bindings active when the pointer is in the border of
-a window. (Only mouse-bindings are evaluated in this map.)")
+    "Keymap containing bindings active when the pointer is in the border of
+a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
@@ -140,16 +140,16 @@
 				   "Button3-Click1" 'popup-window-menu
 				   "S-Button1-Off" 'delete-group
 				   "Button1-Off" 'delete-window)
-    (_ "Keymap containing bindings active when the pointer is in the close button
-of a window. (Only mouse-bindings are evaluated in this map.)")
+    "Keymap containing bindings active when the pointer is in the close button
+of a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
   (defcustom iconify-button-keymap (bind-keys (make-keymap)
 				     "Button3-Click1" 'popup-window-menu
 				     "Button1-Off" 'iconify-window)
-    (_ "Keymap containing bindings active when the pointer is in the iconify
-button of a window. (Only mouse-bindings are evaluated in this map.)")
+    "Keymap containing bindings active when the pointer is in the iconify
+button of a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
@@ -157,23 +157,23 @@
 				      "Button3-Off" 'maximize-window-horizontally-toggle
 				      "Button2-Off" 'maximize-window-vertically-toggle
 				      "Button1-Off" 'maximize-window-toggle)
-    (_ "Keymap containing bindings active when the pointer is in the maximize
-button of a window. (Only mouse-bindings are evaluated in this map.)")
+    "Keymap containing bindings active when the pointer is in the maximize
+button of a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
   (defcustom menu-button-keymap (bind-keys (make-keymap)
 				  "Button3-Off" 'delete-window
 				  "Button1-Click1" 'popup-window-menu)
-    (_ "Keymap containing bindings active when the pointer is in the menu button
-of a window. (Only mouse-bindings are evaluated in this map.)")
+    "Keymap containing bindings active when the pointer is in the menu button
+of a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
   (defcustom shade-button-keymap (bind-keys (make-keymap)
 				   "Button1-Off" 'toggle-window-shaded)
-    (_ "Keymap containing bindings active when the pointer is in the shade button
-of a window. (Only mouse-bindings are evaluated in this map.)")
+    "Keymap containing bindings active when the pointer is in the shade button
+of a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
@@ -181,7 +181,7 @@
     "Distance in pixels pointer must move before generating motion events.")
 
   (defcustom wm-modifier-value (wm-modifier)
-    (_ "Modifier key(s) used for default shortcuts.")
+    "Modifier key(s) used for default shortcuts."
     :group bindings
     :type modifier-list
     :after-set (lambda ()