[Emacs-diffs] /srv/bzr/emacs/trunk r104705: Simplify unloading functions after revno:104702.

[Juanma Barranquero]

------------------------------------------------------------
revno: 104705
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2011-06-25 20:08:41 +0200
message:
  Simplify unloading functions after revno:104702.
  
  * allout.el (allout-unload-function): Pass -1 to `allout-mode'.
  
  * proced.el (proced-unload-function):
  * progmodes/cperl-mode.el (cperl-mode-unload-function): Remove.
  
  * ses.el (ses-unload-function):
  * emacs-lisp/re-builder.el (re-builder-unload-function): Simplify.
modified:
  lisp/ChangeLog
  lisp/allout.el
  lisp/emacs-lisp/re-builder.el
  lisp/proced.el
  lisp/progmodes/cperl-mode.el
  lisp/ses.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-25 18:05:48 +0000
+++ b/lisp/ChangeLog    2011-06-25 18:08:41 +0000
@@ -1,3 +1,13 @@
+2011-06-25  Juanma Barranquero  <address@hidden>
+
+       * allout.el (allout-unload-function): Pass -1 to `allout-mode'.
+
+       * ses.el (ses-unload-function):
+       * emacs-lisp/re-builder.el (re-builder-unload-function): Simplify.
+
+       * proced.el (proced-unload-function):
+       * progmodes/cperl-mode.el (cperl-mode-unload-function): Remove.
+
 2011-06-25  Andreas Rottmann  <address@hidden>
 
        * server.el (server-create-window-system-frame): Add parameters arg.

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2011-05-23 17:57:17 +0000
+++ b/lisp/allout.el    2011-06-25 18:08:41 +0000
@@ -2085,7 +2085,7 @@
   (save-current-buffer
     (dolist (buffer (buffer-list))
       (set-buffer buffer)
-      (when (allout-mode-p) (allout-mode))))
+      (when (allout-mode-p) (allout-mode -1))))
   ;; continue standard unloading
   nil)
 

=== modified file 'lisp/emacs-lisp/re-builder.el'
--- a/lisp/emacs-lisp/re-builder.el     2011-05-28 18:48:41 +0000
+++ b/lisp/emacs-lisp/re-builder.el     2011-06-25 18:08:41 +0000
@@ -714,8 +714,7 @@
       (remove-hook 'after-change-functions 'reb-auto-update t)
       (remove-hook 'kill-buffer-hook 'reb-kill-buffer t)
       (when (reb-mode-buffer-p)
-       (reb-delete-overlays)
-       (funcall (or (default-value 'major-mode) 'fundamental-mode)))))
+       (reb-delete-overlays))))
   ;; continue standard unloading
   nil)
 

=== modified file 'lisp/proced.el'
--- a/lisp/proced.el    2011-06-01 19:32:04 +0000
+++ b/lisp/proced.el    2011-06-25 18:08:41 +0000
@@ -1869,16 +1869,6 @@
   (message "Change in Proced buffer undone.
 Killed processes cannot be recovered by Emacs."))
 
-(defun proced-unload-function ()
-  "Unload the Proced library."
-  (save-current-buffer
-    (dolist (buf (buffer-list))
-      (set-buffer buf)
-      (when (eq major-mode 'proced-mode)
-        (funcall (or (default-value 'major-mode) 'fundamental-mode)))))
-  ;; continue standard unloading
-  nil)
-
 (provide 'proced)
 
 ;;; proced.el ends here

=== modified file 'lisp/progmodes/cperl-mode.el'
--- a/lisp/progmodes/cperl-mode.el      2011-05-23 17:57:17 +0000
+++ b/lisp/progmodes/cperl-mode.el      2011-06-25 18:08:41 +0000
@@ -8971,18 +8971,6 @@
     (substring v (match-beginning 1) (match-end 1)))
   "Version of IZ-supported CPerl package this file is based on.")
 
-(defun cperl-mode-unload-function ()
-  "Unload the Cperl mode library."
-  (let ((new-mode (if (eq (symbol-function 'perl-mode) 'cperl-mode)
-                     'fundamental-mode
-                   'perl-mode)))
-    (dolist (buf (buffer-list))
-      (with-current-buffer buf
-       (when (eq major-mode 'cperl-mode)
-         (funcall new-mode)))))
-  ;; continue standard unloading
-  nil)
-
 (provide 'cperl-mode)
 
 ;;; cperl-mode.el ends here

=== modified file 'lisp/ses.el'
--- a/lisp/ses.el       2011-01-26 08:36:39 +0000
+++ b/lisp/ses.el       2011-06-25 18:08:41 +0000
@@ -3006,11 +3006,6 @@
   (dolist (fun '(copy-region-as-kill yank))
     (ad-remove-advice fun 'around (intern (concat "ses-" (symbol-name fun))))
     (ad-update fun))
-  (save-current-buffer
-    (dolist (buf (buffer-list))
-      (set-buffer buf)
-      (when (eq major-mode 'ses-mode)
-       (funcall (or (default-value 'major-mode) 'fundamental-mode)))))
   ;; continue standard unloading
   nil)