(compilation-mode): Add a mode-class property.

[gnu-emacs] / lisp / arc-mode.el

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index e1c1669a9b5983d1588305f4a5ab8ae910a53d1b..0a63debcd999b986fe56c42eb867b11c1735c1b0 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -236,21 +236,15 @@ Archive and member name will be added.")
 (make-variable-buffer-local 'archive-subfile-mode)
 (put 'archive-subfile-mode 'permanent-local t)
 
-;; buffer-file-type is a per-buffer variable in the msdog configuration
-(if (boundp 'buffer-file-type) nil
-  (defvar buffer-file-type nil
-    "*Nil for dos-style text file, non-nil otherwise.")
-  (make-variable-buffer-local 'buffer-file-type)
-  (put 'buffer-file-type 'permanent-local t)
-  (setq-default buffer-file-type nil))
-
 (defvar archive-subfile-dos nil
-  "Negation of `buffer-file-type' which see.")
+  "Negation of `buffer-file-type', which see.")
 (make-variable-buffer-local 'archive-subfile-dos)
 (put 'archive-subfile-dos 'permanent-local t)
 
-(defvar archive-files nil "Vector of file descriptors.  Each descriptor is
-a vector of [ext-file-name int-file-name case-fiddled mode ...]")
+(defvar archive-files nil
+  "Vector of file descriptors.
+Each descriptor is a vector of the form
+ [EXT-FILE-NAME INT-FILE-NAME CASE-FIDDLED MODE ...]")
 (make-variable-buffer-local 'archive-files)
 
 (defvar archive-lemacs
@@ -436,7 +430,8 @@ archive.
        (setq require-final-newline nil)
        (make-local-variable 'enable-local-variables)
        (setq enable-local-variables nil)
-       (setq buffer-file-type t)
+       (if (boundp 'default-buffer-file-type)
+           (setq buffer-file-type t))
 
        (make-local-variable 'archive-read-only)
        (setq archive-read-only (not (file-writable-p (buffer-file-name))))
@@ -617,7 +612,7 @@ is visible (and the real data of the buffer is hidden)."
     (archive-next-line no)))
 
 (defun archive-summarize-files (files)
-  "Insert a description of a list of files annotated with proper mouse face"
+  "Insert a description of a list of files annotated with proper mouse face."
   (setq archive-file-list-start (point-marker))
   (setq archive-file-name-indent (if files (aref (car files) 1) 0))
   ;; We don't want to do an insert for each element since that takes too
@@ -737,8 +732,9 @@ This function changes the set of information shown for each files."
           (make-local-variable 'local-write-file-hooks)
           (add-hook 'local-write-file-hooks 'archive-write-file-member)
           (setq archive-subfile-mode descr)
-         (setq archive-subfile-dos nil
-               buffer-file-type t)
+         (setq archive-subfile-dos nil)
+         (if (boundp 'default-buffer-file-type)
+             (setq buffer-file-type t))
          (if (fboundp extractor)
              (funcall extractor archive ename)
            (archive-*-extract archive ename (symbol-value extractor)))
@@ -852,7 +848,8 @@ This function changes the set of information shown for each files."
       (goto-char (point-min))
       (setq archive-subfile-dos
            (or force (not (search-forward-regexp "[^\r]\n" nil t))))
-      (setq buffer-file-type (not archive-subfile-dos))
+      (if (boundp 'default-buffer-file-type)
+         (setq buffer-file-type (not archive-subfile-dos)))
       (if archive-subfile-dos
           (let ((modified (buffer-modified-p)))
             (buffer-disable-undo (current-buffer))
@@ -876,7 +873,8 @@ This function changes the set of information shown for each files."
                   (while (search-forward "\n" nil t)
                     (replace-match "\r\n"))
                   (setq archive-subfile-dos nil)
-                  (setq buffer-file-type t)
+                 (if (boundp 'default-buffer-file-type)
+                     (setq buffer-file-type t))
                   ;; OK, we're now have explicit ^M^Js -- save and re-unixfy
                   (archive-write-file-member))
               (progn