From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 5 Apr 2024 13:54:30 +0000 (+0200)
Subject: Only call set-text-conversion-style if it exists
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a6df636428a8801d7719fae9aa764dc7e4ef85d;p=emacs.git

Only call set-text-conversion-style if it exists

* lisp/auth-source.el (read-passwd): Guard call, as it was before the
code was moved here.
`set-text-conversion-style` is not present in all configurations.

(cherry picked from commit 4fc84cb23b6d671b44f18b8462e94c3bcfc3ee09)
---

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index a8bd9855720..e6dbead7476 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -2547,7 +2547,6 @@ Adapt also mode line."
     (read-passwd-toggle-visibility)))
 
 (defvar overriding-text-conversion-style)
-(declare-function set-text-conversion-style "textconv.c")
 
 ;;;###autoload
 (defun read-passwd (prompt &optional confirm default)
@@ -2605,7 +2604,8 @@ by doing (clear-string STRING)."
               ;; And of course, don't keep the sensitive data around.
               (erase-buffer)
               ;; Then restore the previous text conversion style.
-              (set-text-conversion-style text-conversion-style))))))))
+              (when (fboundp 'set-text-conversion-style)
+                (set-text-conversion-style text-conversion-style)))))))))
 
 (provide 'auth-source)