diff options
| author | Juanma Barranquero | 2005-07-20 17:13:43 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-20 17:13:43 +0000 |
| commit | ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a (patch) | |
| tree | 23e95c8cc53d381fe38b89a1ea8608392f4201cb | |
| parent | a5b5bf445f3d55d395a87aa2267605100a736b79 (diff) | |
| download | emacs-ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a.tar.gz emacs-ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a.zip | |
(arch-rj): Fix typo in docstrings.
(arch-tocol): Likewise. "?\ " -> "?\s".
| -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 @@ | |||
| 32 | ;; The following functions are used by this form for layout purposes. | 32 | ;; The following functions are used by this form for layout purposes. |
| 33 | ;; | 33 | ;; |
| 34 | (defun arch-tocol (target &optional fill) | 34 | (defun arch-tocol (target &optional fill) |
| 35 | "Produces a string to skip to column TARGET. Prepends newline if needed. | 35 | "Produces a string to skip to column TARGET. Prepends newline if needed. |
| 36 | The optional FILL should be a character, used to fill to the column." | 36 | The optional FILL should be a character, used to fill to the column." |
| 37 | (if (null fill) | 37 | (if (null fill) |
| 38 | (setq fill ? )) | 38 | (setq fill ?\s)) |
| 39 | (if (< target (current-column)) | 39 | (if (< target (current-column)) |
| 40 | (concat "\n" (make-string target fill)) | 40 | (concat "\n" (make-string target fill)) |
| 41 | (make-string (- target (current-column)) fill))) | 41 | (make-string (- target (current-column)) fill))) |
| 42 | ;; | 42 | ;; |
| 43 | (defun arch-rj (target field &optional fill) | 43 | (defun arch-rj (target field &optional fill) |
| 44 | "Produces a string to skip to column TARGET minus the width of field FIELD. | 44 | "Produces a string to skip to column TARGET minus the width of field FIELD. |
| 45 | Prepends newline if needed. The optional FILL should be a character, | 45 | Prepends newline if needed. The optional FILL should be a character, |
| 46 | used to fill to the column." | 46 | used to fill to the column." |
| 47 | (arch-tocol (- target (length (nth field forms-fields))) fill)) | 47 | (arch-tocol (- target (length (nth field forms-fields))) fill)) |
| 48 | 48 | ||