(truncate-string-to-width): Docsting fixed.

This commit is contained in:
Gerd Moellmann 1999-12-03 10:31:28 +00:00
parent be961cd5aa
commit 9ac06837e1
2 changed files with 9 additions and 4 deletions

View file

@ -1,13 +1,18 @@
1999-12-03 Kenichi Handa <handa@mule.m17n.org>
* international/mule-util.el (truncate-string-to-width): Docsting
fixed.
1999-12-02 Stefan Monnier <monnier@cs.yale.edu>
* emacs-lisp/lisp-mnt.el (lm-header-multiline): fix spurious
* emacs-lisp/lisp-mnt.el (lm-header-multiline): Fix spurious
use of `cond'.
(lm-with-file): Move all the find-file...kill-buffer stuff into
this macro. Make it use `find-file-noselect' and make it kill
the buffer only if it wasn't already displayed somewhere.
(lm-summary, lm-authors, lm-maintainer, lm-creation-date)
(lm-last-modified-date, lm-version, lm-keywords, lm-adapted-by)
(lm-commentary, lm-verify, lm-synopsis): use lm-with-file.
(lm-commentary, lm-verify, lm-synopsis): Use lm-with-file.
(lm-commentary): fix to handle the case when the change log is
at the end of the file.

View file

@ -75,11 +75,11 @@ TYPE should be `list' or `vector'."
;;;###autoload
(defun truncate-string-to-width (str end-column &optional start-column padding)
"Truncate string STR to end at column END-COLUMN.
The optional 2nd arg START-COLUMN, if non-nil, specifies
The optional 3rd arg START-COLUMN, if non-nil, specifies
the starting column; that means to return the characters occupying
columns START-COLUMN ... END-COLUMN of STR.
The optional 3rd arg PADDING, if non-nil, specifies a padding character
The optional 4th arg PADDING, if non-nil, specifies a padding character
to add at the end of the result if STR doesn't reach column END-COLUMN,
or if END-COLUMN comes in the middle of a character in STR.
PADDING is also added at the beginning of the result