desktop-dirname

[Walter C. Pelissero]

There seems to be a bug here and there in the latest desktop.el.  The
symptom is that the desktop-save keeps asking whether or not it should
save the desktop even if desktop-save's value is ask-if-new and the
desktop file had been already created.

Here is a patch that solves the problem.

diff -c /usr/local/share/emacs/21.3.50/lisp/desktop.el 
/usr/home/wcp/lisp/emacs/desktop.el
*** /usr/local/share/emacs/21.3.50/lisp/desktop.el      Wed Apr 23 17:21:39 2003
--- /usr/home/wcp/lisp/emacs/desktop.el Fri Apr 25 14:07:00 2003
***************
*** 394,400 ****
    (when
      (and
        desktop-enable
!       (let ((exists (file-exists-p (concat desktop-dirname 
desktop-base-file-name))))
          (or
            (eq desktop-save 't)
            (and exists (memq desktop-save '(ask-if-new if-exists)))
--- 394,400 ----
    (when
      (and
        desktop-enable
!       (let ((exists (file-exists-p (expand-file-name desktop-base-file-name 
desktop-dirname))))
          (or
            (eq desktop-save 't)
            (and exists (memq desktop-save '(ask-if-new if-exists)))
***************
*** 670,676 ****
    "Delete the Desktop file and inactivate the desktop system."
    (interactive)
    (if desktop-dirname
!       (let ((filename (concat desktop-dirname desktop-base-file-name)))
        (setq desktop-dirname nil)
        (if (file-exists-p filename)
            (delete-file filename)))))
--- 670,676 ----
    "Delete the Desktop file and inactivate the desktop system."
    (interactive)
    (if desktop-dirname
!       (let ((filename (expand-file-name desktop-base-file-name 
desktop-dirname)))
        (setq desktop-dirname nil)
        (if (file-exists-p filename)
            (delete-file filename)))))

-- 
walter pelissero
http://members.lycos.co.uk/wpelissero