From f02b9e9a6ff701d041ef86afe8b9a92ba8e4fd30 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Sat, 20 Jul 2019 18:52:59 +0100 Subject: [PATCH] Use lexical-binding in compface.el * lisp/image/compface.el: Use lexical-binding. Extend Keywords header. (uncompface): Call call-process-region directly. --- lisp/image/compface.el | 10 ++++------ 1 file 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 -;; 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,\ -- 2.39.2