/[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.7.6.4 by miles, Thu Sep 9 09:36:32 2004 UTC revision 1.7.6.5 by miles, Wed Sep 15 08:59:57 2004 UTC
# Line 559  If command is repeated at same position, Line 559  If command is repeated at same position,
559    ;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges)    ;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges)
560    ;; Perform auto-tabify after operation if TABIFY is non-nil.    ;; Perform auto-tabify after operation if TABIFY is non-nil.
561    ;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear.    ;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear.
562    (let* ((start (cua--rectangle-top))    (let* ((inhibit-field-text-motion t)
563             (start (cua--rectangle-top))
564           (end   (cua--rectangle-bot))           (end   (cua--rectangle-bot))
565           (l (cua--rectangle-left))           (l (cua--rectangle-left))
566           (r (1+ (cua--rectangle-right)))           (r (1+ (cua--rectangle-right)))

Legend:
Removed from v.1.7.6.4  
changed lines
  Added in v.1.7.6.5

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