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. ;; The following functions are used by this form for layout purposes.
;; ;;
(defun arch-tocol (target &optional fill) (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." The optional FILL should be a character, used to fill to the column."
(if (null fill) (if (null fill)
(setq fill ? )) (setq fill ?\s))
(if (< target (current-column)) (if (< target (current-column))
(concat "\n" (make-string target fill)) (concat "\n" (make-string target fill))
(make-string (- target (current-column)) fill))) (make-string (- target (current-column)) fill)))
;; ;;
(defun arch-rj (target field &optional fill) (defun arch-rj (target field &optional fill)
"Produces a string to skip to column TARGET minus the width of field FIELD. "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." used to fill to the column."
(arch-tocol (- target (length (nth field forms-fields))) fill)) (arch-tocol (- target (length (nth field forms-fields))) fill))