mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(arch-rj): Fix typo in docstrings.

Browse source 
(arch-tocol): Likewise.  "?\ " -> "?\s".
This commit is contained in:
Juanma Barranquero 2005-07-20 17:13:43 +00:00
parent a5b5bf445f
commit ed6565df54
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/forms-d2.el
View file

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