diff options
| author | Mattias EngdegÄrd | 2024-04-05 15:54:30 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2024-04-05 15:56:04 +0200 |
| commit | 4fc84cb23b6d671b44f18b8462e94c3bcfc3ee09 (patch) | |
| tree | 66baaadb3d538ea81c931819cf9bfbe70723399d | |
| parent | 200a0e5e7d589256d9aad79ff0e9b74b579e7f5e (diff) | |
| download | emacs-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.el | 4 |
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 | ||