;;; compiled by rms@mole.gnu.ai.mit.edu on Sat May 29 18:22:32 1993
;;; from file /home/fsf/rms/e19/lisp/add-log.el
;;; emacs version 19.9.0.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(defvar change-log-default-name nil "\
*Name of a change log file for \\[add-change-log-entry].")
(fset (quote change-log-name) #[nil "† 	В=ѓ Г‡Д‡" [change-log-default-name system-type vax-vms "$CHANGE_LOG$.TXT" "ChangeLog"] 2])
(defalias 'prompt-for-change-log-name #[nil "А ВГДЕ	\"Ж	#!)‡" [change-log-name default expand-file-name read-file-name format "Log file (default %s): " nil] 5 "\
Prompt for a change log name."])
(defalias 'find-change-log #[(&optional file-name) "„ 	† \nѓ ГД\n!!† 	=ѓ& ЖБЗ \"ѓ& ‡И!ѓ2 ЙК \"Д!Й!‰ЛО!„g ГПГ!!!РГ!\"„g ЙК \"‚@ О!ѓq *СБ!L€‡" [file-name change-log-default-name buffer-file-name file-name-directory file-chase-links default-directory assq buffer-local-variables file-directory-p expand-file-name change-log-name nil parent-dir file1 file-exists-p directory-file-name string= make-local-variable] 5 "\
Find a change log file for \\[add-change-log-entry] and return the name.
Optional arg FILE-NAME is a name to try first.
If FILE-NAME is nil, use the value of `change-log-default-name' if non-nil.
Failing that, use \"ChangeLog\" in the current directory.
If the file does not exist in the named directory, successive parent
directories are tried.

Once a file is found, `change-log-default-name' is set locally in the
current buffer to the complete file name."])
(defalias 'add-change-log-entry #[(&optional whoami file-name other-window) "ѓ БВГ \"‚ Г ѓ БЕЖ \"‚ Ж ѓ+ БИЙ \"‚- Й \nЛ ННР!ѓl У\"„l ФХЦЧ!!P\"ѓf ШЩ!НO‚j Ъ!ѓ‚ Ь\"„‚ Э!€‚‡ Ю!€Я €eb€абЦв ЩгO!дЦ!еЦ!ж&!ѓ­ зи!€‚И в c€йc€c€еc€c€жc€\nc€кc€ал!ѓХ мн!€‚Щ ои!€`eb€прс#ѓф ѓoc€‚oпЦтP!уPс#ѓ1пф!€зЩ!€m„$ах!ѓ$ц`Љзи!€`)\"€‚чc€зш!€щ €‚oзи!€аъ!ѓBзи!€‚5m„Zах!ѓZц`Љзи!€`)\"€‚Bыc€зш!€<j€эт†mю\"€ѓњЯ €ЉзЩ!€ая!)ѓ‡ю‚ЉЃ@ c€ЃA c€c€ЃB c‚ЇЉзЩ!€аЃC !)?…ЇЃD c.‡" [whoami read-input "Full name: " user-full-name full-name "Login name: " user-login-name login-name "Site name: " system-name site-name add-log-current-defun defun nil paragraph-end entry find-change-log file-name buffer-file-name string= string-match "^" regexp-quote file-name-directory match-end 0 file-name-nondirectory other-window equal find-file-other-window find-file undo-boundary looking-at concat current-time-string 10 ".* " "  (" "@" forward-line 1 "  " ")\n\n" "\n*[^\n* 	]" skip-chars-forward "\n" forward-paragraph re-search-forward "^\\s *\\*\\s *$" t "* " "\\(\\s \\|[(),:]\\)" "^\\s *$\\|^\\s \\*" "^\\s *$" delete-region "\n\n" -2 indent-relative-maybe "\\sW" "\n\n\n" left-margin insert "" "\\s *$" " " "(" "): " "\\s *\\(\\*\\s *\\)?$" ": "] 8 "\
Find change log file and add an entry for today.
Optional arg (interactive prefix) non-nil means prompt for user name and site.
Second arg is file name of change log.  If nil, uses `change-log-default-name'.
Third arg OTHER-WINDOW non-nil means visit in other window." (list current-prefix-arg (prompt-for-change-log-name))])
(defalias 'add-change-log-entry-other-window #[(&optional whoami file-name) "А	\nГ#‡" [add-change-log-entry whoami file-name t] 4 "\
Find change log file in other window 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.
Interactively, with a prefix argument, the file name is prompted for." (byte-code "… Б D‡" [current-prefix-arg prompt-for-change-log-name] 2)])
(defalias 'change-log-mode #[nil "А €Б €ВДЖИ	КЛ!МL€КН!ОL€КП!РL€КС!ТL€КУ!ФL€ХЦ!‡" [kill-all-local-variables indented-text-mode change-log-mode major-mode "Change Log" mode-name 8 left-margin 74 fill-column make-local-variable paragraph-start "^\\s *$\\|^^L" paragraph-separate "^\\s *$\\|^^L\\|^\\sw" page-delimiter "^\\<\\|^" version-control never adaptive-fill-regexp "\\s *" run-hooks change-log-mode-hook] 2 "\
Major mode for editting change logs; like Indented Text Mode.
Prevents numeric backups and sets `left-margin' to 8 and `fill-column' to 74.
New log entries are usually made with \\[add-change-log-entry] or \\[add-change-log-entry-other-window].
Each entry behaves as a paragraph, and the entries for one day as a page.
Runs `change-log-mode-hook'." nil])
(defvar add-log-current-defun-header-regexp "^\\([A-Z][A-Z_ ]*[A-Z_]\\|[a-z_---A-Z]+\\)[ 	]*[:=]" "\
*Heuristic regexp used by `add-log-current-defun' for unknown major modes.")
(defalias 'add-log-current-defun #[nil "АБВЏ‡" [nil (byte-code "Љ`	В>ѓ: m„ ГД!€Е €Ж €`W…‡ЗИ!€`Y…‡ЙД!€КЛ!€М`ЗД!€`\"‚‡	Н>ѓѓ ЉОП!€`РZfС=ѓU ОИ!€‚E ТУ!)ѓѓ ОП!€`РZfС=ѓp ОИ!€‚` ФХ!€КЦ!€М`ЗД!€`\"‚‡	Ч>ѓ6ОП!€ТШ!„љ ОД!€‚Ќ m„ў ГД!€Е €Ж €`W…‡ЩД!€Ъ‰ОИ!€o„Н ТЭ!ѓН ОИ!€‚ј ЪЮЯЏѓц b€аД!€`fбUѓл ЗД!€Кв!€М`ЗД!€`\"‚2`ЪгдЏ…2Љb€o„ЉОИ!€Те!)ѓОИ!€‚`Y)…2`V…2М`ЩД!€`\"*‚‡	ж>ѓTзиЪй#…‡кП!b€М`Tл €`\"‚‡	м=ѓmзнЪй#…‡МкД!оД!\"‚‡Ъ/л €з0`сZй#…†МкД!оД!\")*‡" [location major-mode (emacs-lisp-mode lisp-mode scheme-mode) forward-char 1 beginning-of-defun end-of-defun forward-sexp -1 forward-word skip-chars-forward " " buffer-substring (c-mode (quote c++-mode)) forward-line 0 2 92 looking-at "[ 	]*#[ 	]*define[ 	]" search-forward "define" " 	" (c-mode (quote c++-mode)) "{\\|\\(\\s *$\\)" backward-sexp nil tem beg "[ 	\n]" (byte-code "ЉАБ!€ВБ!€АГ!€`ЕЖ!)… Y‡" [forward-line 1 backward-sexp 0 tem looking-at "DEFUN\\b" location] 2) ((error)) down-list 34 " ," (byte-code "АБ!€ВБ!€ГД!€Е‡" [down-list 1 backward-up-list skip-chars-backward " 	" t] 2) ((error)) "[^\n]" (TeX-mode plain-TeX-mode LaTeX-mode plain-tex-mode latex-mode) re-search-backward "\\\\\\(sub\\)*\\(section\\|paragraph\\|chapter\\)" t match-beginning end-of-line texinfo-mode "^@node[ 	]+\\([^,]+\\)," match-end case-fold-search add-log-current-defun-header-regexp 10000] 4) ((error))] 3 "\
Return name of function definition point is in, or nil.

Understands Lisp, LaTeX (\"functions\" are chapters, sections, ...),
Texinfo (@node titles), and C.

Other modes are handled by a heuristic that looks in the 10K before
point for uppercase headings starting in the first column or
identifiers followed by `:' or `=', see variable
`add-log-current-defun-header-regexp'.

Has a preference of looking backwards."])
(provide (quote add-log))