# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1121879623 0
# Node ID 24c6e1c8e0cbcfdec7cc57c3c31e5b99f24887c9
# Parent  9dd7605b21ba695165f255e4c964e72d132198f6
(arch-rj): Fix typo in docstrings.
(arch-tocol): Likewise.  "?\ " -> "?\s".

diff -r 9dd7605b21ba -r 24c6e1c8e0cb lisp/forms-d2.el
--- 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))