Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't have epg bug out on non-existent packages

Browse source 
* lisp/epg.el (epg--start): We may be called from contexts where
the directory doesn't exist, but we need to have an existing
directory here for the process (bug#32004).
This commit is contained in:
Lars Ingebrigtsen 2021-09-01 12:15:21 +02:00
parent 6a6de68daf
commit b3a9d8cd3d
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/epg.el
View file

@ -657,16 +657,17 @@ callback data (if any)."
:sentinel #'ignore
:noquery t))
(setf (epg-context-error-buffer context) (process-buffer error-process))
(with-file-modes 448
(setq process (make-process :name "epg"
:buffer buffer
:command (cons (epg-context-program context)
args)
:connection-type 'pipe
:coding 'raw-text
:filter #'epg--process-filter
:stderr error-process
:noquery t)))
(with-existing-directory
(with-file-modes 448
(setq process (make-process :name "epg"
:buffer buffer
:command (cons (epg-context-program context)
args)
:connection-type 'pipe
:coding 'raw-text
:filter #'epg--process-filter
:stderr error-process
:noquery t))))
(setf (epg-context-process context) process)))
(defun epg--process-filter (process input)