Commit 1e8eecea authored by Juanma Barranquero's avatar Juanma Barranquero

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

* emacs-lisp/re-builder.el (re-builder-unload-function):
  Protect against the default value of `major-mode' being nil.
parent dd4fbf56
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):
......
......@@ -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))))
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment