diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-19 19:39:05 -0700 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-19 19:39:05 -0700 |
| commit | 08d7cabc923dad602dd3801c09f02386acda4e3b (patch) | |
| tree | e9319c55f97a0e0289212245fa83ad368b265ed2 | |
| parent | afdf679841ad31664d41e7debca7083632add0f8 (diff) | |
| download | emacs-08d7cabc923dad602dd3801c09f02386acda4e3b.tar.gz | |
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).
| -rw-r--r-- | lisp/international/mule-diag.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |