(lsdb-insert-x-face-asynchronously): Don't create " *lsdb work*"
authorueno <ueno>
Wed, 21 Jan 2004 07:50:50 +0000 (07:50 +0000)
committerueno <ueno>
Wed, 21 Jan 2004 07:50:50 +0000 (07:50 +0000)
buffer if the x-face glyph is already cached.
(lsdb-insert-face-asynchronously): Ditto.

lsdb.el

diff --git a/lsdb.el b/lsdb.el
index 9397d04..a5018e6 100644 (file)
--- 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 "{ "