mirror of https://github.com/skeeto/enchive.git
Actually use enchive-program-name (#11)
parent
973fd66282
commit
12d9ae9613
|
@ -24,7 +24,7 @@
|
||||||
(let ((file-name-handler-alist ()))
|
(let ((file-name-handler-alist ()))
|
||||||
(cond ((eq operation 'insert-file-contents)
|
(cond ((eq operation 'insert-file-contents)
|
||||||
(let ((file (car args)))
|
(let ((file (car args)))
|
||||||
(unless (= 0 (call-process "enchive" file '(t nil) nil
|
(unless (= 0 (call-process enchive-program-name file '(t nil) nil
|
||||||
"--pinentry" "--agent" "extract"))
|
"--pinentry" "--agent" "extract"))
|
||||||
(error "Enchive subprocess failed"))
|
(error "Enchive subprocess failed"))
|
||||||
(setf buffer-file-name file)
|
(setf buffer-file-name file)
|
||||||
|
|
Loading…
Reference in New Issue