Mercurial > hg > xemacs-beta
changeset 2508:14f65fa1e69e
[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 | e27943beb30f |
children | 6a9afa282c8e |
files | lisp/ChangeLog lisp/code-init.el |
diffstat | 2 files changed, 72 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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:
--- 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)