;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
(uncompface-internal face))
((eq uncompface-use-external t)
(with-temp-buffer
+ (unless (featurep 'xemacs) (set-buffer-multibyte nil))
(insert face)
(let ((coding-system-for-read 'raw-text)
;; At least "icontopbm" doesn't work with Windows because
;; the line-break code is converted into CRLF by default.
- (coding-system-for-write 'raw-text-unix))
+ (coding-system-for-write 'binary))
(and (eq 0 (apply 'call-process-region (point-min) (point-max)
"uncompface"
'delete '(t nil) nil))
;; eval: (put 'uncompface-loop 'lisp-indent-hook 0)
;; End:
-;; arch-tag: a8e3f4a0-e375-4f1d-a426-c7da30e16c18
;;; compface.el ends here