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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
