From: Paul Pogonyshev <pogonyshev@gmail.com>
Date: Wed, 27 Jul 2022 19:20:55 +0000 (+0200)
Subject: Release the desktop lock in 'kill-emacs-hook'
X-Git-Tag: emacs-28.1.91~15
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4be938169d6d1fc7bf0f44b78728f21a65317aed;p=emacs.git

Release the desktop lock in 'kill-emacs-hook'

* lisp/desktop.el: Run 'desktop--on-kill' in 'kill-emacs-hook'.
(desktop--on-kill): New function, refactored from 'desktop-kill'.
(desktop-kill): Call 'desktop--on-kill'.  (Bug#56800)
---

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 041dbcf7c11..9cd26646dec 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -733,7 +733,10 @@ if different)."
 
 ;; ----------------------------------------------------------------------------
 (unless noninteractive
-  (add-hook 'kill-emacs-query-functions #'desktop-kill))
+  (add-hook 'kill-emacs-query-functions #'desktop-kill)
+  ;; Certain things should be done even if
+  ;; `kill-emacs-query-functions' are not called.
+  (add-hook 'kill-emacs-hook #'desktop--on-kill))
 
 (defun desktop-kill ()
   "If `desktop-save-mode' is non-nil, do what `desktop-save' says to do.
@@ -760,12 +763,15 @@ is nil, ask the user where to save the desktop."
       (file-error
        (unless (yes-or-no-p "Error while saving the desktop.  Ignore? ")
 	 (signal (car err) (cdr err))))))
+  (desktop--on-kill)
+  t)
+
+(defun desktop--on-kill ()
   ;; If we own it, we don't anymore.
   (when (eq (emacs-pid) (desktop-owner))
     ;; Allow exiting Emacs even if we can't delete the desktop file.
     (ignore-error 'file-error
-      (desktop-release-lock)))
-  t)
+      (desktop-release-lock))))
 
 ;; ----------------------------------------------------------------------------
 (defun desktop-list* (&rest args)