mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases 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
Show Stats 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))