procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cua--rectangle-operation): Let bind

Browse source 
inhibit-field-text-motion to t so rectangles work in comint buffers.
This commit is contained in:
Kim F. Storm 2004-09-12 20:26:39 +00:00
parent f4961c0059
commit 4e687447ad
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -559,7 +559,8 @@ If command is repeated at same position, delete the rectangle."
;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges)
;; Perform auto-tabify after operation if TABIFY is non-nil.
;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear.
(let* ((start (cua--rectangle-top))
(let* ((inhibit-field-text-motion t)
(start (cua--rectangle-top))
(end (cua--rectangle-bot))
(l (cua--rectangle-left))
(r (1+ (cua--rectangle-right)))