Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
351 (while (and (< i len) (< idx string-len)) 351 (while (and (< i len) (< idx string-len))
352 (aset string idx (aref str i)) 352 (aset string idx (aref str i))
353 (setq idx (1+ idx) i (1+ i))) 353 (setq idx (1+ idx) i (1+ i)))
354 string)) 354 string))
355 355
356 ;; ### This function is not compatible with FSF in some cases. Hard 356 ;; #### This function is not compatible with FSF in some cases. Hard
357 ;; to fix, because it is hard to trace the logic of the FSF function. 357 ;; to fix, because it is hard to trace the logic of the FSF function.
358 ;; In case we need the exact behavior, we can always copy the FSF 358 ;; In case we need the exact behavior, we can always copy the FSF
359 ;; version, which is very long and does lots of unnecessary stuff. 359 ;; version, which is very long and does lots of unnecessary stuff.
360 (defun truncate-string-to-width (str end-column &optional start-column padding) 360 (defun truncate-string-to-width (str end-column &optional start-column padding)
361 "Truncate string STR to end at column END-COLUMN. 361 "Truncate string STR to end at column END-COLUMN.