diff options
| -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) |