From: Mattias Engdegård <mattiase@acm.org>
Date: Wed, 21 Dec 2022 11:33:25 +0000 (+0100)
Subject: Fix broken eww desktop restore reload prompt message insertion
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad5a67996ddf23df904c09165475759e2e0a68b1;p=emacs.git

Fix broken eww desktop restore reload prompt message insertion

* lisp/net/eww.el (eww-restore-desktop): Repair a malformed `cl-case`
clause.  This code probably never worked as intended.
---

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 3799ef96e84..a8a985b8dea 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -2498,10 +2498,10 @@ Otherwise, the restored buffer will contain a prompt to do so by using
       (when (plist-get eww-data :url)
 	(cl-case eww-restore-desktop
 	  ((t auto) (eww (plist-get eww-data :url)))
-	  ((zerop (buffer-size))
-	   (let ((inhibit-read-only t))
-	     (insert (substitute-command-keys
-		      eww-restore-reload-prompt)))))))
+	  ((nil) (when (zerop (buffer-size))
+	           (let ((inhibit-read-only t))
+	             (insert (substitute-command-keys
+		              eww-restore-reload-prompt))))))))
     ;; .
     (current-buffer)))