[Merge Req] Summary for xwem--steve--2.2--patch-8

[Steve Youngs <steve@xxxxxxxx>]

Location: steve@xxxxxxxxxxxxxx http://arch.eicq.org/2005/

Revision: xwem--steve--2.2--patch-8
Archive: steve@xxxxxxxxxxxxxx
Creator: Steve Youngs <steve@xxxxxxxx>
Date: Thu Sep 29 01:20:57 EST 2005
Standard-date: 2005-09-28 15:20:57 GMT
Modified-files: lisp/xwem-launcher.el
New-patches: steve@xxxxxxxxxxxxxx/xwem--steve--2.2--patch-8
Summary: Fix bug in setting PWD for launched apps
Keywords: bugfix

This fixes a bug in my last change that was causing `default-directory'
to be set incorrectly for launched apps.

* lisp/xwem-launcher.el (xwem-launcher-forced-pwd): Call
  `file-name-as-directory' on the default.
  (xwem-execute-program): Use `file-name-as-directory' on
  `user-home-directory'. 


* added files

    
{arch}/xwem/xwem--steve/xwem--steve--2.2/steve@xxxxxxxxxxxxxx/patch-log/patch-8

* modified files

--- orig/lisp/xwem-launcher.el
+++ mod/lisp/xwem-launcher.el
@@ -76,7 +76,8 @@
   :type 'boolean
   :group 'xwem-launcher)
 
-(defcustom xwem-launcher-forced-pwd (user-home-directory)
+(defcustom xwem-launcher-forced-pwd (file-name-as-directory
+                                    (user-home-directory))
   "*The $PWD to use when `xwem-launcher-force-pwd' is non-nil.
 
 Defaults to $HOME."
@@ -308,7 +309,8 @@
       (if xwem-launcher-force-pwd
          (setq default-directory xwem-launcher-forced-pwd)
        (unless default-directory
-         (setq default-directory (user-home-directory))))
+         (setq default-directory (file-name-as-directory
+                                  (user-home-directory)))))
 
       (erase-buffer)
       (insert (format "--- Working directory: %S\n%% %S\n"