aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMattias EngdegÄrd2024-04-05 15:54:30 +0200
committerMattias EngdegÄrd2024-04-05 15:56:04 +0200
commit4fc84cb23b6d671b44f18b8462e94c3bcfc3ee09 (patch)
tree66baaadb3d538ea81c931819cf9bfbe70723399d
parent200a0e5e7d589256d9aad79ff0e9b74b579e7f5e (diff)
downloademacs-4fc84cb23b6d671b44f18b8462e94c3bcfc3ee09.tar.gz
emacs-4fc84cb23b6d671b44f18b8462e94c3bcfc3ee09.zip
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.
-rw-r--r--lisp/auth-source.el4
1 files 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."
2547 (read-passwd-toggle-visibility))) 2547 (read-passwd-toggle-visibility)))
2548 2548
2549(defvar overriding-text-conversion-style) 2549(defvar overriding-text-conversion-style)
2550(declare-function set-text-conversion-style "textconv.c")
2551 2550
2552;;;###autoload 2551;;;###autoload
2553(defun read-passwd (prompt &optional confirm default) 2552(defun read-passwd (prompt &optional confirm default)
@@ -2605,7 +2604,8 @@ by doing (clear-string STRING)."
2605 ;; And of course, don't keep the sensitive data around. 2604 ;; And of course, don't keep the sensitive data around.
2606 (erase-buffer) 2605 (erase-buffer)
2607 ;; Then restore the previous text conversion style. 2606 ;; Then restore the previous text conversion style.
2608 (set-text-conversion-style text-conversion-style)))))))) 2607 (when (fboundp 'set-text-conversion-style)
2608 (set-text-conversion-style text-conversion-style)))))))))
2609 2609
2610(provide 'auth-source) 2610(provide 'auth-source)
2611 2611