1 |
;;; forms-d2.el --- demo forms-mode |
;;; forms-d2.el --- demo forms-mode -*- no-byte-compile: t -*- |
2 |
|
|
3 |
;; Author: Johan Vromans <jvromans@squirrel.nl> |
;; Author: Johan Vromans <jvromans@squirrel.nl> |
4 |
;; Created: 1989 |
;; Created: 1989 |
40 |
(concat "\n" (make-string target fill)) |
(concat "\n" (make-string target fill)) |
41 |
(make-string (- target (current-column)) fill))) |
(make-string (- target (current-column)) fill))) |
42 |
;; |
;; |
43 |
(defun arch-rj (target field &optional fill) |
(defun arch-rj (target field &optional fill) |
44 |
"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. |
45 |
Prepends newline if needed. The optional FILL should be a character, |
Prepends newline if needed. The optional FILL should be a character, |
46 |
used to fill to the column." |
used to fill to the column." |