From: ueno <ueno>
Date: Wed, 21 Jan 2004 07:50:50 +0000 (+0000)
Subject: (lsdb-insert-x-face-asynchronously): Don't create " *lsdb work*"
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1a4023fc0d42d1c12798e32a355fc5cef28f5880;p=elisp%2Flsdb.git

(lsdb-insert-x-face-asynchronously): Don't create " *lsdb work*"
buffer if the x-face glyph is already cached.
(lsdb-insert-face-asynchronously): Ditto.
---

diff --git a/lsdb.el b/lsdb.el
index 9397d04..a5018e6 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -1811,11 +1811,12 @@ the user wants it."
 	 (process-connection-type nil)
 	 (cached (cdr (assq type (lsdb-gethash x-face lsdb-x-face-cache))))
 	 (marker (point-marker))
-	 (buffer (generate-new-buffer " *lsdb work*"))
+	 buffer
 	 process)
     (if cached
 	(lsdb-insert-x-face-image cached type marker)
-      (setq process
+      (setq buffer (generate-new-buffer " *lsdb work*")
+	    process
 	    (start-process-shell-command
 	     "lsdb-x-face-command" buffer
 	     (concat "{ "
@@ -1916,11 +1917,12 @@ the user wants it."
 	 (process-connection-type nil)
 	 (cached (cdr (assq type (lsdb-gethash face lsdb-face-cache))))
 	 (marker (point-marker))
-	 (buffer (generate-new-buffer " *lsdb work*"))
+	 buffer
 	 process)
     (if cached
 	(lsdb-insert-face-image cached type marker)
-      (setq process
+      (setq buffer (generate-new-buffer " *lsdb work*")
+	    process
 	    (start-process-shell-command
 	     "lsdb-face-command" buffer
 	     (concat "{ "