diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-08-28 18:35:25 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-08-28 18:35:25 +0000 |
| commit | 1e8eecea4be7cd99c0f194c9249495d60dfc584b (patch) | |
| tree | 15f985e069c170ba3f0bfe93efdd5ed8f5f08333 /lisp/arc-mode.el | |
| parent | dd4fbf5672391842e40119168935a3fa59463cb4 (diff) | |
| download | emacs-1e8eecea4be7cd99c0f194c9249495d60dfc584b.tar.gz | |
* arc-mode.el (archive-mode):
* emacs-lisp/re-builder.el (re-builder-unload-function):
Protect against the default value of `major-mode' being nil.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 6e65d64bb81..a91e9aebe3b 100644 --- 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)))) |