[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
desktop-dirname
From: |
Walter C. Pelissero |
Subject: |
desktop-dirname |
Date: |
Fri, 25 Apr 2003 14:20:21 +0200 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- desktop-dirname,
Walter C. Pelissero <=