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).
This commit is contained in:
Lars Ingebrigtsen 2019-08-19 19:39:05 -07:00
parent afdf679841
commit 08d7cabc92

View file

@ -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))))