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:
parent
afdf679841
commit
08d7cabc92
1 changed files with 2 additions and 1 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue