From 1a4023fc0d42d1c12798e32a355fc5cef28f5880 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 21 Jan 2004 07:50:50 +0000 Subject: [PATCH] (lsdb-insert-x-face-asynchronously): Don't create " *lsdb work*" buffer if the x-face glyph is already cached. (lsdb-insert-face-asynchronously): Ditto. --- lsdb.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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 "{ " -- 1.7.10.4