* arc-mode.el (archive-mode):

* emacs-lisp/re-builder.el (re-builder-unload-function):
  Protect against the default value of `major-mode' being nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c810e963f8e42a5fab8f5e81dc25deed4ac9216..d7a132584ac85a690456998165f8fb8fcad16dc4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-08-28  Juanma Barranquero  <lekktu@gmail.com>
+
+       * arc-mode.el (archive-mode):
+       * emacs-lisp/re-builder.el (re-builder-unload-function):
+       Protect against the default value of `major-mode' being nil.
+
 2009-08-28  Juanma Barranquero  <lekktu@gmail.com>
 
        * international/ucs-normalize.el (ucs-normalize-sort, quick-check-list):

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 6e65d64bb8129a94aa8f3e9cf04dbbf6a589674d..a91e9aebe3b20e24a0d384668fad4ab18489af62 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -638,7 +638,7 @@ archive.
   ;; 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))))

diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index ed45bd65304c0d068b5fd667c57d0d435a042de9..31f7d8da49ede4e16f4c41df0ba8f1c11b6f0d61 100644 (file)
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -720,7 +720,7 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions."
       (remove-hook 'kill-buffer-hook 'reb-kill-buffer t)
       (when (reb-mode-buffer-p)
        (reb-delete-overlays)
-       (funcall (default-value 'major-mode)))))
+       (funcall (or (default-value 'major-mode) 'fundamental-mode)))))
   ;; continue standard unloading
   nil)