diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 07:16:37 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 07:16:37 +0200 |
commit | f4813b23f26b3d3af2c098ae55091e7f7cd763cd (patch) | |
tree | 3265aa09789ea3146e3a7eaaaba2b7ef474f909d | |
parent | 8c4cb2fe069ff1bc1ab8b2166e2d6dbafe96048c (diff) | |
download | emacs-f4813b23f26b3d3af2c098ae55091e7f7cd763cd.tar.gz |
Inhibit warning in mm-inline-wash-with-file from previous change
* lisp/gnus/mm-view.el (mm-inline-wash-with-file): Inhibit warning
about previous lexical fixup.
-rw-r--r-- | lisp/gnus/mm-view.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 09660cd8b03..129295474f7 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -271,16 +271,17 @@ This is only used if `mm-inline-large-images' is set to (delete-region (match-beginning 0) (match-end 0)))) (defun mm-inline-wash-with-file (post-func cmd &rest args) - (dlet ((file (make-temp-file - (expand-file-name "mm" mm-tmp-directory)))) - (let ((coding-system-for-write 'binary)) - (write-region (point-min) (point-max) file nil 'silent)) - (delete-region (point-min) (point-max)) - (unwind-protect - (apply #'call-process cmd nil t nil - (mapcar (lambda (e) (eval e t)) args)) - (delete-file file)) - (and post-func (funcall post-func)))) + (with-suppressed-warnings ((lexical file)) + (dlet ((file (make-temp-file + (expand-file-name "mm" mm-tmp-directory)))) + (let ((coding-system-for-write 'binary)) + (write-region (point-min) (point-max) file nil 'silent)) + (delete-region (point-min) (point-max)) + (unwind-protect + (apply #'call-process cmd nil t nil + (mapcar (lambda (e) (eval e t)) args)) + (delete-file file)) + (and post-func (funcall post-func))))) (defun mm-inline-wash-with-stdin (post-func cmd &rest args) (let ((coding-system-for-write 'binary)) |