mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases 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
Show Stats 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)))