;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:36:36 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/add-log.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`add-log.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'change-log nil "Change log maintenance" :group 'tools :link '(custom-manual "(emacs)Change Log") :prefix "change-log-" :prefix "add-log-") #@57 *Name of a change log file for \[add-change-log-entry]. (custom-declare-variable 'change-log-default-name 'nil '(#$ . -778) :type '(choice (const :tag "default" nil) string) :group 'change-log) #@39 Normal hook run by `change-log-mode'. (custom-declare-variable 'change-log-mode-hook 'nil '(#$ . 978) :type 'hook :group 'change-log) #@200 *If non-nil, function to guess name of surrounding function. It is used by `add-log-current-defun' in preference to built-in rules. Returns function's name as a string, or nil if outside a function. (custom-declare-variable 'add-log-current-defun-function 'nil '(#$ . -1119) :type '(choice (const nil) function) :group 'change-log) #@133 *Full name of user, for inclusion in ChangeLog daily headers. This defaults to the value returned by the function `user-full-name'. (custom-declare-variable 'add-log-full-name 'nil '(#$ . -1458) :type '(choice (const :tag "Default" nil) string) :group 'change-log) #@128 *Electronic mail address of user, for inclusion in ChangeLog daily headers. This defaults to the value of `user-mail-address'. (custom-declare-variable 'add-log-mailing-address 'nil '(#$ . -1730) :type '(choice (const :tag "Default" nil) string) :group 'change-log) #@188 *Function that defines the time format. For example, `add-log-iso8601-time-string', which gives the date in international ISO 8601 format, and `current-time-string' are two valid values. (custom-declare-variable 'add-log-time-format ''add-log-iso8601-time-string '(#$ . -2003) :type '(radio (const :tag "International ISO 8601 format" add-log-iso8601-time-string) (const :tag "Old format, as returned by `current-time-string'" current-time-string) (function :tag "Other")) :group 'change-log) #@731 *If non-nil, normally keep day's log entries for one file together. Log entries for a given file made with \[add-change-log-entry] or \[add-change-log-entry-other-window] will only be added to others for that file made today if this variable is non-nil or that file comes first in today's entries. Otherwise another entry for that file will be started. An original log: * foo (...): ... * bar (...): change 1 in the latter case, \[add-change-log-entry-other-window] in a buffer visiting `bar', yields: * bar (...): -!- * foo (...): ... * bar (...): change 1 and in the former: * foo (...): ... * bar (...): change 1 (...): -!- The NEW-ENTRY arg to `add-change-log-entry' can override the effect of this variable. (custom-declare-variable 'add-log-keep-changes-together 'nil '(#$ . -2503) :version "20.3" :type 'boolean :group 'change-log) #@175 *If non-nil, function to call to identify the full filename of a buffer. This function is called with no argument. If this is nil, the default is to use `buffer-file-name'. (custom-declare-variable 'add-log-buffer-file-name-function 'nil '(#$ . -3366) :type '(choice (const nil) function) :group 'change-log) #@284 *If non-nil, function to call to identify the filename for a ChangeLog entry. This function is called with one argument, the value of variable `buffer-file-name' in that buffer. If this is nil, the default is to use the file's name relative to the directory of the change log file. (custom-declare-variable 'add-log-file-name-function 'nil '(#$ . -3683) :type '(choice (const nil) function) :group 'change-log) #@65 *If non-nil, enable recording version numbers with the changes. (custom-declare-variable 'change-log-version-info-enabled 'nil '(#$ . -4101) :version "21.1" :type 'boolean :group 'change-log) #@164 *List of regexps to search for version number. The version number must be in group 1. Note: The search is conducted only within 10%, at the beginning of the file. (custom-declare-variable 'change-log-version-number-regexp-list '(let ((re "\\([0-9]+.[0-9.]+\\)")) (list (concat "^(def[^ \n]+[ ]+[^ \n][ ]\"" re) (concat "^;+ *Revision: +[^ \n]+[ ]+" re))) '(#$ . -4300) :version "21.1" :type '(repeat regexp) :group 'change-log) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\210\300\321\322\323\304\305\306\307&\210\300\324\325\326\304\305\306\307&\210\300\327\330\331\304\305\306\307&\210\300\332\333\334\304\305\306\307&\207" [custom-declare-face change-log-date-face ((t (:inherit font-lock-string-face))) "Face used to highlight dates in date lines." :version "21.1" :group change-log change-log-name-face ((t (:inherit font-lock-constant-face))) "Face for highlighting author names." change-log-email-face ((t (:inherit font-lock-variable-name-face))) "Face for highlighting author email addresses." change-log-file-face ((t (:inherit font-lock-function-name-face))) "Face for highlighting file names." change-log-list-face ((t (:inherit font-lock-keyword-face))) "Face for highlighting parenthesized lists of functions or variables." change-log-conditionals-face ((t (:inherit font-lock-variable-name-face))) "Face for highlighting conditionals of the form `[...]'." change-log-function-face ((t (:inherit font-lock-variable-name-face))) "Face for highlighting items of the form `<....>'." change-log-acknowledgement-face ((t (:inherit font-lock-comment-face))) "Face for highlighting acknowledgments."] 8) #@57 Additional expressions to highlight in Change Log mode. (defvar change-log-font-lock-keywords '(("^\\sw.........[0-9:+ ]*" (0 'change-log-date-face) ("\\([^<(]+?\\)[ ]*[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil (1 'change-log-name-face) (2 'change-log-email-face))) ("^ \\* \\([^ ,:([\n]+\\)" (1 'change-log-file-face) ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) ("\\= (\\([^) ,:\n]+\\)" nil nil (1 'change-log-list-face)) ("\\=, *\\([^) ,:\n]+\\)" nil nil (1 'change-log-list-face))) ("^ (\\([^) ,:\n]+\\)" (1 'change-log-list-face) ("\\=, *\\([^) ,:\n]+\\)" nil nil (1 'change-log-list-face))) ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals-face)) ("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function-face)) ("\\(^ \\| \\)\\(From\\|Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" 2 'change-log-acknowledgement-face)) (#$ . 6043)) #@35 Keymap for Change Log major mode. (defvar change-log-mode-map (make-sparse-keymap) (#$ . 6966)) #@149 Time zone used for calculating change log time stamps. It takes the same format as the TZ argument of `set-time-zone-rule'. If nil, use local time. (defvar change-log-time-zone-rule nil (#$ . 7069)) (defalias 'add-log-iso8601-time-zone #[(time) "\306!@\206\307\211\307W\203\310\202\311\312 !\211\313\246 \313\245\211\313\246 \313\245\314\315\f!\2046\316\202B\315!\204A\317\202B\320\n\f%.\207" [time utc-offset sign sec ss min current-time-zone 0 45 43 abs 60 format zerop "%c%02d:%02d:%02d" "%c%02d:%02d" "%c%02d" mm hh] 7]) (defalias 'add-log-iso8601-time-string #[nil "\203\303\304!\305 \306\216\307!\210\310\311 \"\312 !P+\207\310\313!\207" [change-log-time-zone-rule now tz getenv "TZ" current-time ((set-time-zone-rule tz)) set-time-zone-rule format-time-string "%Y-%m-%d " add-log-iso8601-time-zone "%Y-%m-%d"] 3]) #@63 Return (system-dependent) default name for a change log file. (defalias 'change-log-name #[nil "\206 \302=\203\f\303\207\304\207" [change-log-default-name system-type vax-vms "$CHANGE_LOG$.TXT" "ChangeLog"] 2 (#$ . 7929)]) #@31 Prompt for a change log name. (defalias 'prompt-for-change-log-name #[nil "\302 \303\304\305\306\"\307#!\310 !\311\230\203\303\310! \"\2021\312 !\2030\303\310!\313 !\"\2021 *\207" [default name change-log-name expand-file-name read-file-name format "Log file (default %s): " nil file-name-nondirectory "" file-directory-p file-name-as-directory] 5 (#$ . 8162)]) #@174 Return version number of current buffer's file. This is the value returned by `vc-workfile-version' or, if that is nil, by matching `change-log-version-number-regexp-list'. (defalias 'change-log-version-number-search #[nil "\306 \211\307\310\\V\203\311\245\202\312 \203\313 !\206C\214~\210\f \205B\212eb\210\314 \211A@ \315#\203>\316\317!\312)\202$*+\207" [size end version buffer-file-name change-log-version-number-regexp-list regexps buffer-size 8000 0 10 nil vc-workfile-version re-search-forward t match-string 1] 5 (#$ . 8542)]) #@686 Find a change log file for \[add-change-log-entry] and return the name. Optional arg FILE-NAME specifies the file to use. If FILE-NAME is nil, use the value of `change-log-default-name'. If 'change-log-default-name' is nil, behave as though it were 'ChangeLog' (or whatever we use on this operating system). If 'change-log-default-name' contains a leading directory component, then simply find it in the current directory. Otherwise, search in the current directory and its successive parents for a file so named. Once a file is found, `change-log-default-name' is set locally in the current buffer to the complete file name. Optional arg BUFFER-FILE overrides `buffer-file-name'. (defalias 'find-change-log #[(&optional file-name buffer-file) "\204\201 \205\306 !\205 \211\204\201\n\204 \203(\306\307\n\206# !!\206)\f\310!\2036\311\312 \"\307!\311!\211\313\314!\204o\315!\204o\306\316\306!!!\306! \230\204o\311\317\312 ! \"\202C\314!\204}\315!\203\200*\320\301!L\210\207" [file-name change-log-default-name buffer-file buffer-file-name default-directory parent-dir file-name-directory file-chase-links file-directory-p expand-file-name change-log-name nil get-file-buffer file-exists-p directory-file-name file-name-nondirectory make-local-variable file1] 5 (#$ . 9103)]) (defalias 'add-log-file-name #[(buffer-file log-file) "?\206 \230?\2058\n\203\n!\207\303\304\305\306 !!P\"\203)\307\225\310O\202,\311!\312!\2037\313!\207\207" [buffer-file log-file add-log-file-name-function string-match "^" regexp-quote file-name-directory 0 nil file-name-nondirectory backup-file-name-p file-name-sans-versions] 5]) #@583 Find change log file and add an entry for today. Optional arg WHOAMI (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. Fourth arg NEW-ENTRY non-nil means always create a new entry at the front; never append to an existing entry. Option `add-log-keep-changes-together' otherwise affects whether a new entry is created. Today's date is calculated according to `change-log-time-zone-rule' if non-nil, otherwise in local time. (defalias 'add-change-log-entry #[(&optional whoami file-name other-window new-entry) "\204\306  \204 \n \203\307\310\"\307\311 \"\312  \205$\313 =>\2031> \2023?\211@\205=\314@!A\314B\206K\315BA\"!B\316AB\"C\317DE\203fB?\232\203m\320\321 !\203u\322B!\210\202z\323B!\210F\324=\204\204\324 \210\325 \210eb\210G \326\327 \330\260H\331\332H!!\203\245\333y\210\202\253H\334\261\210)\331\335!\203\271\336\317w\210\202\307I\203\304\337 \210\202\307\340 \210`Deb\210\341\342D\343#\203\342C\203^Cc\210\202^H\204$\317J\341\332\344CP!\345PD\343#)\203$\341\346!\210\347\224b\210m\204\331\350!\203`\351\352!|\210\202\353\354\352\"\210\355y\210\356 \210\202^\333y\210\331\357!\2033\333y\210\202'm\204F\331\350!\203F`\351\352!|\210\2023\353\354\360\"\210\355y\210Kj\210\344c\210C\203^Cc\210\f\203\310\325 \210\212\361\333!\210\331\362!)\204t\363c\210\364 L\365\366!\203\250\367\317x\203\250\331\367!\203\250`T`\352\\|\210Mi\fG\\\360\\V\203\250`L|\210\370c\210\202\257Lb\210\371c\210L\317\211\223\210)\f\372\261\210=\205\342=\363\261\202\342\212\361\333!\210\331\373!)?\205\342\374c\210=\205\342=\363\261.\207" [add-log-full-name add-log-mailing-address user-mail-address whoami defun change-log-version-info-enabled user-full-name read-input "Full name: " "Mailing address: " add-log-current-defun change-log-version-number-search expand-file-name find-change-log add-log-file-name nil window-dedicated-p selected-window find-file-other-window find-file change-log-mode undo-boundary " " " <" ">" looking-at regexp-quote 1 "\n\n" "\n*[^\n* ]" "\n" forward-page forward-paragraph re-search-forward "^\\s *\\*\\s *$" t "* " "\\(\\s \\|[(),:]\\)" "^\\s *$\\|^\\s \\*" 0 "^\\s *$" line-beginning-position 2 insert-char 10 -2 indent-relative-maybe "\\sW" 3 beginning-of-line "\\s *$" 32 point-marker skip-syntax-backward " " "):" ", " "(" "): " "\\s *\\(\\*\\s *\\)?$" ": " version add-log-buffer-file-name-function buffer-file-name buf-file-name buffer-file file-name entry bound other-window major-mode add-log-time-format new-entry add-log-keep-changes-together case-fold-search left-margin pos fill-column] 7 (#$ . 10791) (list current-prefix-arg (prompt-for-change-log-name))]) #@306 Find change log file in other window and add an entry for today. Optional arg WHOAMI (interactive prefix) non-nil means prompt for user name and site. Second optional arg FILE-NAME is file name of change log. If nil, use `change-log-default-name'. Affected by the same options as `add-change-log-entry'. (defalias 'add-change-log-entry-other-window #[(&optional whoami file-name) "\302 \303#\207" [whoami file-name add-change-log-entry t] 4 (#$ . 13656) (byte-code "\205\301 D\207" [current-prefix-arg prompt-for-change-log-name] 2)]) #@346 Major mode for editing 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'. (defalias 'change-log-mode #[nil "\306 \210\307 \210\310\311\312\313\314\312\315!\210\316\317!\320L\210\316\321!\322L\210\316\323!L\210\316\324!\325L\210\316\326!\327L\210\316\330!\331L\210\316\332!\333L\210\334\335!\207" [major-mode mode-name left-margin fill-column indent-tabs-mode tab-width kill-all-local-variables indented-text-mode change-log-mode "Change Log" 8 74 t use-local-map make-local-variable fill-paragraph-function change-log-fill-paragraph paragraph-start "\\s *$\\|\f\\|^\\<" paragraph-separate page-delimiter "^\\<\\|^\f" version-control never adaptive-fill-regexp "\\s *" font-lock-defaults (change-log-font-lock-keywords t nil nil backward-paragraph) run-hooks change-log-mode-hook change-log-mode-map] 2 (#$ . 14204) nil]) #@108 Fill the paragraph, but preserve open parentheses at beginning of lines. Prefix arg means justify as well. (defalias 'change-log-fill-paragraph #[(&optional justify) "\304 \210`\305 \210`\306P\307 \n #\210+\310\207" [paragraph-start beg end justify forward-paragraph backward-paragraph "\\|\\s *\\s(" fill-region t] 4 (#$ . 15313) "P"]) #@76 *Heuristic regexp used by `add-log-current-defun' for unknown major modes. (custom-declare-variable 'add-log-current-defun-header-regexp '"^\\([[:upper:]][[:upper:]_ ]*[[:upper:]_]\\|[-_[:alpha:]]+\\)[ ]*[:=]" '(#$ . -15660) :type 'regexp :group 'change-log) #@56 *Modes that look like Lisp to `add-log-current-defun'. (defvar add-log-lisp-like-modes '(emacs-lisp-mode lisp-mode scheme-mode dsssl-mode lisp-interaction-mode) (#$ . -15926)) #@53 *Modes that look like C to `add-log-current-defun'. (defvar add-log-c-like-modes '(c-mode c++-mode c++-c-mode objc-mode) (#$ . -16108)) #@55 *Modes that look like TeX to `add-log-current-defun'. (defvar add-log-tex-like-modes '(TeX-mode plain-TeX-mode LaTeX-mode plain-tex-mode latex-mode) (#$ . -16250)) #@457 Return name of function definition point is in, or nil. Understands C, Lisp, LaTeX ("functions" are chapters, sections, ...), Texinfo (@node titles) and Perl. 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 variables `add-log-current-defun-header-regexp' and `add-log-current-defun-function' Has a preference of looking backwards. (defalias 'add-log-current-defun #[nil "\300\301\302\217\207" [nil (byte-code "\212` \203\f \202%\n >\203Qm\204\306u\210\307 \210\310\311!\205%\312 \210`W\205%\313\314!\210`Y\205%\310\311!\203>\306u\210\313\306!\210\315\316w\210\317`\313\306!\210`\"\202%\n\f>\203\226\212\320 \210`\321Zf\322=\203j\314y\210\202[\310\323!)\203\226\320 \210`\321Zf\322=\203\203\314y\210\202t\324\325!\210\326\316w\210\317`\313\306!\210`\"\202%\n\f>\203\234\320 \210\310\327!\204\253\306y\210\202\237m\204\262\306u\210\307 \210\312 \210`W\205%\330\306!\210\316\2119\314y\210o\204\332\310\331!\203\332\314y\210\202\312\316\332\333\217\203 b\210\334\306!\210`f\335U\203\367\313\306!\210\336\316w\210\317`\313\306!\210`\"\202\230\310\337!\203 \340 \202\230`9\316\341\342\217\205\230\2129b\210o\2041\212\314y\210\310\343!)\2031\314y\210\202`Y)\205\230`9V\205\230\316\211:;\344\316x\210`;\330\306!\210`:\314v\210\310\345!\203p\346\316x\210`;\330\306!\210`:\314v\210\202Vn\203}\310\347!\203}`:;b\210h\350=\203\221\314u\210\326\316x\210`;\317:;\"**\202%\n<>\203\270\351\352\316\353#\205%\354\224b\210\317`T\355 \"\202%\n\356=\203\314\351\357\316\353#\205%\360\306!\202%\n\361>\203\340\351\362\316\353#\205%\360\306!\202%\n\363=\203\364\351\364\316\353#\205%\360\365!\202%\316\211=>\316\210\351?`\366Z\353#\205$\360\306!\206\360\354!=\367\370=\"\203\"\360\306=\"==**\207" [location add-log-current-defun-function major-mode add-log-lisp-like-modes add-log-c-like-modes tem 1 beginning-of-defun looking-at "\\s(" end-of-defun forward-sexp -1 " \n'(" nil buffer-substring-no-properties beginning-of-line 2 92 "[ ]*#[ ]*define[ ]" search-forward "define" " " "{\\|\\(\\s *$\\)" backward-sexp "[ \n]" (byte-code "\212\302\210h\303U\203\304\210\202\305\306!\210\307 \210`\310\311!)\205# Y\207" [tem location nil 92 2 backward-sexp 1 beginning-of-line looking-at "DEFUN\\b"] 2) ((error)) down-list 34 " ," "^[+-]" change-log-get-method-definition (byte-code "\300\301!\210\302\301!\210\303\304x\210\305\207" [down-list 1 backward-up-list " " nil t] 2) ((error)) "[^\n\f]" " \n" "public \\|private " " :" "enum \\|struct \\|union \\|class " 61 re-search-backward "\\\\\\(sub\\)*\\(section\\|paragraph\\|chapter\\)" t 0 line-end-position texinfo-mode "^@node[ ]+\\([^,\n]+\\)" match-string-no-properties (perl-mode cperl-mode) "^sub[ ]+\\([^ \n]+\\)" autoconf-mode "^\\(\\(m4_\\)?define\\|A._DEFUN\\)(\\[?\\([A-Za-z0-9_]+\\)" 3 10000 string-match "\\([^ \n \f].*[^ \n \f]\\)" beg middle end add-log-tex-like-modes result case-fold-search add-log-current-defun-header-regexp] 4) ((error))] 3 (#$ . 16421)]) (byte-code "\301B\301\207" [current-load-list change-log-get-method-definition-md] 2) (defalias 'change-log-get-method-definition-1 #[(end) "\302\303! Q\304\225b\207" [change-log-get-method-definition-md end match-string 1 0] 3]) #@64 For objective C, return the method name if we are in a method. (defalias 'change-log-get-method-definition #[nil "\301\212\302\303\304\305#\203\306\307!\210)\212\310\311\304\305#\2051\306\312!\210\313\314!\204.\313\315!\210\306\312!\210\202\316P*\207" [change-log-get-method-definition-md "[" re-search-backward "^@implementation\\s-*\\([A-Za-z_]*\\)" nil t change-log-get-method-definition-1 " " re-search-forward "^\\([-+]\\)[ \n\f ]*\\(([^)]*)\\)?\\s-*" "" looking-at "[{;]" "\\([A-Za-z_]*:?\\)\\s-*\\(([^)]*)\\)?[A-Za-z_]*[ \n\f ]*" "]"] 4 (#$ . 19802)]) #@110 Return date of log entry in a consistent form for sorting. Point is assumed to be at the start of the entry. (defalias 'change-log-sortable-date-at #[nil "\301\302!\210\303\304!\203/\305\306!\211\205-\307\310\"\203)\311\312\"\311\313\"\311\314\"Q\202-\315\316\317\217)\207\320\321!\207" [date require timezone looking-at "^\\sw.........[0-9:+ ]*" match-string-no-properties 0 string-match "\\(....\\)-\\(..\\)-\\(..\\)\\s-+" match-string 1 2 3 nil (timezone-make-date-sortable date) ((error)) error "Bad date"] 6 (#$ . 20378)]) #@286 Merge the contents of ChangeLog file OTHER-LOG with this buffer. Both must be found in Change Log mode (since the merging depends on the appropriate motion commands). Entries are inserted in chronological order. Both the current and old-style time formats for entries are supported. (defalias 'change-log-merge #[(other-log) "\306=\204\n\307\310!\210\311 !p\312\211\211\212eb\210q\210eb\210\306=\204-\307\313 \"\210m?\205v\314 `\315 \210`r q\210m\204Q\f\314 \231\203Q\315 \210\202@m\204_\316 \n#\210\202r\317c\210\316 rq\210db\210`)#\210)\202-.\207" [major-mode other-log end start date1 buf change-log-mode error "Not in Change Log mode" find-file-noselect nil "%s not found in Change Log mode" change-log-sortable-date-at forward-page insert-buffer-substring "\n" other-buf] 5 (#$ . 20922) "*fLog file name to merge: "]) #@75 Fix any old-style date entries in the current log file to default format. (defalias 'change-log-redate #[nil "\303\304!\210\212eb\210\305\306\307\310#\205U\311\225\311\224Z\312U\204\313 \314\216\315\316\311!\307\211#*\211\317H:\2054 \317HA@\320\321\322\323 \324H \325H \326H \327H \330H \311H\n&\"!\210*\202)\207" [save-match-data-internal date zone require timezone re-search-forward "^\\sw.........[0-9:+ ]*" nil t 0 12 match-data ((set-match-data save-match-data-internal)) timezone-fix-time match-string 6 replace-match format-time-string "%Y-%m-%d " encode-time 5 4 3 2 1] 12 (#$ . 21782) nil]) (provide 'add-log)