diff options
author | Lars Hansen <[email protected]> | 2005-04-18 18:27:39 +0000 |
---|---|---|
committer | Lars Hansen <[email protected]> | 2005-04-18 18:27:39 +0000 |
commit | 4b217d4608d3609ad5d36ba1df487aecda6dc686 (patch) | |
tree | 410e28b3da067a8417c6ac5b66f667465fa45783 | |
parent | 25bcb3535cee413d750730e4894e7a39dbdc839a (diff) |
Make "--no-desktop" turn off `desktop-save-mode'.
-rw-r--r-- | lisp/desktop.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index ed663d375d..8e81e8826f 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -1030,9 +1030,10 @@ If there are no buffers left to create, kill the timer." 'after-init-hook '(lambda () (let ((key "--no-desktop")) - (if (member key command-line-args) - (delete key command-line-args) - (when desktop-save-mode (desktop-read)))))) + (when (member key command-line-args) + (setq command-line-args (delete key command-line-args)) + (setq desktop-save-mode nil))) + (when desktop-save-mode (desktop-read)))) (provide 'desktop) |