From 5a6df636428a8801d7719fae9aa764dc7e4ef85d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Fri, 5 Apr 2024 15:54:30 +0200 Subject: [PATCH] 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) --- lisp/auth-source.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5