Mercurial > emacs
changeset 90269:0f622530c46c
(autoload-coding-system): Install the same
function as in HEAD.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 19 Jan 2006 07:16:47 +0000 |
| parents | d88caeac70d7 |
| children | e7efdba36b32 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Thu Jan 19 07:11:42 2006 +0000 +++ b/lisp/international/mule.el Thu Jan 19 07:16:47 2006 +0000 @@ -1126,6 +1126,18 @@ 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