/[emacs]/emacs/lisp/forms-d2.el
ViewVC logotype

Diff of /emacs/lisp/forms-d2.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.2 by pj, Mon Jul 16 12:22:58 2001 UTC revision 2.2.8.1 by miles, Fri Apr 4 06:20:05 2003 UTC
# Line 1  Line 1 
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
# Line 40  The optional FILL should be a character, Line 40  The optional FILL should be a character,
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."

Legend:
Removed from v.2.2  
changed lines
  Added in v.2.2.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26