mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use lexical-binding in compface.el

Browse source 
* lisp/image/compface.el: Use lexical-binding.  Extend Keywords
header.
(uncompface): Call call-process-region directly.
This commit is contained in:
Basil L. Contovounesios 2019-07-20 18:52:59 +01:00
parent 45fc6f203e
commit f02b9e9a6f
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/image/compface.el
View file

@ -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,\