[Emacs-diffs] master 08d7cab: Output `auto-coding-alist' in `describe-current-coding-system'

[Lars Ingebrigtsen]

branch: master
commit 08d7cabc923dad602dd3801c09f02386acda4e3b
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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).
---
 lisp/international/mule-diag.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 472529f..dcdcafc 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))))