# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1251484525 0
# Node ID b1cb2e195329b8f6ba57b29b73985096709ec8ba
# Parent  2b8eeeaa8c1db8e2652e27a67070db365798f01d
* 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 -r 2b8eeeaa8c1d -r b1cb2e195329 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Aug 28 18:22:30 2009 +0000
+++ b/lisp/ChangeLog	Fri Aug 28 18:35:25 2009 +0000
@@ -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 -r 2b8eeeaa8c1d -r b1cb2e195329 lisp/arc-mode.el
--- 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))))
diff -r 2b8eeeaa8c1d -r b1cb2e195329 lisp/emacs-lisp/re-builder.el
--- a/lisp/emacs-lisp/re-builder.el	Fri Aug 28 18:22:30 2009 +0000
+++ b/lisp/emacs-lisp/re-builder.el	Fri Aug 28 18:35:25 2009 +0000
@@ -720,7 +720,7 @@
       (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)