;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313&	\210\314\315\316\317\320DD\321\322\323%\210\314\324\316\317\325DD\326\310\327\322\330&\210\314\331\316\317\332DD\333\310\327\322\330&\210\314\334\316\317\335DD\336\322\337%\210\314\340\316\317\341DD\342\322\337%\210\314\343\316\317\344DD\345\322\346%\207" [require time-stamp custom-declare-group todo nil "Maintain a list of todo items." :link (emacs-commentary-link "todo-mode") :version "21.1" :group calendar custom-declare-variable todo-prefix funcall function #[0 "\300\207" ["*/*"] 1 #1=""] "TODO mode prefix for entries.\n\nThis is useful in conjunction with `calendar' and `diary' if you use\n\n#include \"~/.emacs.d/todo-do\"\n\nin your diary file to include your todo list file as part of your\ndiary.  With the default value \"*/*\" the diary displays each entry\nevery day and it may also be marked on every day of the calendar.\nUsing \"&%%(equal (calendar-current-date) date)\" instead will only\nshow and mark todo entries for today, but may slow down processing of\nthe diary file somewhat." :type string todo-file-do #[0 "\300\301\302\"\207" [locate-user-emacs-file "todo-do" ".todo-do"] 3 #1#] "TODO mode list file." "24.4" file todo-file-done #[0 "\300\301\302\"\207" [locate-user-emacs-file "todo-done" ".todo-done"] 3 #1#] "TODO mode archive file." todo-mode-hook #[0 "\300\207" [nil] 1 #1#] "TODO mode hooks." hook todo-edit-mode-hook #[0 "\300\207" [nil] 1 #1#] "TODO Edit mode hooks." todo-insert-threshold #[0 "\300\207" [0] 1 #1#] "TODO mode insertion accuracy.\n\nIf you have 8 items in your TODO list, then you may get asked 4\nquestions by the binary insertion algorithm.  However, you may not\nreally have a need for such accurate priorities amongst your TODO\nitems.  If you now think about the binary insertion halving the size\nof the window each time, then the threshold is the window size at\nwhich it will stop.  If you set the threshold to zero, the upper and\nlower bound will coincide at the end of the loop and you will insert\nyour item just before that point.  If you set the threshold to,\ne.g. 8, it will stop as soon as the window size drops below that\namount and will insert the item in the approximate center of that\nwindow." integer] 10)
#@24 TODO Edit buffer name.
(defvar todo-edit-buffer " *TODO Edit*" (#$ . 2342))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\315%\210\300\316\302\303\317DD\320\310\321%\210\300\322\302\303\323DD\324\310\321%\210\300\325\302\303\326DD\327\310\330%\210\300\331\302\303\332DD\333\310\330%\210\300\334\302\303\335DD\336\310\311%\210\300\337\302\303\340DD\341\310\315%\210\300\342\302\303\343DD\344\310\311%\207" [custom-declare-variable todo-file-top funcall function #[0 "\300\301\302\"\207" [locate-user-emacs-file "todo-top" ".todo-top"] 3 #1=""] "TODO mode top priorities file.\n\nNot in TODO format, but diary compatible.\nAutomatically generated when `todo-save-top-priorities' is non-nil." :version "24.4" :type string todo-print-function #[0 "\300\207" [ps-print-buffer-with-faces] 1 #1#] "Function to print the current buffer." symbol todo-show-priorities #[0 "\300\207" [1] 1 #1#] "Default number of priorities to show by \\[todo-top-priorities].\n0 means show all entries." integer todo-print-priorities #[0 "\300\207" [0] 1 #1#] "Default number of priorities to print by \\[todo-print].\n0 means print all entries." todo-remove-separator #[0 "\300\207" [t] 1 #1#] "Non-nil to remove category separators in\\[todo-top-priorities] and \\[todo-print]." boolean todo-save-top-priorities-too #[0 "\300\207" [t] 1 #1#] "Non-nil makes `todo-save' automatically save top-priorities in `todo-file-top'." todo-time-string-format #[0 "\300\207" ["%:y-%02m-%02d %02H:%02M"] 1 #1#] "TODO mode time string format for done entries.\nFor details see the variable `time-stamp-format'." todo-entry-prefix-function #[0 "\300\207" [todo-entry-timestamp-initials] 1 #1#] "Function producing text to insert at start of todo entry." todo-initials #[0 "\300\301!\206\302 \207" [getenv "INITIALS" user-login-name] 2 #1#] "Initials of todo item author."] 8)
#@66 Prepend timestamp and your initials to the head of a TODO entry.
(defalias 'todo-entry-timestamp-initials #[0 "\303 \304\n\305R)\207" [todo-time-string-format time-stamp-format todo-initials time-stamp-string " " ": "] 4 (#$ . 4232)])
#@18 TODO categories.
(defvar todo-categories nil (#$ . 4475))
#@78 Old variable for holding the TODO categories.
Use `todo-categories' instead.
(defvar todo-cats nil (#$ . 4539))
#@28 Previous line asked about.
(defvar todo-previous-line 0 (#$ . 4657))
#@22 Previous answer got.
(defvar todo-previous-answer 0 (#$ . 4732))
#@19 TODO mode keymap.
(defvar todo-mode-map (byte-code "\300 \301
\302\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\303
\314\315#\210\303
\316\311#\210\303
\317\320#\210\303
\321\322#\210\303
\323\324#\210\303
\325\326#\210\303
\327\330#\210\303
\331\332#\210\303
\333\334#\210\303
\335\336#\210\303
\337\340#\210\303
\341\342#\210\303
\343\344#\210\303
\345\346#\210\303
\347\350#\210\207" [make-keymap suppress-keymap t define-key "+" todo-forward-category "-" todo-backward-category "d" todo-file-item "e" todo-edit-item "E" todo-edit-multiline "f" "i" todo-insert-item "I" todo-insert-item-here "j" todo-jump-to-category "k" todo-delete-item "l" todo-lower-item "n" todo-forward-item "p" todo-backward-item "P" todo-print "q" todo-quit "r" todo-raise-item "s" todo-save "S" todo-save-top-priorities "t" todo-top-priorities] 5) (#$ . 4803))
#@23 TODO category number.
(defvar todo-category-number 0 (#$ . 5682))
(defvar todo-tmp-buffer-name " *todo tmp*")
#@21 Category separator.
(defvar todo-category-sep (make-string 75 45) (#$ . 5798))
#@62 Category start separator to be prepended onto category name.
(defvar todo-category-beg " --- " (#$ . 5883))
#@29 Separator after a category.
(defvar todo-category-end "--- End" (#$ . 5997))
#@23 Header of todo files.
(defvar todo-header "-*- mode: todo; " (#$ . 6080))
#@56 Make TODO mode display the current category correctly.
(defalias 'todo-category-select #[0 "	8\306\307\310\"P~\210eb\210\311\312\313\fQ!\314Q!\210\315 T\311\312
P!\210\211\316 }\210eb\207" [todo-category-number todo-categories mode-line-buffer-identification todo-prefix todo-category-beg todo-category-end "Category: " format "%18s" search-forward-regexp "^" regexp-quote "$" line-end-position line-beginning-position] 7 (#$ . 6160)])
(defalias 'todo-cat-slct 'todo-category-select)
#@43 Go forward to TODO list of next category.
(defalias 'todo-forward-category #[0 "\302T	G\"\303 \207" [todo-category-number todo-categories mod todo-category-select] 3 (#$ . 6655) nil])
(defalias 'todo-cmd-forw 'todo-forward-category)
#@44 Go back to TODO list of previous category.
(defalias 'todo-backward-category #[0 "\302S	G\"\303 \207" [todo-category-number todo-categories mod todo-category-select] 3 (#$ . 6896) nil])
(defalias 'todo-cmd-back 'todo-backward-category)
#@37 Select previous entry of TODO list.
(defalias 'todo-backward-item #[0 "\301\302\303!P\304\305#\210\306\307!\207" [todo-prefix search-backward-regexp "^" regexp-quote nil t message ""] 4 (#$ . 7140) nil])
(defalias 'todo-cmd-prev 'todo-backward-item)
#@64 Select COUNT-th next entry of TODO list.

(fn &optional COUNT)
(defalias 'todo-forward-item #[256 "\211<\203	\211@\262
\301\210\302\303\304!P\301\305$\210\306 \210\307\310!\207" [todo-prefix nil search-forward-regexp "^" regexp-quote goto-end beginning-of-line message ""] 6 (#$ . 7397) "P"])
(defalias 'todo-cmd-next 'todo-forward-item)
#@21 Save the TODO list.
(defalias 'todo-save #[0 "\212\214\301 \210*\205\f\302 \207" [todo-save-top-priorities-too save-buffer todo-save-top-priorities] 1 (#$ . 7745) nil])
(defalias 'todo-cmd-save 'todo-save)
#@30 Done with TODO list for now.
(defalias 'todo-quit #[0 "~\210\300 \210\301\302!\210\303 \207" [todo-save message "" bury-buffer] 2 (#$ . 7959) nil])
(defalias 'todo-cmd-done 'todo-quit)
#@31 Edit current TODO list entry.
(defalias 'todo-edit-item #[0 "edW\203$\300 \301
!\203\302 \207\303\304\"\305 \210\211\306\261\210\307 \210\310\311!\207\312\313!\207" [todo-item-string todo-string-multiline-p todo-edit-multiline read-from-minibuffer "Edit: " todo-remove-item "\n" todo-backward-item message "" error "No TODO list entry to edit"] 4 (#$ . 8150) nil])
(defalias 'todo-cmd-edit 'todo-edit-item)
#@58 Set up a buffer for editing a multiline TODO list entry.
(defalias 'todo-edit-multiline #[0 "\302!\303\304\305	!\"!\210\306\307!\210\310 \210\311 \312 }\207" [todo-edit-buffer todo-file-do generate-new-buffer-name switch-to-buffer make-indirect-buffer file-name-nondirectory message "To exit, simply kill this buffer and return to list." todo-edit-mode todo-item-start todo-item-end] 5 (#$ . 8568) nil])
#@60 Add new category CAT to the TODO list.

(fn &optional CAT)
(defalias 'todo-add-category #[256 "\306\307\"\310\311!\312U\204	\204\n\204\313\314\"\210\204#\315\310!\262r
q\210\316\230\2034\317\211\262\202L\320\321\"\203B\322\211\262\202L	\235\203X\323\211\262\203X\315
!\211\262\204'\324!\204a\325 \210	B~\210eb\210\326\327e\330\\\307#\203z\331 \210\202\200\332c\210\333u\210\334\335	\"c\210\336u\210\334\337\f
#&c\210\340\341!\203\245\312$\342 \202\246\312)\207" [todo-file-do todo-categories todo-cats todo-prefix todo-category-beg todo-category-end find-file-noselect t "Category: " buffer-size 0 error "Error in %s: File is non-empty but contains no category" read-from-minibuffer "" "Enter a non-empty category name: " string-match "\\`\\s-+\\'" "Enter a category name that is not only white space: " "Enter a non-existing category name: " file-exists-p todo-mode search-forward "-*- mode: todo; " 16 kill-line "-*- mode: todo; \n" -1 format "todo-categories: %S; -*-" 1 "%s%s%s\n%s\n%s %s\n" called-interactively-p interactive todo-show todo-category-sep todo-category-number] 11 (#$ . 8980) nil])
#@82 Insert NEW-ITEM in TODO list as a new entry in CATEGORY.

(fn NEW-ITEM CATEGORY)
(defalias 'todo-add-item-non-interactively #[514 "\212\304 \210)\212\211\305\230\203	8\262
\211	\235\211\203 	G
GZ\202#\306!\210\304 \210\307\310\311ed\"T\211ZV\203Y

\\\312\245\211W\205F\313
!\211\203P
\266\203\2020
T\262\266\2020

\\\312\245\262eb\210
Sy\266
\314\261\210\315 \210\316 \210\317\305!)\207" [todo-category-number todo-categories todo-previous-line todo-insert-threshold todo-show "" todo-add-category 0 1 count-lines 2 todo-more-important-p "\n" todo-backward-item todo-save message] 7 (#$ . 10129)])
#@124 Insert new TODO list entry.
With a prefix argument ARG solicit the category, otherwise use the current
category.

(fn ARG)
(defalias 'todo-insert-item #[257 "\212\304\305!\204\n\306 \210\307\310\311	\205	 \"Q\n8\203\"\312 \202#\211\313\"\266\203)\207" [todo-prefix todo-entry-prefix-function todo-category-number todo-categories derived-mode-p todo-mode todo-show " " read-from-minibuffer "New TODO entry: " todo-completing-read todo-add-item-non-interactively] 7 (#$ . 10755) "P"])
(defalias 'todo-cmd-inst 'todo-insert-item)
#@119 Insert a new TODO list entry directly above the entry at point.
If point is on an empty line, insert the entry there.
(defalias 'todo-insert-item-here #[0 "\302\303!\204	\304 \210\305\306\307	\205	 \"Qn\203l\204 \310 \210\211\311Pc\210\312u\210\310 \207" [todo-prefix todo-entry-prefix-function derived-mode-p todo-mode todo-show " " read-from-minibuffer "New TODO entry: " todo-item-start "\n" -1] 5 (#$ . 11299) nil])
#@70 Ask whether entry is more important than the one at LINE.

(fn LINE)
(defalias 'todo-more-important-p #[257 "
\232\204\211eb\210Sy\210\302 \303\304\305\"!\210	\207" [todo-previous-line todo-previous-answer todo-item-string-start y-or-n-p format-message "More important than `%s'? "] 6 (#$ . 11732)])
(defalias 'todo-ask-p 'todo-more-important-p)
#@33 Delete current TODO list entry.
(defalias 'todo-delete-item #[0 "\300ed\"\301V\203\302 \303\304\305Q!\211\203\306 \210\307 \210\310\311!\207\312\313!\207" [count-lines 0 todo-item-string-start y-or-n-p "Permanently remove '" "'? " todo-remove-item todo-backward-item message "" error "No TODO list entry to delete"] 5 (#$ . 12091) nil])
(defalias 'todo-cmd-kill 'todo-delete-item)
#@34 Raise priority of current entry.
(defalias 'todo-raise-item #[0 "\300e`\"\301V\203\302 \303 \210\304 \210\212\211\305\261\210)\306\307!\207\310\311!\207" [count-lines 0 todo-item-string todo-remove-item todo-backward-item "\n" message "" error "No TODO list entry to raise"] 3 (#$ . 12483) nil])
(defalias 'todo-cmd-rais 'todo-raise-item)
#@34 Lower priority of current entry.
(defalias 'todo-lower-item #[0 "\300`d\"\301V\203\302 \303 \210\304 \210\212\211\305\261\210)\306\307!\207\310\311!\207" [count-lines 1 todo-item-string todo-remove-item todo-forward-item "\n" message "" error "No TODO list entry to lower"] 3 (#$ . 12831) nil])
(defalias 'todo-cmd-lowr 'todo-lower-item)
#@100 File the current TODO list entry away, annotated with an optional COMMENT.

(fn &optional COMMENT)
(defalias 'todo-file-item #[256 "\306ed\"\307V\204
\310\311!\210\211\2036\211G\307V\2036\312 b\210\212\313 \210\314\315\n!!)\203/\316\2020\317\320\321\261\210\312 b\210\322\f8\323\261\210\324 \210`\314\315\n!!\203V\325\326 !\210\202Z\326 c\210\327
\312\330!
#\210\211\312\330!|\266\331 \210\332\333!)\207" [todo-time-string-format time-stamp-format todo-prefix todo-category-number todo-categories todo-file-done count-lines 0 error "No TODO list entry to file away" todo-item-end beginning-of-line looking-at regexp-quote " " "\n	" "(" ")" " [" "]" todo-item-start replace-match time-stamp-string append-to-file include-sep todo-backward-item message ""] 6 (#$ . 13179) "sComment: "])
#@368 List top priorities for each category.

Number of entries for each category is given by NOF-PRIORITIES which
defaults to `todo-show-priorities'.

If CATEGORY-PR-PAGE is non-nil, a page separator `^L' is inserted
between each category.
INTERACTIVE should be non-nil if this function is called interactively.

(fn &optional NOF-PRIORITIES CATEGORY-PR-PAGE INTERACTIVE)
(defalias 'todo-top-priorities #[768 "\204\262<\203@\262	\203\306\202\307\n\203+\310\311\f!\312
\310\260\202.\310P\260
\313\211\212\314 \210\214r~\210\315ed#\210q\210eb\210\316\311!\313\317#\203Z\320\321!\210`\322 |\210\316\311\fP!\313\317#\203\237\322 T\262\316\313\317#\210\323\224\262
\324!\210

}\210eb\210\323U\203\216\211b\210\202\223\325!\210`\262

|\210~\210\202Z\326\306!\203\251\324\307!\210eb\210+\203\265\327!\210\330\331\"\207" [todo-show-priorities todo-tmp-buffer-name todo-remove-separator todo-category-end todo-prefix todo-category-sep "\f" "" "\n" regexp-quote " " nil todo-show copy-to-buffer re-search-forward t beginning-of-line 1 line-end-position 0 replace-match todo-forward-item looking-at display-buffer message "Type C-x 1 to remove %s window.  M-C-v to scroll the help." todo-header todo-category-beg] 12 (#$ . 13985) "P\ni\nP"])
#@196 Save top priorities for each category in `todo-file-top'.

Number of entries for each category is given by NOF-PRIORITIES which
defaults to `todo-show-priorities'.

(fn &optional NOF-PRIORITIES)
(defalias 'todo-save-top-priorities #[256 "\302 \303\304\"\216\212\214\305!\210q\210\306	!\210\307 +\207" [todo-tmp-buffer-name todo-file-top current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] todo-top-priorities write-file kill-this-buffer] 5 (#$ . 15263) "P"])
#@245 Print todo summary using `todo-print-function'.
If CATEGORY-PR-PAGE is non-nil, a page separator `^L' is inserted
between each category.

Number of entries for each category is given by `todo-print-priorities'.

(fn &optional CATEGORY-PR-PAGE)
(defalias 'todo-print #[256 "\303 \304\305\"\216\212\214\306\"\210	q\210\n \203\307 \210\310\311!+\207" [todo-print-priorities todo-tmp-buffer-name todo-print-function current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] todo-top-priorities kill-this-buffer message "Todo printing done."] 5 (#$ . 15775) "P"])
#@52 Jump to a category.  Default is previous category.
(defalias 'todo-jump-to-category #[0 "\302 \211\303\230\203
	8\262
\211	\235\203	G
	\235GZ\202 \304
!\305 \207" [todo-category-number todo-categories todo-completing-read "" todo-add-category todo-show] 4 (#$ . 16382) nil])
#@44 Return current line in buffer as a string.
(defalias 'todo-line-string #[0 "\300 \301 {\207" [line-beginning-position line-end-position] 2 (#$ . 16669)])
#@55 Return the start of this TODO list entry as a string.
(defalias 'todo-item-string-start #[0 "\300 \211G\301V\203\211\302\303O\304P\262
\207" [todo-item-string 60 0 56 "..."] 4 (#$ . 16829)])
#@57 Go to start of current TODO list item and return point.
(defalias 'todo-item-start #[0 "\301 \210\302\303!!\204\304\305\303!P\306\307#\210`\207" [todo-prefix beginning-of-line looking-at regexp-quote search-backward-regexp "^" nil t] 4 (#$ . 17028)])
#@137 Return point at end of current TODO list item.
If INCLUDE-SEP is non-nil, return point after the separator.

(fn &optional INCLUDE-SEP)
(defalias 'todo-item-end #[256 "\212\301\210\302\303\304!P\301\305#\203\306\224b\210\211\204\307\301x\210`)\207" [todo-prefix nil search-forward-regexp "^" regexp-quote goto-end 0 "\n"] 5 (#$ . 17290)])
#@46 Delete the current entry from the TODO list.
(defalias 'todo-remove-item #[0 "\300 \301\302!|\207" [todo-item-start todo-item-end include-sep] 3 (#$ . 17641)])
#@45 Return current TODO list entry as a string.
(defalias 'todo-item-string #[0 "\300 \301 {\207" [todo-item-start todo-item-end] 2 (#$ . 17807)])
#@55 Return the number of lines STRING spans.

(fn STRING)
(defalias 'todo-string-count-lines #[257 "\300
\301\"G\207" [split-string "\n"] 4 (#$ . 17956)])
#@60 Return non-nil if STRING spans several lines.

(fn STRING)
(defalias 'todo-string-multiline-p #[257 "\300
!\301V\207" [todo-string-count-lines 1] 3 (#$ . 18113)])
#@64 Return a category name, with completion, for use in Todo mode.
(defalias 'todo-completing-read #[0 "\302!\300	TB	8\303\304\305Q\306\211\211&\207" [todo-categories todo-category-number copy-sequence completing-read "Category [" "]: " nil] 11 (#$ . 18282)])
#@11 Todo Menu
(defvar todo-menu nil (#$ . 18555))
(easy-menu-do-define 'todo-menu todo-mode-map "Todo Menu" '("Todo" ["Next category" todo-forward-category t] ["Previous category" todo-backward-category t] ["Jump to category" todo-jump-to-category t] ["Show top priority items" todo-top-priorities t] ["Print categories" todo-print t] "---" ["Edit item" todo-edit-item t] ["File item" todo-file-item t] ["Insert new item" todo-insert-item t] ["Insert item here" todo-insert-item-here t] ["Kill item" todo-delete-item t] "---" ["Lower item priority" todo-lower-item t] ["Raise item priority" todo-raise-item t] "---" ["Next item" todo-forward-item t] ["Previous item" todo-backward-item t] "---" ["Save" todo-save t] ["Save Top Priorities" todo-save-top-priorities t] "---" ["Quit" todo-quit t]))
(defvar todo-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [todo-mode-hook variable-documentation put "Hook run after entering TODO mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp todo-mode-map definition-name todo-mode] 4)
(defvar todo-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [todo-mode-abbrev-table todo-mode-map variable-documentation put purecopy "Keymap for `todo-mode'." boundp todo-mode-syntax-table definition-name todo-mode (lambda (#1=#:def-tmp-var) (defvar todo-mode-syntax-table #1#)) make-syntax-table "Syntax table for `todo-mode'." (lambda (#1#) (defvar todo-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `todo-mode'." derived-mode-parent] 5)
#@153 Major mode for editing TODO lists.

This mode runs the hook `todo-mode-hook', as the final or penultimate
step during initialization.

\{todo-mode-map}
(defalias 'todo-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
)\315\316!\207" [delay-mode-hooks major-mode mode-name todo-mode-map todo-mode-syntax-table todo-mode-abbrev-table make-local-variable t kill-all-local-variables todo-mode "TODO" use-local-map set-syntax-table run-mode-hooks todo-mode-hook local-abbrev-table] 2 (#$ . 20452) nil])
#@61 Make a diary entry appear only in the current date's diary.
(defalias 'todo-cp #[0 "\302 \232\205	\207" [date entry calendar-current-date] 2 (#$ . 20978)])
(defvar todo-edit-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [todo-edit-mode-hook variable-documentation put "Hook run after entering TODO Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp todo-edit-mode-map definition-name todo-edit-mode] 4)
(defvar todo-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [todo-edit-mode-abbrev-table todo-edit-mode-map variable-documentation put purecopy "Keymap for `todo-edit-mode'." boundp todo-edit-mode-syntax-table definition-name todo-edit-mode (lambda (#1=#:def-tmp-var) (defvar todo-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `todo-edit-mode'." (lambda (#1#) (defvar todo-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `todo-edit-mode'." derived-mode-parent text-mode] 5)
#@244 Major mode for editing items in the TODO list.

\{todo-edit-mode-map}

In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `todo-edit-mode-hook', as the final or
penultimate step during initialization.
(defalias 'todo-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name todo-edit-mode-map todo-edit-mode-syntax-table todo-edit-mode-abbrev-table make-local-variable t text-mode todo-edit-mode "TODO Edit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks todo-edit-mode-hook local-abbrev-table] 5 (#$ . 22327) nil])
#@17 Show TODO list.
(defalias 'todo-show #[0 "\303!\204\304\305!!\306
!\307!
\232\266\202\203\310!\210\202\"\311 \210	\204G\n\2042\312\313\"\210\202Geb\210\314\315\316\317#\203A\320\321!\210\322\301!\210\n\323 \210\324 \207" [todo-file-do todo-categories todo-cats file-exists-p get-buffer file-name-nondirectory buffer-file-name expand-file-name find-file todo-initial-setup error "Error in %s: No categories in list `todo-categories'" search-forward "todo-cats:" nil t replace-match "todo-categories:" make-local-variable beginning-of-line todo-category-select] 4 (#$ . 23314) nil])
#@46 Set up things to work properly in TODO mode.
(defalias 'todo-initial-setup #[0 "\301!\210\302 \210\303 \210\304\305!\207" [todo-file-do find-file erase-buffer todo-mode todo-add-category "Todo"] 2 (#$ . 23916)])
(provide 'todo-mode)