From: Ted Zlatanov <tzz@lifelogs.com>
Date: Wed, 20 Dec 2017 01:01:08 +0000 (-0500)
Subject: * lisp/auth-source.el (auth-source-backends-parser-file): Fix missing stringp.
X-Git-Tag: emacs-27.0.90~5998
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=675a4e13cf14ff5bff61d06454269983844a8f91;p=emacs.git

* lisp/auth-source.el (auth-source-backends-parser-file): Fix missing stringp.
---

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