[sawfish] apps-menu.jl: make use of global xterm-program instead of local my-term-string

[Christopher Bratusek <chrisb src gnome org>]

commit cb24957e84b5f4e52d040e1f912056d2e454e73b
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Sat Oct 17 07:28:17 2009 +0200

    apps-menu.jl: make use of global xterm-program instead of local my-term-string

 ChangeLog                        |    5 +++++
 lisp/sawfish/wm/ext/apps-menu.jl |    6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index f37e4a9..8cd164a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,11 @@
 2009-10-17  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/ext/apps-menu.jl: removed dupped Development Category from Developmentmenu
 	                                    added Editors Category to Developmentmenu
+	                                    make use of global `xterm-prgoram' instead of local `my-term-string'
+
+	* OPTIONS: updated for Teikas changes
+
+	* lisp/sawfish/wm/menus.jl: updated "Reload Appsmenu" entry to call new `update-apps-menu' instead of `update-saw-menu'
 
 2009-10-16  Teika kazura <teika lavabit com>
 	* lisp/sawfish/wm/user.jl
diff --git a/lisp/sawfish/wm/ext/apps-menu.jl b/lisp/sawfish/wm/ext/apps-menu.jl
index 2032f46..4035792 100644
--- a/lisp/sawfish/wm/ext/apps-menu.jl
+++ b/lisp/sawfish/wm/ext/apps-menu.jl
@@ -43,7 +43,8 @@
 	  rep.regexp
 	  sawfish.wm
 	  sawfish.wm.menus
-	  sawfish.wm.commands)
+	  sawfish.wm.commands
+	  sawfish.wm.commands.user)
 
   (define-structure-alias apps-menu sawfish.wm.ext.apps-menu)
 
@@ -60,7 +61,6 @@ eog, nautilus or evince. If you want to have them added to your menu,
 set this to non-nil.")
   (defvar apps-menu-alphabetize t
     "Sort the apps menu alphabetically.")
-  (defvar my-term-string "xterm -e")
   (defvar apps-menu-autogen t
     "If non-nil, `apps-menu' is automatically generated from *.desktop files.")
   (defvar apps-menu-lang nil
@@ -341,7 +341,7 @@ exile it."
 	       (if (string= (cdr (assoc "Terminal" fdo-list))
 			    "true\n")
 		   (list 'system
-			 (concat my-term-string " "
+			 (concat xterm-program " -e "
 				 (trim-end (cdr (assoc "Exec" fdo-list)))
 				 " &"))
 		 (list 'system