emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/plz-media-type 431050411e 07/26: Rename :process-filter


From: ELPA Syncer
Subject: [elpa] externals/plz-media-type 431050411e 07/26: Rename :process-filter option to :filter
Date: Wed, 1 May 2024 09:59:00 -0400 (EDT)

branch: externals/plz-media-type
commit 431050411ef55f48e11a6bbffc68be90e7dc0188
Author: Roman Scherer <roman@burningswell.com>
Commit: Roman Scherer <roman@burningswell.com>

    Rename :process-filter option to :filter
---
 checkout          |  2 +-
 plz-media-type.el | 26 +++++++++++++-------------
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/checkout b/checkout
index bb2f71b2e2..08be40272c 100755
--- a/checkout
+++ b/checkout
@@ -2,7 +2,7 @@
 set -e
 set -o pipefail
 mkdir -p vendor
-wget -q -O vendor/plz.el 
https://raw.githubusercontent.com/r0man/plz.el/plz-stream/plz.el
+wget -q -O vendor/plz.el 
https://raw.githubusercontent.com/r0man/plz.el/process-filter-option/plz.el
 if [[ ! -z "$GITHUB_ENV" ]]; then
     echo "EMACSLOADPATH=vendor:$EMACSLOADPATH" >> $GITHUB_ENV
 else
diff --git a/plz-media-type.el b/plz-media-type.el
index b350a8f641..1bd7585d42 100644
--- a/plz-media-type.el
+++ b/plz-media-type.el
@@ -640,19 +640,19 @@ not.
                                             (kill-buffer buffer))))
                              :headers headers
                              :noquery noquery
-                             :process-filter (lambda (process chunk)
-                                               (condition-case cause
-                                                   
(plz-media-type-process-filter process media-types chunk)
-                                                 (error
-                                                  (let ((buffer 
(process-buffer process)))
-                                                    (setq filter-error
-                                                          
(make-plz-media-type-filter-error
-                                                           :cause cause
-                                                           :message (format 
"error in process filter: %S" cause)
-                                                           :response (when 
(buffer-live-p buffer)
-                                                                       
(with-current-buffer buffer
-                                                                         
plz-media-type--response))))
-                                                    (delete-process 
process)))))
+                             :filter (lambda (process chunk)
+                                       (condition-case cause
+                                           (plz-media-type-process-filter 
process media-types chunk)
+                                         (error
+                                          (let ((buffer (process-buffer 
process)))
+                                            (setq filter-error
+                                                  
(make-plz-media-type-filter-error
+                                                   :cause cause
+                                                   :message (format "error in 
process filter: %S" cause)
+                                                   :response (when 
(buffer-live-p buffer)
+                                                               
(with-current-buffer buffer
+                                                                 
plz-media-type--response))))
+                                            (delete-process process)))))
                              :timeout timeout
                              :then (if (symbolp then)
                                        then



reply via email to

[Prev in Thread] Current Thread [Next in Thread]