From 1ae92281264022070fd5d25d9b63f7b883abf0f6 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 21 May 2000 12:00:36 +0000 Subject: [PATCH] * pgg-gpg.el (pgg-gpg-process-region): Abolish redundant nconc. --- ChangeLog | 4 ++++ pgg-gpg.el | 9 ++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index a39a470..31357d5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-05-21 Daiki Ueno + + * pgg-gpg.el (pgg-gpg-process-region): Abolish redundant nconc. + 2000-05-16 Daiki Ueno * mime-image.el (mime-image-create) [XEmacs]: Don't call diff --git a/pgg-gpg.el b/pgg-gpg.el index 3cf8b0c..b475016 100644 --- a/pgg-gpg.el +++ b/pgg-gpg.el @@ -59,11 +59,10 @@ (let* ((output-file-name (concat temporary-file-directory (make-temp-name "pgg-output"))) (args - (nconc - `("--status-fd" "2" - ,@(if passphrase '("--passphrase-fd" "0")) - "--output" ,output-file-name ,@pgg-gpg-extra-args) - args)) + `("--status-fd" "2" + ,@(if passphrase '("--passphrase-fd" "0")) + "--output" ,output-file-name + ,@pgg-gpg-extra-args ,@args)) (output-buffer pgg-output-buffer) (errors-buffer pgg-errors-buffer) (orig-mode (default-file-modes)) -- 1.7.10.4