Provide 'resume.

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

1 files changed, 6 insertions, 2 deletions

diff --git a/lisp/resume.el b/lisp/resume.el
index 57019bed65e..a41a729a809 100644
--- 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