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:
parent
352ddc78d3
commit
7981ad6baa
15
lisp/ses.el
15
lisp/ses.el
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user