Mercurial > hg > xemacs-beta

comparison lisp/utils/forms-d2.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1 ;;; forms-d2.el --- demo forms-mode 1 ;;; forms-d2.el --- demo forms-mode
2 ;; Keywords: extensions
3 2
4 ;;; Synched up with: FSF 19.30. 3 ;; Author: Johan Vromans
4 ;; Created: 1989
5
6 ;;; Synched up with: FSF 19.34.
5 7
6 ;; This sample forms exploit most of the features of forms mode. 8 ;; This sample forms exploit most of the features of forms mode.
7 9
8 ;; Set the name of the data file. 10 ;; Set the name of the data file.
9 (setq forms-file "forms-d2.dat") 11 (setq forms-file "forms-d2.dat")
39 Prepends newline if needed. The optional FILL should be a character, 41 Prepends newline if needed. The optional FILL should be a character,
40 used to fill to the column." 42 used to fill to the column."
41 (arch-tocol (- target (length (nth field forms-fields))) fill)) 43 (arch-tocol (- target (length (nth field forms-fields))) fill))
42 44
43 ;; Record filters. 45 ;; Record filters.
44 ;; This example uses the (defun ...) method of defining.
45 ;; 46 ;;
46 (defun forms-new-record-filter (the-record) 47 (defun arch-new-record-filter (the-record)
47 "Form a new record with some defaults." 48 "Form a new record with some defaults."
48 (aset the-record arch-from (user-full-name)) 49 (aset the-record arch-from (user-full-name))
49 (aset the-record arch-date (current-time-string)) 50 (aset the-record arch-date (current-time-string))
50 the-record ; return it 51 the-record ; return it
51 ) 52 )
53 (setq forms-new-record-filter 'arch-new-record-filter)
52 54
53 ;; The format list. 55 ;; The format list.
54 (setq forms-format-list 56 (setq forms-format-list
55 (list 57 (list
56 "====== Public Domain Software Archive ======\n\n" 58 "====== Public Domain Software Archive ======\n\n"