From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 20 Jul 2005 17:13:43 +0000 (+0000)
Subject: (arch-rj): Fix typo in docstrings.
X-Git-Tag: emacs-pretest-22.0.90~7956
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed6565df54a38fb05dd7816ddafef6f4f4a0ea3a;p=emacs.git

(arch-rj): Fix typo in docstrings.
(arch-tocol): Likewise.  "?\ " -> "?\s".
---

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))