diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-08-10 15:31:59 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-08-10 15:31:59 +0300 |
| commit | e7b348b08ac5cea01141ece6b06f95c6d0b8c292 (patch) | |
| tree | ebd94d1b6320b8f1b4cd4067d3f41aec7a807858 | |
| parent | bca31619e8d862e57cce443f7357af187283e0df (diff) | |
| download | emacs-e7b348b08ac5cea01141ece6b06f95c6d0b8c292.tar.gz | |
Fix 'describe-char' in "C" locale
* lisp/descr-text.el (describe-char): Avoid assertions if
'buffer-file-coding-system' is nil. (Bug#57066)
| -rw-r--r-- | lisp/descr-text.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 16971aa6611..7fad031add6 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -655,7 +655,9 @@ The character information includes: ("file code" ,@(if multibyte-p (let* ((coding buffer-file-coding-system) - (encoded (encode-coding-char char coding charset))) + (encoded + (and coding + (encode-coding-char char coding charset)))) (if encoded (list (encoded-string-description encoded coding) (format "(encoded by coding system %S)" |