[Emacs-diffs] Changes to emacs/lisp/tar-mode.el

[Kenichi Handa]

Index: emacs/lisp/tar-mode.el
diff -c emacs/lisp/tar-mode.el:1.102 emacs/lisp/tar-mode.el:1.103
*** emacs/lisp/tar-mode.el:1.102        Sat Aug  6 22:13:43 2005
--- emacs/lisp/tar-mode.el      Sat Oct 22 01:24:38 2005
***************
*** 735,741 ****
                             (and set-auto-coding-function
                                  (save-excursion
                                    (funcall set-auto-coding-function
!                                            name (- (point-max) (point)))))))
                        (multibyte enable-multibyte-characters)
                        (detected (detect-coding-region
                                   (point-min)
--- 735,743 ----
                             (and set-auto-coding-function
                                  (save-excursion
                                    (funcall set-auto-coding-function
!                                            name (- (point-max) (point)))))
!                            (car (find-operation-coding-system
!                                  'insert-file-contents name t))))
                        (multibyte enable-multibyte-characters)
                        (detected (detect-coding-region
                                   (point-min)
***************
*** 747,759 ****
                                          coding
                                          (coding-system-eol-type detected))))
                      (setq coding
!                           (or (find-new-buffer-file-coding-system detected)
!                               (let ((file-coding
!                                      (find-operation-coding-system
!                                       'insert-file-contents 
buffer-file-name)))
!                                 (if (consp file-coding)
!                                     (setq file-coding (car file-coding))
!                                   file-coding)))))
                    (if (or (eq coding 'no-conversion)
                            (eq (coding-system-type coding) 5))
                        (setq multibyte (set-buffer-multibyte nil)))
--- 749,755 ----
                                          coding
                                          (coding-system-eol-type detected))))
                      (setq coding
!                           (find-new-buffer-file-coding-system detected)))
                    (if (or (eq coding 'no-conversion)
                            (eq (coding-system-type coding) 5))
                        (setq multibyte (set-buffer-multibyte nil)))