diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-07-20 17:13:43 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-07-20 17:13:43 +0000 |
| commit | ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a (patch) | |
| tree | 23e95c8cc53d381fe38b89a1ea8608392f4201cb /lisp/forms-d2.el | |
| parent | a5b5bf445f3d55d395a87aa2267605100a736b79 (diff) | |
| download | emacs-ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a.tar.gz emacs-ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a.tar.bz2 emacs-ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a.zip | |
(arch-rj): Fix typo in docstrings.
(arch-tocol): Likewise. "?\ " -> "?\s".
Diffstat (limited to 'lisp/forms-d2.el')
| -rw-r--r-- | lisp/forms-d2.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/forms-d2.el b/lisp/forms-d2.el index 19164b6a6db..63b47fc028d 100644 --- a/lisp/forms-d2.el +++ b/lisp/forms-d2.el @@ -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)) |