Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-misc.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 6a378aca36af
children 6608ceec7cf8
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
70 (make-obsolete 'string-columns 'string-width) 70 (make-obsolete 'string-columns 'string-width)
71 71
72 (defun delete-text-in-column (from to) 72 (defun delete-text-in-column (from to)
73 "Delete the text between column FROM and TO (exclusive) of the current line. 73 "Delete the text between column FROM and TO (exclusive) of the current line.
74 Nil of FORM or TO means the current column. 74 Nil of FORM or TO means the current column.
75 If there's a charcter across the borders, the character is replaced with 75
76 the same width of spaces before deleting." 76 If there's a character across the borders, the character is replaced
77 with the same width of spaces before deleting."
77 (save-excursion 78 (save-excursion
78 (let (p1 p2) 79 (let (p1 p2)
79 (if from 80 (if from
80 (progn 81 (progn
81 (setq p1 (move-to-column from)) 82 (setq p1 (move-to-column from))