Mercurial > hg > xemacs-beta

diff lisp/code-init.el @ 2508:14f65fa1e69e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-26 09:51:22 by ben] Undo Stephen's change of 2004-05-11 code-init.el: Undo Stephen's change of 2004-05-11. Implement no-conversion-coding-system-mapping as a coding system variable.
author ben
date Wed, 26 Jan 2005 09:51:23 +0000
parents 13a418960a88
children 1d74a1d115ee
line wrap: on
line diff
--- a/lisp/code-init.el	Wed Jan 26 09:48:27 2005 +0000
+++ b/lisp/code-init.el	Wed Jan 26 09:51:23 2005 +0000
@@ -62,14 +62,11 @@
 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 @@
     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 @@
     (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 @@
     (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)