Mercurial > emacs
changeset 64542:24c6e1c8e0cb
(arch-rj): Fix typo in docstrings.
(arch-tocol): Likewise. "?\ " -> "?\s".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 20 Jul 2005 17:13:43 +0000 |
| parents | 9dd7605b21ba |
| children | f1a7394cf1a7 |
| files | lisp/forms-d2.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/forms-d2.el Wed Jul 20 15:54:22 2005 +0000 +++ b/lisp/forms-d2.el Wed Jul 20 17:13:43 2005 +0000 @@ -32,17 +32,17 @@ ;; The following functions are used by this form for layout purposes. ;; (defun arch-tocol (target &optional fill) - "Produces a string to skip to column TARGET. Prepends newline if needed. + "Produces a string to skip to column TARGET. Prepends newline if needed. The optional FILL should be a character, used to fill to the column." (if (null fill) - (setq fill ? )) + (setq fill ?\s)) (if (< target (current-column)) (concat "\n" (make-string target fill)) (make-string (- target (current-column)) fill))) ;; (defun arch-rj (target field &optional fill) "Produces a string to skip to column TARGET minus the width of field FIELD. -Prepends newline if needed. The optional FILL should be a character, +Prepends newline if needed. The optional FILL should be a character, used to fill to the column." (arch-tocol (- target (length (nth field forms-fields))) fill))