(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)
+ (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
(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))
(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)
+ (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
(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))