From 675a4e13cf14ff5bff61d06454269983844a8f91 Mon Sep 17 00:00:00 2001 From: Ted Zlatanov Date: Tue, 19 Dec 2017 20:01:08 -0500 Subject: [PATCH] * lisp/auth-source.el (auth-source-backends-parser-file): Fix missing stringp. --- lisp/auth-source.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 152c5af59ae..e6582fa796a 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -386,7 +386,8 @@ soon as a function returns non-nil.") (equal (file-name-extension source) "gpg")) (file-name-sans-extension source) (or source ""))) - (extension (or (file-name-extension source-without-gpg) + (extension (or (and (stringp source-without-gpg) + (file-name-extension source-without-gpg)) ""))) (when (stringp source) (cond -- 2.39.2