[PATCH] emacs: Add variable password-store-file-extension.

[Nicolas Graves]

---
 contrib/emacs/password-store.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el
index 6561eb1..72aee3e 100644
--- a/contrib/emacs/password-store.el
+++ b/contrib/emacs/password-store.el
@@ -66,6 +66,9 @@
 (defvar password-store-timeout-timer nil
   "Timer for clearing clipboard.")
 
+(defvar password-store-file-extension ".gpg"
+  "File extension to expect in the password store.")
+
 (defun password-store-timeout ()
   "Number of seconds to wait before clearing the password.
 
@@ -187,7 +190,8 @@ Nil arguments are ignored.  Output is discarded."
 
 (defun password-store--entry-to-file (entry)
   "Return file name corresponding to ENTRY."
-  (concat (expand-file-name entry (password-store-dir)) ".gpg"))
+  (concat (expand-file-name entry (password-store-dir))
+          password-store-file-extension))
 
 (defun password-store--file-to-entry (file)
   "Return entry name corresponding to FILE."
@@ -218,7 +222,8 @@ ENTRY is the name of a password-store entry."
     (if (file-directory-p dir)
         (delete-dups
          (mapcar 'password-store--file-to-entry
-                 (directory-files-recursively dir ".+\\.gpg\\'"))))))
+                 (directory-files-recursively
+                  dir (concat ".+\\" password-store-file-extension "\\'")))))))
 
 ;;;###autoload
 (defun password-store-edit (entry)
-- 
2.38.0