martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Prefer customized value for GnuPG executable

Browse Source 
* lisp/epg-config.el (epg-configuration-find): Don't check GPG
configuration if it is already set with custom.  (Bug#22747)
This commit is contained in:
Daiki Ueno
2016-02-21 07:11:04 +09:00
parent ea0b604412
commit 74ec92da9e
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/epg-config.el
View File

@@ -114,16 +114,15 @@ entry until the version requirement is met."
(cl-destructuring-bind (symbol constructor . alist)
(cdr entry)
(or (and (not force) (alist-get protocol epg--configurations))
(let ((executable (get symbol 'saved-value)))
(if executable
(ignore-errors
(let ((configuration (funcall constructor executable)))
(epg-check-configuration configuration)
(push (cons protocol configuration) epg--configurations)
configuration))
(catch 'found
(dolist (program-version alist)
(setq executable (executable-find (car program-version)))
;; If the executable value is already set with M-x
;; customize, use it without checking.
(if (get symbol 'saved-value)
(let ((configuration (funcall constructor (symbol-value symbol))))
(push (cons protocol configuration) epg--configurations)
configuration)
(catch 'found
(dolist (program-version alist)
(let ((executable (executable-find (car program-version))))
(when executable
(let ((configuration
(funcall constructor executable)))