[Emacs-diffs] Changes to emacs/lisp/jka-compr.el

[Kenichi Handa]

Index: emacs/lisp/jka-compr.el
diff -c emacs/lisp/jka-compr.el:1.71 emacs/lisp/jka-compr.el:1.72
*** emacs/lisp/jka-compr.el:1.71        Sun Sep  1 09:26:06 2002
--- emacs/lisp/jka-compr.el     Tue Jan 21 21:33:55 2003
***************
*** 527,546 ****
              (local-copy
               (jka-compr-run-real-handler 'file-local-copy (list filename)))
              local-file
!             size start
!               (coding-system-for-read
!              (or coding-system-for-read
!                  ;; If multibyte characters are disabled,
!                  ;; don't do that conversion.
!                  (and (null enable-multibyte-characters)
!                       (or (auto-coding-alist-lookup
!                            (jka-compr-byte-compiler-base-file-name file))
!                           'raw-text))
!                  (let ((coding (find-operation-coding-system
!                                 'insert-file-contents
!                                 (jka-compr-byte-compiler-base-file-name 
file))))
!                    (and (consp coding) (car coding)))
!                  'undecided)) )
  
          (setq local-file (or local-copy filename))
  
--- 527,533 ----
              (local-copy
               (jka-compr-run-real-handler 'file-local-copy (list filename)))
              local-file
!             size start)
  
          (setq local-file (or local-copy filename))
  
***************
*** 558,564 ****
  
                (condition-case error-code
  
!                   (progn
                      (if replace
                          (goto-char (point-min)))
                      (setq start (point))
--- 545,551 ----
  
                (condition-case error-code
  
!                   (let ((coding-system-for-read 'no-conversion))
                      (if replace
                          (goto-char (point-min)))
                      (setq start (point))
***************
*** 605,610 ****
--- 592,602 ----
             local-copy
             (file-exists-p local-copy)
             (delete-file local-copy)))
+ 
+         (decode-region-as-inserted-from-file
+          (point) (+ (point) size) 
+          (jka-compr-byte-compiler-base-file-name file)
+          visit beg end replace)
  
          (and
           visit