From: Kim F. Storm <storm@cua.dk>
Date: Tue, 29 Nov 2005 23:58:20 +0000 (+0000)
Subject: (cua--rectangle-overlays): Make	permanent-local.
X-Git-Tag: emacs-pretest-22.0.90~5593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0e4cc19874341e454dcbbe6ecad74984babe832;p=emacs.git

(cua--rectangle-overlays): Make	permanent-local.
(cua--rectangle-post-command): Cleanup overlays and deactivate mark
after revert-buffer (or anything else which kills all local variables).
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 35132e60e8d..0590af50249 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -65,6 +65,7 @@
 ;; List of overlays used to display current rectangle.
 (defvar cua--rectangle-overlays nil)
 (make-variable-buffer-local 'cua--rectangle-overlays)
+(put 'cua--rectangle-overlays 'permanent-local t)
 
 (defvar cua--overlay-keymap
   (let ((map (make-sparse-keymap)))
@@ -1393,7 +1394,12 @@ With prefix arg, indent to that column."
       (if (and mark-active
                (not deactivate-mark))
           (cua--highlight-rectangle)
-        (cua--deactivate-rectangle)))
+        (cua--deactivate-rectangle))
+    (when cua--rectangle-overlays
+      ;; clean-up after revert-buffer
+      (mapcar (function delete-overlay) cua--rectangle-overlays)
+      (setq cua--rectangle-overlays nil)
+      (setq deactivate-mark t)))
   (when cua--rect-undo-set-point
     (goto-char cua--rect-undo-set-point)
     (setq cua--rect-undo-set-point nil)))