1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00

(ses-unload-function): New function.

This commit is contained in:
Juanma Barranquero 2007-10-30 00:21:42 +00:00
parent 352ddc78d3
commit 7981ad6baa

View File

@ -2908,7 +2908,7 @@ TEST is evaluated."
;;----------------------------------------------------------------------------
;;These functions use the variables 'row' and 'col' that are
;;dynamically bound by ses-print-cell. We define these varables at
;;dynamically bound by ses-print-cell. We define these variables at
;;compile-time to make the compiler happy.
(eval-when-compile
(dolist (x '(row col))
@ -2967,6 +2967,19 @@ current column and continues until the next nonblank column."
(dolist (x (cons 'ses-unsafe ses-standard-printer-functions))
(put x 'side-effect-free t))
(defun ses-unload-function ()
"Unload the Simple Emacs Spreadsheet."
(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-major-mode 'fundamental-mode)))))
;; continue standard unloading
nil)
(provide 'ses)
;; arch-tag: 88c1ccf0-4293-4824-8c5d-0757b52217f3