Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 558f606b08ae
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
671 (setq idx (1+ idx) i (1+ i))) 671 (setq idx (1+ idx) i (1+ i)))
672 string)) 672 string))
673 673
674 ;; ### This function is not compatible with FSF in some cases. Hard 674 ;; ### This function is not compatible with FSF in some cases. Hard
675 ;; to fix, because it is hard to trace the logic of the FSF function. 675 ;; to fix, because it is hard to trace the logic of the FSF function.
676 ;; In case we need the exact behaviour, we can always copy the FSF 676 ;; In case we need the exact behavior, we can always copy the FSF
677 ;; version, which is very long and does lots of unnecessary stuff. 677 ;; version, which is very long and does lots of unnecessary stuff.
678 (defun truncate-string-to-width (str end-column &optional start-column padding) 678 (defun truncate-string-to-width (str end-column &optional start-column padding)
679 "Truncate string STR to end at column END-COLUMN. 679 "Truncate string STR to end at column END-COLUMN.
680 The optional 2nd arg START-COLUMN, if non-nil, specifies 680 The optional 2nd arg START-COLUMN, if non-nil, specifies
681 the starting column; that means to return the characters occupying 681 the starting column; that means to return the characters occupying