[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule.el |
Date: |
Tue, 07 Oct 2003 03:33:22 -0400 |
Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.193
emacs/lisp/international/mule.el:1.194
*** emacs/lisp/international/mule.el:1.193 Mon Oct 6 21:29:35 2003
--- emacs/lisp/international/mule.el Tue Oct 7 03:33:22 2003
***************
*** 1123,1129 ****
"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))
(defun set-buffer-file-coding-system (coding-system &optional force)
"Set the file coding-system of the current buffer to CODING-SYSTEM.
--- 1123,1131 ----
"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)))
(defun set-buffer-file-coding-system (coding-system &optional force)
"Set the file coding-system of the current buffer to CODING-SYSTEM.