
(defun add-change-log-entry (whoami file-name &optional other-window) "\
Find change log file and add an entry for today.
First arg (interactive prefix) non-nil means prompt for user name and site.
Second arg is file name of change log.
Optional third arg OTHER-WINDOW non-nil means visit in other window." (interactive (byte-code "
Ä=ƒ Å‚ ÆÇÈÉÊ	\"Ã	#!)D‡" [current-prefix-arg default system-type nil vax-vms "$CHANGE_LOG$.TXT" "ChangeLog" expand-file-name read-file-name format "Log file (default %s): "] 7)) (byte-code "Ãˆ
Î=ƒ Ï‚ Ðƒ ÑÒÓ \"‚ Ó ƒ) ÑÔÕ \"‚+ Õ ƒ9 ÑÖ× \"‚; × Ø!…M Ù!	P‰ˆ	ƒZ Ú!‚^ Û!ˆ
Ü=†r Ü ˆÝ‰ˆÞ‰ˆßà!ˆá ˆebˆâã äåO!…œ ŠæçŠè ˆ`)Í#ˆéê!ˆâ!)?…® ëã ìíîï&ˆebˆðà!ˆâñ!…Ã ðà!ˆ‚¶ ˆò`éó!ˆ`\"ˆôõ!ˆðö!ˆjˆ÷c,‡" [current-prefix-arg default system-type nil full-name whoami login-name site-name file-name other-window major-mode left-margin fill-column t vax-vms "$CHANGE_LOG$.TXT" "ChangeLog" read-input "Full name: " user-full-name "Login name: " user-login-name "Site name: " system-name file-directory-p file-name-as-directory find-file-other-window find-file indented-text-mode 8 74 auto-fill-mode 1 undo-boundary looking-at current-time-string 0 10 re-search-forward "(.*@" end-of-line skip-chars-backward "^(" insert "  " "  (" "@" ")

" forward-line "\\sW" delete-region "
" open-line 3 2 "* "] 32))

(defun add-change-log-entry-other-window nil "\
Find change log file in other window, and add an entry for today." (interactive) (byte-code "ÀˆÃÀ	Â#‡" [nil default-directory t add-change-log-entry] 4))