# HG changeset patch
# User ben
# Date 1106733083 0
# Node ID 14f65fa1e69e8ae0881865dac2097e945c03457e
# Parent  e27943beb30f83c960b514fcd0ddcf338933f61c
[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.

diff -r e27943beb30f -r 14f65fa1e69e lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 26 09:48:27 2005 +0000
+++ b/lisp/ChangeLog	Wed Jan 26 09:51:23 2005 +0000
@@ -1,3 +1,66 @@
+2005-01-26  Ben Wing  <ben@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.
+
+2004-11-17  Ben Wing  <ben@xemacs.org>
+
+	* cl.el (cl-random-time):
+	Conditionalize on coerce-number as Jerry says it's OK.
+	
+	* font-lock.el (c-font-lock-keywords-2): Removed.
+	* font-lock.el (xemacs-c-font-lock-keywords-2): New.
+	* font-lock.el (c-font-lock-keywords-3): Removed.
+	* font-lock.el (xemacs-c-font-lock-keywords-3): New.
+	Fix naming problem.
+	
+	* frame.el (display-mouse-p):
+	Fix warning.
+	
+	* fill.el:
+	* fill.el (canonically-space-region):
+	* fill.el (fill-region-as-paragraph):
+	* fill.el (justify-current-line):
+	* fill.el (fill-individual-paragraphs):
+	Sync for real to FSF 19.34.
+	
+	* newcomment.el:
+	* newcomment.el (comment):
+	* newcomment.el (comment-fill-column): New.
+	* newcomment.el (comment-style):
+	* newcomment.el (comment-padding):
+	* newcomment.el (comment-multi-line):
+	* newcomment.el (comment-normalize-vars):
+	* newcomment.el (comment-indent):
+	* newcomment.el (uncomment-region):
+	* newcomment.el (comment-make-extra-lines):
+	* newcomment.el (comment-with-narrowing):
+	* newcomment.el (comment-region-internal):
+	* newcomment.el (comment-region):
+	* newcomment.el (comment-box):
+	* newcomment.el (comment-or-uncomment-region): New.
+	* newcomment.el (comment-dwim):
+	* newcomment.el (comment-auto-fill-only-comments):
+	* newcomment.el (comment-valid-prefix): New.
+	* newcomment.el (comment-indent-new-line):
+	* page.el:
+	* page.el (narrow-to-page):
+	* register.el:
+	* register.el (set-register):
+	* register.el (point-to-register):
+	* register.el (register-swap-out):
+	* register.el (number-to-register):
+	* register.el (view-register):
+	* register.el (list-registers): New.
+	* register.el (describe-register-1): New.
+	* register.el (insert-register):
+	Sync to FSF 21.3.
+
 2005-01-25  Ben Wing  <ben@xemacs.org>
 
 	* startup.el:
diff -r e27943beb30f -r 14f65fa1e69e lisp/code-init.el
--- 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)