/[emacs]/emacs/lisp/tar-mode.el
ViewVC logotype

Diff of /emacs/lisp/tar-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.102 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.103 by handa, Sat Oct 22 01:24:38 2005 UTC
# Line 735  appear on disk when you save the tar-fil Line 735  appear on disk when you save the tar-fil
735                               (and set-auto-coding-function                               (and set-auto-coding-function
736                                    (save-excursion                                    (save-excursion
737                                      (funcall set-auto-coding-function                                      (funcall set-auto-coding-function
738                                               name (- (point-max) (point)))))))                                               name (- (point-max) (point)))))
739                                 (car (find-operation-coding-system
740                                       'insert-file-contents name t))))
741                          (multibyte enable-multibyte-characters)                          (multibyte enable-multibyte-characters)
742                          (detected (detect-coding-region                          (detected (detect-coding-region
743                                     (point-min)                                     (point-min)
# Line 747  appear on disk when you save the tar-fil Line 749  appear on disk when you save the tar-fil
749                                            coding                                            coding
750                                            (coding-system-eol-type detected))))                                            (coding-system-eol-type detected))))
751                        (setq coding                        (setq coding
752                              (or (find-new-buffer-file-coding-system detected)                              (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)))))  
753                      (if (or (eq coding 'no-conversion)                      (if (or (eq coding 'no-conversion)
754                              (eq (coding-system-type coding) 5))                              (eq (coding-system-type coding) 5))
755                          (setq multibyte (set-buffer-multibyte nil)))                          (setq multibyte (set-buffer-multibyte nil)))

Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26