comparison lisp/tar-mode.el @ 104823:68150c643e2e

Use default-value rather than default-enable-multibyte-characters.

104822:a41e72b7e5fc

;;; tar-mode.el --- simple editing of tar files from GNU emacs

;; Copyright (C) 1990, 1991, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
;;   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.

;; Author: Jamie Zawinski <[e-mail]>
;; Maintainer: FSF
;; Created: 04 Apr 1990
;; Keywords: unix

                   (string-match nulsexp string tar-prefix-offset)
                   (> (match-end 0) (1+ tar-prefix-offset)))
          (setq name (concat (substring string tar-prefix-offset
                                        (1- (match-end 0)))
                             "/" name)))
        (if default-enable-multibyte-characters
            (setq name
                  (decode-coding-string name coding)
                  linkname
                  (decode-coding-string linkname coding)))
        (if (and (null link-p) (string-match "/\\'" name))

                                     'insert-file-contents
                                     (cons name (current-buffer)) t)))))
            (if (or (not coding)
                    (eq (coding-system-type coding) 'undecided))
                (setq coding (detect-coding-region start end t)))
            (if (and default-enable-multibyte-characters
                     (coding-system-get coding :for-unibyte))
                (with-current-buffer buffer
                  (set-buffer-multibyte nil)))
            (widen)
            (decode-coding-region start end coding buffer)))

104823:68150c643e2e

;;; tar-mode.el --- simple editing of tar files from GNU emacs

;; Copyright (C) 1990, 1991, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
;;   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
;;   Free Software Foundation, Inc.

;; Author: Jamie Zawinski <[e-mail]>
;; Maintainer: FSF
;; Created: 04 Apr 1990
;; Keywords: unix

                   (string-match nulsexp string tar-prefix-offset)
                   (> (match-end 0) (1+ tar-prefix-offset)))
          (setq name (concat (substring string tar-prefix-offset
                                        (1- (match-end 0)))
                             "/" name)))
        (if (default-value 'enable-multibyte-characters)
            (setq name
                  (decode-coding-string name coding)
                  linkname
                  (decode-coding-string linkname coding)))
        (if (and (null link-p) (string-match "/\\'" name))

                                     'insert-file-contents
                                     (cons name (current-buffer)) t)))))
            (if (or (not coding)
                    (eq (coding-system-type coding) 'undecided))
                (setq coding (detect-coding-region start end t)))
            (if (and (default-value 'enable-multibyte-characters)
                     (coding-system-get coding :for-unibyte))
                (with-current-buffer buffer
                  (set-buffer-multibyte nil)))
            (widen)
            (decode-coding-region start end coding buffer)))