NOTE: This patch has been committed.
lisp/ChangeLog addition:
2005-01-26 Ben Wing <ben(a)xemacs.org>
* code-init.el (set-eol-detection):
* code-init.el (coding-system-default-variable-list):
* code-init.el (get-coding-system-variable):
* code-init.el (set-coding-system-variable):
Undo Stephen's change of 2004-05-11.
Implement no-conversion-coding-system-mapping as a coding
system variable.
symlink source patch:
Diff command: bash -ci "cvs-diff --show-c-function -no-changelog "
Files affected: lisp/code-init.el
Index: lisp/code-init.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/code-init.el,v
retrieving revision 1.9
diff -u -p -r1.9 code-init.el
--- lisp/code-init.el 2004/09/22 02:05:49 1.9
+++ lisp/code-init.el 2005/01/26 09:50:17
@@ -62,14 +62,11 @@ detection on Windows! Your files will h
if you do this."
(dolist (x '(buffer-file-coding-system-for-read
keyboard
- default-process-coding-system-read))
+ default-process-coding-system-read
+ no-conversion-coding-system-mapping))
(set-coding-system-variable
x (coding-system-change-eol-conversion (get-coding-system-variable x)
- (if flag nil 'lf))))
- (set-coding-category-system
- 'no-conversion
- (coding-system-change-eol-conversion (coding-category-system 'no-conversion)
- (if flag nil 'lf))))
+ (if flag nil 'lf)))))
(defun coding-system-current-system-configuration ()
(cond ((memq system-type '(windows-nt cygwin32))
@@ -117,7 +114,8 @@ if you do this."
keyboard
terminal
default-process-coding-system-read
- default-process-coding-system-write))
+ default-process-coding-system-write
+ no-conversion-coding-system-mapping))
(defun get-coding-system-variable (var)
"Return the value of a basic coding system variable.
@@ -134,6 +132,8 @@ VAR."
(terminal (coding-system-aliasee 'terminal))
(default-process-coding-system-read (car default-process-coding-system))
(default-process-coding-system-write (cdr default-process-coding-system))
+ (no-conversion-coding-system-mapping
+ (coding-category-system 'no-conversion))
(t (error 'invalid-constant "Invalid coding system variable" var))))
(defun set-coding-system-variable (var value)
@@ -156,6 +156,8 @@ VAR."
(default-process-coding-system-write
(setq default-process-coding-system
(cons (car default-process-coding-system) value)))
+ (no-conversion-coding-system-mapping
+ (set-coding-category-system 'no-conversion value))
(t (error 'invalid-constant "Invalid coding system variable" var))))
(defun coding-system-variable-default-value (var &optional config)