mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* emulation/cua-rect.el (cua--overlay-keymap): New keymap for

Browse source 
highlight overlays; allow using RET when cursor is over a button.
(cua--highlight-rectangle): Use it.
(cua--rectangle-set-corners): Don't move backwards at eol.
(cua--forward-line): Don't move into void after eob.
This commit is contained in:
Kim F. Storm 2004-09-03 12:33:54 +00:00
parent c59ee3b4c2
commit 1e71278bd3
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emulation/cua-rect.el
View file

@ -65,6 +65,10 @@
(defvar cua--rectangle-overlays nil)
(make-variable-buffer-local 'cua--rectangle-overlays)
(defvar cua--overlay-keymap
(let ((map (make-sparse-keymap)))
(define-key map "\r" 'cua-rotate-rectangle)))
(defvar cua--virtual-edges-debug nil)
;; Per-buffer CUA mode undo list.
@ -274,8 +278,10 @@ Knows about CUA rectangle highlighting in addition to standard undo."
(move-to-column mc)
(set-mark (point))
(goto-char pp)
;; Move cursor inside rectangle, except if char at rigth edge is a tab.
(if (and (if (cua--rectangle-right-side)
(= (move-to-column pc) (- pc tab-width))
(and (= (move-to-column pc) (- pc tab-width))
(not (eolp)))
(> (move-to-column pc) pc))
(not (bolp)))
(backward-char 1))
@ -285,7 +291,11 @@ Knows about CUA rectangle highlighting in addition to standard undo."
(defun cua--forward-line (n)
;; Move forward/backward one line. Returns t if movement.
(= (forward-line n) 0))
(let ((pt (point)))
(and (= (forward-line n) 0)
;; Deal with end of buffer
(or (not (eobp))
(goto-char pt)))))
(defun cua--rectangle-resized ()
;; Refresh state after resizing rectangle
@ -843,6 +853,7 @@ If command is repeated at same position, delete the rectangle."
(overlay-put overlay 'before-string bs)
(overlay-put overlay 'after-string as)
(overlay-put overlay 'face rface)
(overlay-put overlay 'keymap cua--overlay-keymap)
(setq new (cons overlay new))))))
;; Trim old trailing overlays.
(mapcar (function delete-overlay) old)