[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4fc84cb23b6: Only call set-text-conversion-style if it exists
From: |
Mattias Engdegård |
Subject: |
master 4fc84cb23b6: Only call set-text-conversion-style if it exists |
Date: |
Fri, 5 Apr 2024 09:57:03 -0400 (EDT) |
branch: master
commit 4fc84cb23b6d671b44f18b8462e94c3bcfc3ee09
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
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.
---
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4fc84cb23b6: Only call set-text-conversion-style if it exists,
Mattias Engdegård <=