diff lisp/arc-mode.el @ 104684:b1cb2e195329

* arc-mode.el (archive-mode): * emacs-lisp/re-builder.el (re-builder-unload-function): Protect against the default value of `major-mode' being nil.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 28 Aug 2009 18:35:25 +0000
parents 73bff1db57b6
children 68150c643e2e
line wrap: on
line diff
--- a/lisp/arc-mode.el	Fri Aug 28 18:22:30 2009 +0000
+++ b/lisp/arc-mode.el	Fri Aug 28 18:35:25 2009 +0000
@@ -638,7 +638,7 @@
   ;; mode on and off.  You can corrupt things that way.
   (if (zerop (buffer-size))
       ;; At present we cannot create archives from scratch
-      (funcall (default-value 'major-mode))
+      (funcall (or (default-value 'major-mode) 'fundamental-mode))
     (if (and (not force) archive-files) nil
       (let* ((type (archive-find-type))
 	     (typename (capitalize (symbol-name type))))