sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-10-30 22:53:37 +00:00
Code Issues Releases Wiki Activity

Restore undo information after temporarily disabling it.

Browse Source
This commit is contained in:
Andrey Kotlarski
2013-12-18 00:04:54 +02:00
parent d88080f436
commit 386d85656c
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
vlf.el
View File

@@ -108,12 +108,10 @@ continuously recenter.")
(defmacro vlf-with-undo-disabled (&rest body) (defmacro vlf-with-undo-disabled (&rest body)
"Execute BODY with temporarily disabled undo." "Execute BODY with temporarily disabled undo."
`(let ((undo-enabled (not (eq buffer-undo-list t)))) `(let ((undo-list buffer-undo-list))
(if undo-enabled (setq buffer-undo-list t)
(buffer-disable-undo))
(unwind-protect (progn ,@body) (unwind-protect (progn ,@body)
(if undo-enabled (setq buffer-undo-list undo-list))))
(buffer-enable-undo)))))
(define-minor-mode vlf-mode (define-minor-mode vlf-mode
"Mode to browse large files in." "Mode to browse large files in."