mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Utilize `make-process' in epg.el

Browse Source 
* lisp/epg.el (epg-error-output): Abolish.
(epg-context): New slot `error-buffer'.
(epg--start): Use `make-process' and `make-pipe-process'.
(epg--process-filter): Remove code separating stderr from stdout.
(epg-wait-for-completion): Simplify `error-output' handling.
(epg-reset): Dispose error buffer.
This commit is contained in:
Daiki Ueno 2015-04-11 16:31:59 +09:00
parent 24ecbc008f
commit ccade56fbe
1 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lisp/epg.el
View File

@ -40,7 +40,6 @@
(defvar epg-debug-buffer nil)
(defvar epg-agent-file nil)
(defvar epg-agent-mtime nil)
(defvar epg-error-output nil)
;; from gnupg/include/cipher.h
(defconst epg-cipher-algorithm-alist
@ -213,7 +212,8 @@
result
operation
pinentry-mode
(error-output ""))
(error-output "")
error-buffer)
;; This is not an alias, just so we can mark it as autoloaded.
;;;###autoload
@ -581,11 +581,9 @@ callback data (if any)."
(symbol-name (epg-context-pinentry-mode
context))))
args))
(coding-system-for-write 'binary)
(coding-system-for-read 'binary)
process-connection-type
(process-environment process-environment)
(buffer (generate-new-buffer " *epg*"))
error-process
process
terminal-name
agent-file
@ -642,13 +640,24 @@ callback data (if any)."
(make-local-variable 'epg-agent-file)
(setq epg-agent-file agent-file)
(make-local-variable 'epg-agent-mtime)
(setq epg-agent-mtime agent-mtime)
(make-local-variable 'epg-error-output)
(setq epg-error-output nil))
(setq epg-agent-mtime agent-mtime))
(setq error-process
(make-pipe-process :name "epg-error"
:buffer (generate-new-buffer " *epg-error*")
;; Suppress "XXX finished" line.
:sentinel #'ignore
:noquery t))
(setf (epg-context-error-buffer context) (process-buffer error-process))
(with-file-modes 448
(setq process (apply #'start-process "epg" buffer
(epg-context-program context) args)))
(set-process-filter process #'epg--process-filter)
(setq process (make-process :name "epg"
:buffer buffer
:command (cons (epg-context-program context)
args)
:connection-type 'pipe
:coding '(binary . binary)
:filter #'epg--process-filter
:stderr error-process
:noquery t)))
(setf (epg-context-process context) process)))
(defun epg--process-filter (process input)
@ -690,14 +699,7 @@ callback data (if any)."
(if (and symbol
(fboundp symbol))
(funcall symbol epg-context string)))
(setq epg-last-status (cons status string)))
;; Record other lines sent to stderr. This assumes
;; that the process-filter receives output only from
;; stderr and the FD specified with --status-fd.
(setq epg-error-output
(cons (buffer-substring (point)
(line-end-position))
epg-error-output)))
(setq epg-last-status (cons status string))))
(forward-line)
(setq epg-read-point (point)))))))))
@ -740,15 +742,17 @@ callback data (if any)."
(epg-context-set-result-for
context 'error
(nreverse (epg-context-result-for context 'error)))
(with-current-buffer (process-buffer (epg-context-process context))
(setf (epg-context-error-output context)
(mapconcat #'identity (nreverse epg-error-output) "\n"))))
(setf (epg-context-error-output context)
(with-current-buffer (epg-context-error-buffer context)
(buffer-string))))
(defun epg-reset (context)
"Reset the CONTEXT."
(if (and (epg-context-process context)
(buffer-live-p (process-buffer (epg-context-process context))))
(kill-buffer (process-buffer (epg-context-process context))))
(if (buffer-live-p (epg-context-error-buffer context))
(kill-buffer (epg-context-error-buffer context)))
(setf (epg-context-process context) nil)
(setf (epg-context-edit-callback context) nil))