Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 104683:2b8eeeaa8c1d | 104684:b1cb2e195329 |
|---|---|
| 636 \\{archive-mode-map}" | 636 \\{archive-mode-map}" |
| 637 ;; This is not interactive because you shouldn't be turning this | 637 ;; This is not interactive because you shouldn't be turning this |
| 638 ;; mode on and off. You can corrupt things that way. | 638 ;; mode on and off. You can corrupt things that way. |
| 639 (if (zerop (buffer-size)) | 639 (if (zerop (buffer-size)) |
| 640 ;; At present we cannot create archives from scratch | 640 ;; At present we cannot create archives from scratch |
| 641 (funcall (default-value 'major-mode)) | 641 (funcall (or (default-value 'major-mode) 'fundamental-mode)) |
| 642 (if (and (not force) archive-files) nil | 642 (if (and (not force) archive-files) nil |
| 643 (let* ((type (archive-find-type)) | 643 (let* ((type (archive-find-type)) |
| 644 (typename (capitalize (symbol-name type)))) | 644 (typename (capitalize (symbol-name type)))) |
| 645 (kill-all-local-variables) | 645 (kill-all-local-variables) |
| 646 (make-local-variable 'archive-subtype) | 646 (make-local-variable 'archive-subtype) |