(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))

(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))