From 6a2dc51b5d84c4bf76664cab5afed066cb9b48db Mon Sep 17 00:00:00 2001 From: Svend Sorensen Date: Fri, 16 May 2014 13:46:46 -0700 Subject: emacs: Use when instead of if/progn --- contrib/emacs/password-store.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'contrib/emacs/password-store.el') diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el index 83f2a69..4bfa290 100644 --- a/contrib/emacs/password-store.el +++ b/contrib/emacs/password-store.el @@ -164,11 +164,10 @@ Returns the first line of the password data." (defun password-store-clear () "Clear password in kill ring." (interactive) - (if password-store-kill-ring-pointer - (progn - (setcar password-store-kill-ring-pointer "") - (setq password-store-kill-ring-pointer nil) - (message "Password cleared.")))) + (when password-store-kill-ring-pointer + (setcar password-store-kill-ring-pointer "") + (setq password-store-kill-ring-pointer nil) + (message "Password cleared."))) ;;;###autoload (defun password-store-copy (entry) -- cgit v1.2.3-59-g8ed1b