[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 7c7ac0e 2/5: Remove compat code from compface.el
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 7c7ac0e 2/5: Remove compat code from compface.el |
Date: |
Wed, 10 Feb 2016 04:18:00 +0000 |
branch: master
commit 7c7ac0e7fa8d54c8b4274c7e6f33fe8536b5d826
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove compat code from compface.el
* lisp/gnus/compface.el: Remove XEmacs compat code throughout.
---
lisp/gnus/compface.el | 17 +++++------------
1 files changed, 5 insertions(+), 12 deletions(-)
diff --git a/lisp/gnus/compface.el b/lisp/gnus/compface.el
index cd70d6c..e2f607b 100644
--- a/lisp/gnus/compface.el
+++ b/lisp/gnus/compface.el
@@ -31,7 +31,7 @@ Requires the external programs `uncompface', and `icontopbm'.
On a
GNU/Linux system these might be in packages with names like `compface'
or `faces-xface' and `netpbm' or `libgr-progs', for instance."
(with-temp-buffer
- (unless (featurep 'xemacs) (set-buffer-multibyte nil))
+ (set-buffer-multibyte nil)
(insert face)
(let ((coding-system-for-read 'raw-text)
;; At least "icontopbm" doesn't work with Windows because
@@ -44,17 +44,10 @@ or `faces-xface' and `netpbm' or `libgr-progs', for
instance."
(goto-char (point-min))
(insert "/* Format_version=1, Width=48, Height=48, Depth=1,\
Valid_bits_per_item=16 */\n")
- ;; I just can't get "icontopbm" to work correctly on its
- ;; own in XEmacs. And Emacs doesn't understand un-raw pbm
- ;; files.
- (if (not (featurep 'xemacs))
- (eq 0 (call-process-region (point-min) (point-max)
- "icontopbm"
- 'delete '(t nil)))
- (shell-command-on-region (point-min) (point-max)
- "icontopbm | pnmnoraw"
- (current-buffer) t)
- t))
+ ;; Emacs doesn't understand un-raw pbm files.
+ (eq 0 (call-process-region (point-min) (point-max)
+ "icontopbm"
+ 'delete '(t nil))))
(buffer-string)))))
(provide 'compface)