From 11724fc556055be5713e6abda9cd1bec54652fe5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 18 Feb 2002 12:58:00 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 3 +++ lisp/gnus-fun.el | 8 ++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aade0cf..6058f4e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2002-02-18 Katsumi Yamaoka + * gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Remove unused + local varriable. + * gnus-art.el (article-display-x-face): Don't sort multiple X-Faces. diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el index 033e2e0..4105a81 100644 --- a/lisp/gnus-fun.el +++ b/lisp/gnus-fun.el @@ -43,14 +43,14 @@ (defun gnus-shell-command-to-string (command) "Like `shell-command-to-string' except not mingling ERROR." (with-output-to-string - (call-process shell-file-name nil (list standard-output nil) + (call-process shell-file-name nil (list standard-output nil) nil shell-command-switch command))) (defun gnus-shell-command-on-region (start end command) "A simplified `shell-command-on-region'. Output to the current buffer, replace text, and don't mingle error." - (call-process-region start end shell-file-name t - (list (current-buffer) nil) + (call-process-region start end shell-file-name t + (list (current-buffer) nil) nil shell-command-switch command)) ;;;###autoload @@ -122,7 +122,7 @@ Output to the current buffer, replace text, and don't mingle error." (coding-system-for-read 'binary) (coding-system-for-write 'binary) default-enable-multibyte-characters - start bit-array bit-arrays pixels pixel) + start bit-array bit-arrays pixel) (with-temp-buffer (dolist (face faces) (erase-buffer) -- 1.7.10.4