summaryrefslogtreecommitdiff
path: root/contrib/emacs/password-store.el
diff options
context:
space:
mode:
authorSvend Sorensen <svend@ciffer.net>2014-05-16 13:46:46 -0700
committerSvend Sorensen <svend@ciffer.net>2014-06-16 11:41:58 -0700
commit6a2dc51b5d84c4bf76664cab5afed066cb9b48db (patch)
tree11218319402b8a640d696ca7e71d0d359386654d /contrib/emacs/password-store.el
parent7d74e9d32c78fdfe9c02ba2b5b86b6b9bb3c8b88 (diff)
downloadpass-6a2dc51b5d84c4bf76664cab5afed066cb9b48db.tar.gz
pass-6a2dc51b5d84c4bf76664cab5afed066cb9b48db.tar.bz2
pass-6a2dc51b5d84c4bf76664cab5afed066cb9b48db.zip
emacs: Use when instead of if/progn
Diffstat (limited to '')
-rw-r--r--contrib/emacs/password-store.el9
1 files changed, 4 insertions, 5 deletions
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)