Re: desktop.el not playing nice

[Stephan Stahl]

Richard Stallman said:

> Does this patch give results you like?
>
> *** desktop.el        05 Apr 2005 15:08:34 -0400      1.82
> --- desktop.el        18 Apr 2005 01:22:51 -0400
> ***************
> *** 1031,1037 ****
>     '(lambda ()
>       (let ((key "--no-desktop"))
>         (if (member key command-line-args)
> !         (delete key command-line-args)
>           (when desktop-save-mode (desktop-read))))))
>
>   (provide 'desktop)
> --- 1031,1039 ----
>     '(lambda ()
>       (let ((key "--no-desktop"))
>         (if (member key command-line-args)
> !       (progn
> !         (delete key command-line-args)
> !         (desktop-save-mode 0))
>           (when desktop-save-mode (desktop-read))))))
>
>   (provide 'desktop)

Yes it does.

However as others have pointed out, (desktop-read) at a later time
should reenable desktop-save-mode which it does not right now.

This patch would do it.  If it's clean enough someone should commit
it too.

*** desktop.el  Mon Apr 18 20:04:26 2005        1.82
--- desktop.el  Mon Apr 18 20:13:15 2005
***************
*** 763,769 ****
                       (format ", %d to restore lazily"
                               (length desktop-buffer-args-list))
                     ""))
!         t)
        ;; No desktop file found.
        (desktop-clear)
        (let ((default-directory desktop-dirname))
--- 763,769 ----
                       (format ", %d to restore lazily"
                               (length desktop-buffer-args-list))
                     ""))
!         (desktop-save-mode 1))
        ;; No desktop file found.
        (desktop-clear)
        (let ((default-directory desktop-dirname))
-- 
Stephan Stahl