;;; Source file: /usr/local/lib/jade/3.2/lisp/add-log.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:21:33 1994
;;; Jade 3.2

(defvar change-log-address (concat (user-login-name) 64 (system-name)) 102816)

(defvar change-log-name (user-full-name) 102853)

(defvar change-log-file "ChangeLog" 102889)

(defun add-change-log-entry (&optional log-file) (interactive "FLog file:") (jade-byte-code " 	F!H	 ` 
F!HD	6 	H	H
	
	 Y	H
	H	H
		H E" [expand-file-name log-file "" file-directory-p file-name-concat change-log-file open-file log-buffer goto-buffer goto-buffer-start log-in-same-day-p copy-area buffer-start line-end insert concat current-time-string "  " change-log-name "  (" change-log-address ")

" goto-char pos 0 1 "
	* 
" 2 major-mode indented-text-mode] 8))

(defun log-in-same-day-p (old-header) (jade-byte-code "			
	
" [regexp-match concat regexp-quote substring current-time-string 0 11 ".*  " change-log-name "  \\(" change-log-address "\\)" old-header] 8))
