mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
* emacs-lisp/re-builder.el (re-builder-unload-function):
  Protect against the default value of `major-mode' being nil.
This commit is contained in:
Juanma Barranquero 2009-08-28 18:35:25 +00:00
parent dd4fbf5672
commit 1e8eecea4b
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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):

2
lisp/arc-mode.el
View File

@ -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))))

2
lisp/emacs-lisp/re-builder.el
View File

@ -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)