diff options
| author | Svend Sorensen <svend@ciffer.net> | 2014-05-16 13:46:46 -0700 |
|---|---|---|
| committer | Svend Sorensen <svend@ciffer.net> | 2014-06-16 11:41:58 -0700 |
| commit | 6a2dc51b5d84c4bf76664cab5afed066cb9b48db (patch) | |
| tree | 11218319402b8a640d696ca7e71d0d359386654d | |
| parent | 7d74e9d32c78fdfe9c02ba2b5b86b6b9bb3c8b88 (diff) | |
emacs: Use when instead of if/progn
| -rw-r--r-- | contrib/emacs/password-store.el | 9 |
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) |