;ELC ;;; compiled by jwz@thalidomide on Mon Dec 27 18:34:39 1993 ;;; from file /th/jwz/emacs19/lisp/utils/forms-d2.el ;;; emacs version 19.9 Lucid (beta6). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "ÀÂÃ!‡" ["forms-d2.dat" forms-file forms-enumerate (arch-newsgroup arch-volume arch-issue arch-article arch-shortname arch-parts arch-from arch-longname arch-keywords arch-date arch-remarks) forms-number-of-fields] 2) (fset 'arch-tocol #[(target &optional fill) "¬‚Á\niW«‡ÃÄ\n\"P‡Ä\niZ\"‡" [fill 32 target "\n" make-string] 4 "\ 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."]) (fset 'arch-rj #[(target field &optional fill) "À \n 8GZ \"‡" [arch-tocol target field forms-fields fill] 4 "\ 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."]) (fset 'forms-new-record-filter #[(the-record) "  Iˆ Ä Iˆ‡" [the-record arch-from user-full-name arch-date current-time-string] 3 "\ Form a new record with some defaults."]) (byte-code "À  ÄÅÇÉÊË ÉÍÎÄÐÒÓÒÔÄÖدۇ" ["====== Public Domain Software Archive ======\n\n" arch-shortname " - " arch-longname "\n\n" "Article: " arch-newsgroup "/" arch-article " " (arch-tocol 40) "Issue: " arch-issue (arch-rj 73 10) "Date: " arch-date "Submitted by: " arch-from "\n" (arch-tocol 79 45) "Keywords: " arch-keywords "Parts: " arch-parts "\n\n====== Remarks ======\n\n" arch-remarks forms-format-list nil] 30)