/[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.25 by kfstorm, Tue Nov 29 23:58:20 2005 UTC revision 1.26 by kfstorm, Thu Dec 8 20:56:35 2005 UTC
# Line 641  If command is repeated at same position, Line 641  If command is repeated at same position,
641               (if (= (point) (line-end-position))               (if (= (point) (line-end-position))
642                   (setq bs (- r l)                   (setq bs (- r l)
643                         copy nil)                         copy nil)
644                 (skip-chars-forward "\s\t" e)                 (skip-chars-forward " \t" e)
645                 (setq bs (- (min r (current-column)) l)                 (setq bs (- (min r (current-column)) l)
646                       s (point))                       s (point))
647                 (move-to-column r)                 (move-to-column r)
648                 (skip-chars-backward "\s\t" s)                 (skip-chars-backward " \t" s)
649                 (setq as (- r (max (current-column) l))                 (setq as (- r (max (current-column) l))
650                       e (point)))                       e (point)))
651               (setq row (if (and copy (> e s))               (setq row (if (and copy (> e s))

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

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