diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2019-07-20 18:52:59 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2019-07-21 02:16:09 +0100 |
| commit | f02b9e9a6ff701d041ef86afe8b9a92ba8e4fd30 (patch) | |
| tree | b0cf639f5fdba2b516bdc3b60c6b87f4142346e3 /lisp/image | |
| parent | 45fc6f203e2fef528cb2bb0d7c0140e160c974e2 (diff) | |
| download | emacs-f02b9e9a6ff701d041ef86afe8b9a92ba8e4fd30.tar.gz emacs-f02b9e9a6ff701d041ef86afe8b9a92ba8e4fd30.tar.bz2 emacs-f02b9e9a6ff701d041ef86afe8b9a92ba8e4fd30.zip | |
Use lexical-binding in compface.el
* lisp/image/compface.el: Use lexical-binding. Extend Keywords
header.
(uncompface): Call call-process-region directly.
Diffstat (limited to 'lisp/image')
| -rw-r--r-- | lisp/image/compface.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/image/compface.el b/lisp/image/compface.el index 23752618542..2f2adbd0292 100644 --- a/lisp/image/compface.el +++ b/lisp/image/compface.el @@ -1,9 +1,9 @@ -;;; compface.el --- functions for converting X-Face headers +;;; compface.el --- functions for converting X-Face headers -*- lexical-binding: t -*- ;; Copyright (C) 2002-2019 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> -;; Keywords: news +;; Keywords: multimedia, news ;; This file is part of GNU Emacs. @@ -24,7 +24,6 @@ ;;; Code: -;;;### (defun uncompface (face) "Convert FACE to pbm. Requires the external programs `uncompface', and `icontopbm'. On a @@ -37,9 +36,8 @@ or `faces-xface' and `netpbm' or `libgr-progs', for instance." ;; At least "icontopbm" doesn't work with Windows because ;; the line-break code is converted into CRLF by default. (coding-system-for-write 'binary)) - (and (eq 0 (apply 'call-process-region (point-min) (point-max) - "uncompface" - 'delete '(t nil) nil)) + (and (eq 0 (call-process-region (point-min) (point-max) + "uncompface" 'delete '(t nil))) (progn (goto-char (point-min)) (insert "/* Format_version=1, Width=48, Height=48, Depth=1,\ |