From: Lars Ingebrigtsen Date: Tue, 20 Aug 2019 02:39:05 +0000 (-0700) Subject: Output `auto-coding-alist' in `describe-current-coding-system' X-Git-Tag: emacs-27.0.90~1563 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08d7cabc923dad602dd3801c09f02386acda4e3b;p=emacs.git Output `auto-coding-alist' in `describe-current-coding-system' * lisp/international/mule-diag.el (describe-current-coding-system): Also output the contents of `auto-coding-alist', which take precedence over `file-coding-system-alist' (bug#9575). --- diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 472529ffc05..dcdcafcea77 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -677,7 +677,8 @@ Priority order for recognizing coding systems when reading files:\n") (princ (cdr (car alist))) (princ "\n") (setq alist (cdr alist))))))) - (funcall func "File I/O" file-coding-system-alist) + (funcall func "File I/O" (append auto-coding-alist + file-coding-system-alist)) (funcall func "Process I/O" process-coding-system-alist) (funcall func "Network I/O" network-coding-system-alist)) (help-mode))))