Mercurial > hg > xemacs-beta

comparison lisp/prim/rect.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents b9518feda344
children
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
67 (move-to-column endcol coerce-tabs) 67 (move-to-column endcol coerce-tabs)
68 (setq endextra (- endcol (current-column))) 68 (setq endextra (- endcol (current-column)))
69 (if (< begextra 0) 69 (if (< begextra 0)
70 (setq endextra (+ endextra begextra) 70 (setq endextra (+ endextra begextra)
71 begextra 0)) 71 begextra 0))
72 (apply function startpos begextra endextra extra-args)) 72 (if (< endextra 0) (setq endextra 0))
73 (apply function startpos begextra endextra extra-args))
73 (forward-line 1))) 74 (forward-line 1)))
74 (- endcol startcol))) 75 (- endcol startcol)))
75 76
76 (defun delete-rectangle-line (startdelpos ignore ignore) 77 (defun delete-rectangle-line (startdelpos ignore ignore)
77 (delete-region startdelpos (point))) 78 (delete-region startdelpos (point)))