mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(desktop-read): Set `desktop-dirname' to nil before running

Browse Source 
`desktop-not-loaded-hook' to allow modifying it.
Don't show warning message if `desktop-dirname' was modified.
This commit is contained in:
Juanma Barranquero 2008-03-01 14:17:41 +00:00
parent 6c8acaa1be
commit c41cf13074
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-03-01 Juanma Barranquero <lekktu@gmail.com>
* desktop.el (desktop-read): Set `desktop-dirname' to nil before
running `desktop-not-loaded-hook' to allow modifying it.
Don't show warning message if `desktop-dirname' was modified.
2008-03-01 Stefan Monnier <monnier@iro.umontreal.ca>
* diff-mode.el (diff-sanity-check-hunk): Only accept an empty line if

8
lisp/desktop.el
View File

@ -969,11 +969,11 @@ It returns t if a desktop file was loaded, nil otherwise."
(or (null desktop-load-locked-desktop)
(not (y-or-n-p (format "Warning: desktop file appears to be in use by PID %s.\n\
Using it may cause conflicts. Use it anyway? " owner)))))
(progn
(let ((default-directory desktop-dirname))
(run-hooks 'desktop-not-loaded-hook))
(let ((default-directory desktop-dirname))
(setq desktop-dirname nil)
(message "Desktop file in use; not loaded."))
(run-hooks 'desktop-not-loaded-hook)
(unless desktop-dirname
(message "Desktop file in use; not loaded.")))
(desktop-lazy-abort)
;; Evaluate desktop buffer and remember when it was modified.
(load (desktop-full-file-name) t t t)