summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-09-02 23:51:36 -0500
committerCase Duckworth2021-09-02 23:51:36 -0500
commitc4eb3a9841b4aef775f5ce3b04dde4e7354bd957 (patch)
tree8ff6e4f6377eb14b8d480bf8088c7df4d3de9075 /lisp
parentMove gforth (diff)
downloademacs-c4eb3a9841b4aef775f5ce3b04dde4e7354bd957.tar.gz
emacs-c4eb3a9841b4aef775f5ce3b04dde4e7354bd957.zip
Change to acdw/make-password-fetcher
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 2acef4f..ded65f8 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -593,6 +593,7 @@ It's called 'require-private' for historical reasons."
593;;; Auth-sources 593;;; Auth-sources
594;; https://github.com/emacs-circe/circe/wiki/Configuration 594;; https://github.com/emacs-circe/circe/wiki/Configuration
595(defun acdw/fetch-password (&rest params) 595(defun acdw/fetch-password (&rest params)
596 "Fetch a password from `auth-source'."
596 (require 'auth-source) 597 (require 'auth-source)
597 (let ((match (car (apply #'auth-source-search params)))) 598 (let ((match (car (apply #'auth-source-search params))))
598 (if match 599 (if match
@@ -602,6 +603,11 @@ It's called 'require-private' for historical reasons."
602 secret)) 603 secret))
603 (message "Password not found for %S" params)))) 604 (message "Password not found for %S" params))))
604 605
606(defun acdw/make-password-fetcher (&rest params)
607 "Make a function that will fetch a password using `acdw/fetch-password'."
608 (lambda (&rest _)
609 (apply #'acdw/fetch-password params)))
610
605 611
606;;; Paren annoyances 612;;; Paren annoyances
607(defun acdw/stop-paren-annoyances (&optional buffer) 613(defun acdw/stop-paren-annoyances (&optional buffer)