From: ueno <ueno>
Date: Wed, 21 Jan 2004 10:06:13 +0000 (+0000)
Subject: (lsdb-insert-x-face-asynchronously): Make " *lsdb work*" buffer
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=34eec3a166be2fbc1a79faa22d5c076bf6c34f47;p=elisp%2Flsdb.git

(lsdb-insert-x-face-asynchronously): Make " *lsdb work*" buffer
unibyte before calling decoding process.
(lsdb-insert-face-asynchronously): Ditto.
---

diff --git a/lsdb.el b/lsdb.el
index a5018e6..5c4b266 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -1815,8 +1815,10 @@ the user wants it."
 	 process)
     (if cached
 	(lsdb-insert-x-face-image cached type marker)
-      (setq buffer (generate-new-buffer " *lsdb work*")
-	    process
+      (with-current-buffer (setq buffer (generate-new-buffer " *lsdb work*"))
+	(buffer-disable-undo)
+	(set-buffer-multibyte nil))
+      (setq process
 	    (start-process-shell-command
 	     "lsdb-x-face-command" buffer
 	     (concat "{ "
@@ -1840,7 +1842,6 @@ the user wants it."
 	      (if (equal string "finished\n")
 		  (let ((data
 			 (with-current-buffer ,buffer
-			   (set-buffer-multibyte nil)
 			   (buffer-string))))
 		    (lsdb-insert-x-face-image data ',type ,marker)
 		    (lsdb-puthash ,x-face (list (cons ',type data))
@@ -1921,8 +1922,10 @@ the user wants it."
 	 process)
     (if cached
 	(lsdb-insert-face-image cached type marker)
-      (setq buffer (generate-new-buffer " *lsdb work*")
-	    process
+      (with-current-buffer (setq buffer (generate-new-buffer " *lsdb work*"))
+	(buffer-disable-undo)
+	(set-buffer-multibyte nil))
+      (setq process
 	    (start-process-shell-command
 	     "lsdb-face-command" buffer
 	     (concat "{ "
@@ -1946,7 +1949,6 @@ the user wants it."
 	      (if (equal string "finished\n")
 		  (let ((data
 			 (with-current-buffer ,buffer
-			   (set-buffer-multibyte nil)
 			   (buffer-string))))
 		    (lsdb-insert-face-image data ',type ,marker)
 		    (lsdb-puthash ,face (list (cons ',type data))