mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Provide 'resume.

Browse source 
(resume-process-args): Bind `command-line-default-directory' for
command-line-1.
This commit is contained in:
Karl Heuer 1994-05-07 02:09:00 +00:00
parent 24768ef9ce
commit 5d2e242cb8
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/resume.el
View file

@ -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