Provide 'resume.

(resume-process-args): Bind `command-line-default-directory' for
command-line-1.

diff --git a/lisp/resume.el b/lisp/resume.el
index 57019be..a41a729 100644 (file)
--- a/lisp/resume.el
+++ b/lisp/resume.el
@@ -97,7 +97,8 @@
   "Handler for command line args given when Emacs is resumed."
   (let ((start-buffer (current-buffer))
        (args-buffer (get-buffer-create resume-emacs-args-buffer))
-       length args)
+       length args
+       (command-line-default-directory default-directory))
     (unwind-protect
        (progn
          (set-buffer args-buffer)
@@ -127,7 +128,8 @@
          (resume-write-buffer-to-file (current-buffer) resume-emacs-args-file)
          ;; if nothing was in buffer, args will be null
          (or (null args)
-             (setq default-directory (file-name-as-directory (car args))
+             (setq command-line-default-directory
+                   (file-name-as-directory (car args))
                    args (cdr args)))
          ;; actually process the arguments
          (command-line-1 args))
@@ -161,4 +163,6 @@
       (write-region (point-min) (point-max) file nil 'quiet))
     (set-buffer-modified-p nil)))
 
+(provide 'resume)
+
 ;;; resume.el ends here