From a68d635a05b40d694c3b013b13f4a26156d8698a Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Fri, 18 Nov 2016 14:40:59 +0100 Subject: [PATCH] Fix gpolonkai/idm-get-field-for-account MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit It had more problems than not… --- lisp/idm.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/idm.el b/lisp/idm.el index aeb31c3..5d0c97e 100644 --- a/lisp/idm.el +++ b/lisp/idm.el @@ -9,10 +9,11 @@ (defun gpolonkai/idm-get-field-for-account (account field) "Get id-manager password for ACCOUNT." (let ((db (idm-load-db)) - (lookup-record)) + (lookup-record nil)) (dolist (record (funcall db 'get-all-records) password) - (when (string= "WikEmacs" (idm-record-name record)) - (setq password (gpolonkai/idm-record-get-field record field)))))) + (when (string= account (idm-record-name record)) + (setq lookup-record (gpolonkai/idm-record-get-field record field)))) + lookup-record)) (defmacro gpolonkai/idm-get-password-for-account (account) `(gpolonkai/idm-get-field-for-account ,account 'password))