/[emacs]/emacs/lisp/emulation/cua-rect.el
ViewVC logotype

Diff of /emacs/lisp/emulation/cua-rect.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by kfstorm, Sat Nov 26 23:30:43 2005 UTC revision 1.25 by kfstorm, Tue Nov 29 23:58:20 2005 UTC
# Line 65  Line 65 
65  ;; List of overlays used to display current rectangle.  ;; List of overlays used to display current rectangle.
66  (defvar cua--rectangle-overlays nil)  (defvar cua--rectangle-overlays nil)
67  (make-variable-buffer-local 'cua--rectangle-overlays)  (make-variable-buffer-local 'cua--rectangle-overlays)
68    (put 'cua--rectangle-overlays 'permanent-local t)
69    
70  (defvar cua--overlay-keymap  (defvar cua--overlay-keymap
71    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
# Line 1393  With prefix arg, indent to that column." Line 1394  With prefix arg, indent to that column."
1394        (if (and mark-active        (if (and mark-active
1395                 (not deactivate-mark))                 (not deactivate-mark))
1396            (cua--highlight-rectangle)            (cua--highlight-rectangle)
1397          (cua--deactivate-rectangle)))          (cua--deactivate-rectangle))
1398        (when cua--rectangle-overlays
1399          ;; clean-up after revert-buffer
1400          (mapcar (function delete-overlay) cua--rectangle-overlays)
1401          (setq cua--rectangle-overlays nil)
1402          (setq deactivate-mark t)))
1403    (when cua--rect-undo-set-point    (when cua--rect-undo-set-point
1404      (goto-char cua--rect-undo-set-point)      (goto-char cua--rect-undo-set-point)
1405      (setq cua--rect-undo-set-point nil)))      (setq cua--rect-undo-set-point nil)))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26