/[emacs]/emacs/lisp/rect.el
ViewVC logotype

Diff of /emacs/lisp/rect.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by eliz, Wed Oct 3 10:51:07 2001 UTC revision 1.37.4.1 by monnier, Sat Nov 17 00:34:53 2001 UTC
# Line 137  the function is called." Line 137  the function is called."
137  (defun delete-rectangle-line (startcol endcol fill)  (defun delete-rectangle-line (startcol endcol fill)
138    (let ((pt (line-end-position)))    (let ((pt (line-end-position)))
139      (when (= (move-to-column-force startcol (or fill 'coerce)) startcol)      (when (= (move-to-column-force startcol (or fill 'coerce)) startcol)
140        (if (and (not fill) (<= pt endcol))        (setq pt (point))
141            (delete-region (point) pt)        (move-to-column-force endcol)
142          ;; else        (delete-region pt (point)))))
         (setq pt (point))  
         (move-to-column-force endcol)  
         (delete-region pt (point))))  
     ))  
143    
144  (defun delete-extract-rectangle-line (startcol endcol lines fill)  (defun delete-extract-rectangle-line (startcol endcol lines fill)
145    (let ((pt (point-at-eol)))    (let ((pt (point-at-eol)))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.37.4.1

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