diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-07 02:09:00 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-07 02:09:00 +0000 |
| commit | 5d2e242cb86a1aa834b8a686f5b9ca356bda3e7a (patch) | |
| tree | b4acb146d5a61ed5cc8e4687244bba15037923d3 /lisp/resume.el | |
| parent | 24768ef9ce1bd26dd13159959d5d4e2c9ec14030 (diff) | |
| download | emacs-5d2e242cb86a1aa834b8a686f5b9ca356bda3e7a.tar.gz emacs-5d2e242cb86a1aa834b8a686f5b9ca356bda3e7a.tar.bz2 emacs-5d2e242cb86a1aa834b8a686f5b9ca356bda3e7a.zip | |
Provide 'resume.
(resume-process-args): Bind `command-line-default-directory' for
command-line-1.
Diffstat (limited to 'lisp/resume.el')
| -rw-r--r-- | lisp/resume.el | 8 |
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 |