Mercurial > emacs
comparison lisp/desktop.el @ 61638:ef63bf685348
Make "--no-desktop" turn off `desktop-save-mode'.
| author | Lars Hansen <larsh@soem.dk> |
|---|---|
| date | Mon, 18 Apr 2005 18:27:39 +0000 |
| parents | 65075d5373df |
| children | 6fb026ad601f e1fbb019c538 |
comparison
equal
deleted
inserted
replaced
| 61637:54eea2db9773 | 61638:ef63bf685348 |
|---|---|
| 1028 ;; functions are processed after `after-init-hook'. | 1028 ;; functions are processed after `after-init-hook'. |
| 1029 (add-hook | 1029 (add-hook |
| 1030 'after-init-hook | 1030 'after-init-hook |
| 1031 '(lambda () | 1031 '(lambda () |
| 1032 (let ((key "--no-desktop")) | 1032 (let ((key "--no-desktop")) |
| 1033 (if (member key command-line-args) | 1033 (when (member key command-line-args) |
| 1034 (delete key command-line-args) | 1034 (setq command-line-args (delete key command-line-args)) |
| 1035 (when desktop-save-mode (desktop-read)))))) | 1035 (setq desktop-save-mode nil))) |
| 1036 (when desktop-save-mode (desktop-read)))) | |
| 1036 | 1037 |
| 1037 (provide 'desktop) | 1038 (provide 'desktop) |
| 1038 | 1039 |
| 1039 ;;; arch-tag: 221907c3-1771-4fd3-9c2e-c6f700c6ede9 | 1040 ;;; arch-tag: 221907c3-1771-4fd3-9c2e-c6f700c6ede9 |
| 1040 ;;; desktop.el ends here | 1041 ;;; desktop.el ends here |