home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / util / edit / jade.lha / Jade / lisp / add-log.jlc < prev    next >
Text File  |  1994-04-20  |  768b  |  5 lines
  1.  
  2. (defun add-change-log-entry (&optional log-file &aux log-buffer) (lisp-code "ÿ€¤\t\nF ü€¡\tþ€ž†‡\nF û€¤ˆH‰\tF&Šþ”‹Š\tHŒŽŽ\n\tHŽŽ\n‘ŽŽ\n\t\n\tÿ€õ’“”•–—˜™š›ˆ\tHŒŽœ\n\tH’\tHŒ‘Žž\n\t\t" [log-file prompt "Log file: " path-name file-name file-directory-p file-concat "ChangeLog" return open-file log-buffer goto-buffer goto pos 1 log-in-same-day-p copy-area line-end insert concat current-time-string "  " user-full-name "  (" user-login-name 64 system-name ")\n\n" 2 "\n\t* \n" 3] 10))
  3.  
  4. (defun log-in-same-day-p (old-header) (lisp-code " †‡ˆ‰Š‹Œˆ\n" [regexp-match concat substr current-time-string 0 11 ".*  " user-full-name "  \\(" user-login-name 64 system-name "\\)" old-header] 10))
  5.