(autoload-coding-system): Install the same

function as in HEAD.

1 files changed, 12 insertions, 0 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index ad3ee1174d9..a9569119094 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1126,6 +1126,18 @@ Return the resulting coding system."
                      first eol)))
     first))
 
+(defun autoload-coding-system (symbol form)
+  "Define SYMBOL as a coding-system that is defined on demand.
+
+FROM is a form to evaluate to define the coding-system."
+  (put symbol 'coding-system-define-form form)
+  (setq coding-system-alist (cons (list (symbol-name symbol))
+                                  coding-system-alist))
+  (dolist (elt '("-unix" "-dos" "-mac"))
+    (let ((name (concat (symbol-name symbol) elt)))
+      (put (intern name) 'coding-system-define-form form)
+      (setq coding-system-alist (cons (list name) coding-system-alist)))))
+
 (defun set-buffer-file-coding-system (coding-system &optional force nomodify)
   "Set the file coding-system of the current buffer to CODING-SYSTEM.
 This means that when you save the buffer, it will be converted