diff options
Diffstat (limited to 'lisp/electric.el')
-rw-r--r-- | lisp/electric.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/electric.el b/lisp/electric.el index be992c60f0d..a10adb1dca7 100644 --- a/lisp/electric.el +++ b/lisp/electric.el @@ -31,8 +31,7 @@ (n 0) (window-min-height 0) (buffer-read-only nil) - (modified (buffer-modified-p)) - (buffer (current-buffer))) + (modified (buffer-modified-p))) (unwind-protect (progn (select-window window) @@ -45,10 +44,8 @@ (delete-region (point-min) (point)) (set-buffer-modified-p modified) (goto-char p) - (select-window w) - ;; Make sure we unbind buffer-read-only - ;; with the proper current buffer. - (set-buffer buffer))))) + (select-window w))))) + ;; This loop is the guts for non-standard modes which retain control ;; until some event occurs. It is a `do-forever', the only way out is to |