projects
/
elisp
/
lsdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(lsdb-insert-x-face-asynchronously): Make " *lsdb work*" buffer
[elisp/lsdb.git]
/
lsdb.el
diff --git
a/lsdb.el
b/lsdb.el
index
a5018e6
..
5c4b266
100644
(file)
--- 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)
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 "{ "
(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
(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))
(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)
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 "{ "
(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
(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))
(buffer-string))))
(lsdb-insert-face-image data ',type ,marker)
(lsdb-puthash ,face (list (cons ',type data))