[Emacs-diffs] master f02b9e9: Use lexical-binding in compface.el

[Basil L. Contovounesios]

branch: master
commit f02b9e9a6ff701d041ef86afe8b9a92ba8e4fd30
Author: Basil L. Contovounesios <address@hidden>
Commit: Basil L. Contovounesios <address@hidden>

    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 2375261..2f2adbd 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 <address@hidden>
-;; 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,\