m-chrzan.xyz
aboutsummaryrefslogtreecommitdiff
path: root/contrib
diff options
context:
space:
mode:
Diffstat (limited to 'contrib')
-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)