[Emacs-diffs] Changes to emacs/lisp/forms-d2.el

[Juanma Barranquero]

Index: emacs/lisp/forms-d2.el
diff -c emacs/lisp/forms-d2.el:2.5 emacs/lisp/forms-d2.el:2.6
*** emacs/lisp/forms-d2.el:2.5  Mon Sep  1 15:45:12 2003
--- emacs/lisp/forms-d2.el      Wed Jul 20 17:13:43 2005
***************
*** 32,48 ****
  ;; 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.
  The optional FILL should be a character, used to fill to the column."
    (if (null fill)
!       (setq fill ? ))
    (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,
  used to fill to the column."
    (arch-tocol (- target (length (nth field forms-fields))) fill))
  
--- 32,48 ----
  ;; 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.
  The optional FILL should be a character, used to fill to the column."
    (if (null 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,
  used to fill to the column."
    (arch-tocol (- target (length (nth field forms-fields))) fill))