HOME


sh-3ll 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/image/
Upload File :
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/image/compface.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@223 Convert FACE to pbm.
Requires the external programs `uncompface', and `icontopbm'.  On a
GNU/Linux system these might be in packages with names like `compface'
or `faces-xface' and `netpbm' or `libgr-progs', for instance.
(defalias 'uncompface #[(face) "\304\305!rq\210\306\216\307\310!\210	c\210\311\312\313ed\314\315\316%\317=\2055eb\210\320c\210\313ed\321\315\322%\317=\2055\323 -\207" [#1=#:temp-buffer face coding-system-for-write coding-system-for-read generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil raw-text binary call-process-region "uncompface" delete (t nil) 0 "/* Format_version=1, Width=48, Height=48, Depth=1, Valid_bits_per_item=16 */\n" "icontopbm" (t nil) buffer-string] 6 (#$ . 409)])
(provide 'compface)