Mercurial > emacs
comparison lisp/resume.el @ 49597:e88404e8f2cf
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 12:29:42 +0000 |
| parents | b1a3fef3d648 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49596:b06535145619 | 49597:e88404e8f2cf |
|---|---|
| 82 (setq args (cons (buffer-substring begin (point)) args))) | 82 (setq args (cons (buffer-substring begin (point)) args))) |
| 83 (skip-chars-forward " \t\n")) | 83 (skip-chars-forward " \t\n")) |
| 84 ;; arguments are now in reverse order | 84 ;; arguments are now in reverse order |
| 85 (setq args (nreverse args)) | 85 (setq args (nreverse args)) |
| 86 ;; make sure they're not read again | 86 ;; make sure they're not read again |
| 87 (erase-buffer)) | 87 (erase-buffer)) |
| 88 (resume-write-buffer-to-file (current-buffer) resume-emacs-args-file) | 88 (resume-write-buffer-to-file (current-buffer) resume-emacs-args-file) |
| 89 ;; if nothing was in buffer, args will be null | 89 ;; if nothing was in buffer, args will be null |
| 90 (or (null args) | 90 (or (null args) |
| 91 (setq command-line-default-directory | 91 (setq command-line-default-directory |
| 92 (file-name-as-directory (car args)) | 92 (file-name-as-directory (car args)) |