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)) |