[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Dave Love]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.147 
emacs/lisp/international/mule.el:1.148
*** emacs/lisp/international/mule.el:1.147      Sat Jun  8 16:58:59 2002
--- emacs/lisp/international/mule.el    Mon Jun 17 06:25:07 2002
***************
*** 1367,1372 ****
--- 1367,1374 ----
        (set-buffer-modified-p modified-p)
        (- (point-max) (point-min)))))
  
+ ;; If you add charsets here, be sure to modify the regexp used by
+ ;; ctext-pre-write-conversion to look up non-standard charsets.
  (defvar non-standard-designations-alist
    '(("$(0" . (big5 "big5-0" 2))
      ("$(1" . (big5 "big5-0" 2))
***************
*** 1408,1414 ****
           (buffer-disable-undo)
           (if (stringp from)
               (insert from)
!            (insert-buffer-substring buf from to)))))
    (encode-coding-region from to 'ctext-no-compositions)
    ;; Replace ISO-2022 charset designations with extended segments, for
    ;; those charsets that are not part of the official X registry.
--- 1410,1417 ----
           (buffer-disable-undo)
           (if (stringp from)
               (insert from)
!            (insert-buffer-substring buf from to))
!          (setq from (point-min) to (point-max)))))
    (encode-coding-region from to 'ctext-no-compositions)
    ;; Replace ISO-2022 charset designations with extended segments, for
    ;; those charsets that are not part of the official X registry.