From 34eec3a166be2fbc1a79faa22d5c076bf6c34f47 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 21 Jan 2004 10:06:13 +0000 Subject: [PATCH] (lsdb-insert-x-face-asynchronously): Make " *lsdb work*" buffer unibyte before calling decoding process. (lsdb-insert-face-asynchronously): Ditto. --- lsdb.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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)) -- 1.7.10.4