| Current Path : /usr/share/emacs/24.3/lisp/calendar/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calendar/todo-mode.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/todo-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \210\314\315\316\317\320\321\312\303&\210\314\322\323\324\320\325\312\303&\210\314\326\327\330\320\325\312\303&\210\314\331\304\332\320\333\312\303&\210\314\334\304\335\320\333\312\303&\210\314\336\337\340\320\341\312\303&\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 "*/*" "TODO mode prefix for entries.\n\nThis is useful in conjunction with `calendar' and `diary' if you use\n\n#include \"~/.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 (convert-standard-filename "~/.todo-do") "TODO mode list file." file todo-file-done (convert-standard-filename "~/.todo-done") "TODO mode archive file." todo-mode-hook "TODO mode hooks." hook todo-edit-mode-hook "TODO Edit mode hooks." todo-insert-threshold 0 "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*" (#$ . 2581))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\321\322\304\317\306\307&\210\300\323\324\325\304\326\306\307&\210\300\327\324\330\304\326\306\307&\210\300\331\332\333\304\305\306\307&\210\300\334\335\336\304\313\306\307&\210\300\337\340\341\304\305\306\307&\207" [custom-declare-variable todo-file-top (convert-standard-filename "~/.todo-top") "TODO mode top priorities file.\n\nNot in TODO format, but diary compatible.\nAutomatically generated when `todo-save-top-priorities' is non-nil." :type string :group todo todo-print-function 'ps-print-buffer-with-faces "Function to print the current buffer." symbol todo-show-priorities 1 "Default number of priorities to show by \\[todo-top-priorities].\n0 means show all entries." integer todo-print-priorities 0 "Default number of priorities to print by \\[todo-print].\n0 means print all entries." todo-remove-separator t "Non-nil to remove category separators in\\[todo-top-priorities] and \\[todo-print]." boolean todo-save-top-priorities-too "Non-nil makes `todo-save' automatically save top-priorities in `todo-file-top'." todo-time-string-format "%:y-%02m-%02d %02H:%02M" "TODO mode time string format for done entries.\nFor details see the variable `time-stamp-format'." todo-entry-prefix-function 'todo-entry-timestamp-initials "Function producing text to insert at start of todo entry." todo-initials (or (getenv "INITIALS") (user-login-name)) "Initials of todo item author."] 8)
#@66 Prepend timestamp and your initials to the head of a TODO entry.
(defalias 'todo-entry-timestamp-initials #[nil "\303 \304\n\305R)\207" [todo-time-string-format time-stamp-format todo-initials time-stamp-string " " ": "] 4 (#$ . 4193)])
#@18 TODO categories.
(defvar todo-categories nil (#$ . 4438))
#@78 Old variable for holding the TODO categories.
Use `todo-categories' instead.
(defvar todo-cats nil (#$ . 4502))
#@28 Previous line asked about.
(defvar todo-previous-line 0 (#$ . 4620))
#@22 Previous answer got.
(defvar todo-previous-answer 0 (#$ . 4695))
#@19 TODO mode keymap.
(defvar todo-mode-map (byte-code "\301 \302\303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\312#\210\304\320\321#\210\304\322\323#\210\304\324\325#\210\304\326\327#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210\304\336\337#\210\304\340\341#\210\304\342\343#\210\304\344\345#\210\304\346\347#\210\304\350\351#\210)\207" [map 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] 4) (#$ . 4766))
#@23 TODO category number.
(defvar todo-category-number 0 (#$ . 5652))
(defvar todo-tmp-buffer-name " *todo tmp*")
#@21 Category separator.
(defvar todo-category-sep (make-string 75 45) (#$ . 5768))
#@62 Category start separator to be prepended onto category name.
(defvar todo-category-beg " --- " (#$ . 5853))
#@29 Separator after a category.
(defvar todo-category-end "--- End" (#$ . 5967))
#@23 Header of todo files.
(defvar todo-header "-*- mode: todo; " (#$ . 6050))
#@56 Make TODO mode display the current category correctly.
(defalias 'todo-category-select #[nil " 8\306\307\310\n\"P~\210eb\210\311\312\313\f
\nQ!\314Q!\210\315 T \311\312P!\210\316 }\210eb*\207" [todo-category-number todo-categories name mode-line-buffer-identification todo-prefix todo-category-beg "Category: " format "%18s" search-forward-regexp "^" regexp-quote "$" line-end-position line-beginning-position begin todo-category-end] 6 (#$ . 6130)])
(defalias 'todo-cat-slct 'todo-category-select)
#@43 Go forward to TODO list of next category.
(defalias 'todo-forward-category #[nil "\302T G\"\303 \207" [todo-category-number todo-categories mod todo-category-select] 3 (#$ . 6643) nil])
(defalias 'todo-cmd-forw 'todo-forward-category)
#@44 Go back to TODO list of previous category.
(defalias 'todo-backward-category #[nil "\302S G\"\303 \207" [todo-category-number todo-categories mod todo-category-select] 3 (#$ . 6886) nil])
(defalias 'todo-cmd-back 'todo-backward-category)
#@37 Select previous entry of TODO list.
(defalias 'todo-backward-item #[nil "\301\302\303!P\304\305#\210\306\307!\207" [todo-prefix search-backward-regexp "^" regexp-quote nil t message ""] 4 (#$ . 7132) nil])
(defalias 'todo-cmd-prev 'todo-backward-item)
#@42 Select COUNT-th next entry of TODO list.
(defalias 'todo-forward-item #[(&optional count) "<\203 @\302\210\303\304\305 !P\302\306$\210\307 \210\310\311!\207" [count todo-prefix nil search-forward-regexp "^" regexp-quote goto-end beginning-of-line message ""] 5 (#$ . 7391) "P"])
(defalias 'todo-cmd-next 'todo-forward-item)
#@21 Save the TODO list.
(defalias 'todo-save #[nil "\212\214\301 \210*\205\f \302 \207" [todo-save-top-priorities-too save-buffer todo-save-top-priorities] 1 (#$ . 7727) nil])
(defalias 'todo-cmd-save 'todo-save)
#@30 Done with TODO list for now.
(defalias 'todo-quit #[nil "~\210\300 \210\301\302!\210\303 \207" [todo-save message "" bury-buffer] 2 (#$ . 7943) nil])
(defalias 'todo-cmd-done 'todo-quit)
#@31 Edit current TODO list entry.
(defalias 'todo-edit-item #[nil "edW\203* \302 \303!\203 \304 \202( \305\306\"\307 \210 \310\261\210\311 \210\312\313!))\207\314\315!\207" [item new 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"] 3 (#$ . 8136) nil])
(defalias 'todo-cmd-edit 'todo-edit-item)
#@58 Set up a buffer for editing a multiline TODO list entry.
(defalias 'todo-edit-multiline #[nil "\303!\304\305\306\n! \"!\210\307\310!\210\311 \210\312 \313 })\207" [todo-edit-buffer buffer-name 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] 4 (#$ . 8568) nil])
#@40 Add new category CAT to the TODO list.
(defalias 'todo-add-category #[(&optional cat) "\306\307\"\310\311\312\n!!\204 \204 \f\204 \313\314\"\210
\204$ \315 !r\nq\210
\316\230\2034 \317\211\202J \320\321
\"\203A \322\211\202J
\235\203U \323\211\203U \315 !\211\204( \324!\204^ \325 \210
B~\210eb\210\326\327e\330\\\307#\203w \331 \210\202} \332c\210\333u\210\334\335 \"c\210\336u\210\334\337$%
&$'&c\210\340\341!\203\245 \342(\343 \202\246 \342+\207" [todo-file-do prompt buf todo-categories todo-cats cat find-file-noselect t "Category: " zerop buffer-size 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 0 todo-show todo-prefix todo-category-beg todo-category-end todo-category-sep todo-category-number] 8 (#$ . 8997) nil])
#@58 Insert NEW-ITEM in TODO list as a new entry in CATEGORY.
(defalias 'todo-add-item-non-interactively #[(new-item category) "\212\306 \210)\212\307\230\203 \n8\n\235\211\203 \nG GZ\202# \310!)\306 \210\311\312\313ed\"T
ZV\203d
\\\314\245\211
W\205O \315!\211 \203[ \202` T*\2023
\\\314\245eb\210Sy\210*\316\261\210\317 \210\320 \210\321\307!)\207" [category todo-category-number todo-categories cat-exists todo-previous-line bottom todo-show "" todo-add-category 0 1 count-lines 2 todo-more-important-p "\n" todo-backward-item todo-save message top todo-insert-threshold current answer new-item] 5 (#$ . 10138)])
#@114 Insert new TODO list entry.
With a prefix argument ARG solicit the category, otherwise use the current
category.
(defalias 'todo-insert-item #[(arg) "\212\306\307!\204\n \310 \210\311\312\313 \205 \"Q \f8 \203% \314 \202&
\315\n\",\207" [todo-prefix todo-entry-prefix-function new-item todo-category-number todo-categories current-category derived-mode-p todo-mode todo-show " " read-from-minibuffer "New TODO entry: " todo-completing-read todo-add-item-non-interactively arg category] 5 (#$ . 10798) "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 #[nil "\303\304!\204 \305 \210\306\307\310 \205 \"Qn\203 l\204! \311 \210\n\312Pc\210\313u\210\311 )\207" [todo-prefix todo-entry-prefix-function new-item derived-mode-p todo-mode todo-show " " read-from-minibuffer "New TODO entry: " todo-item-start "\n" -1] 5 (#$ . 11368) nil])
#@59 Ask whether entry is more important than the one at LINE.
(defalias 'todo-more-important-p #[(line) " \232\204 eb\210Sy\210\304 \305\306\n\307Q!) \207" [todo-previous-line line item todo-previous-answer todo-item-string-start y-or-n-p "More important than '" "'? "] 4 (#$ . 11812)])
(defalias 'todo-ask-p 'todo-more-important-p)
#@33 Delete current TODO list entry.
(defalias 'todo-delete-item #[nil "\302ed\"\303V\203\" \304 \305\306\307Q!\211\203 \310 \210\311 \210\312\313!*\207\314\315!\207" [todo-entry todo-answer 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 (#$ . 12154) nil])
(defalias 'todo-cmd-kill 'todo-delete-item)
#@34 Raise priority of current entry.
(defalias 'todo-raise-item #[nil "\301e`\"\302V\203 \303 \304 \210\305 \210\212\306\261\210)\307\310!)\207\311\312!\207" [item count-lines 0 todo-item-string todo-remove-item todo-backward-item "\n" message "" error "No TODO list entry to raise"] 3 (#$ . 12575) nil])
(defalias 'todo-cmd-rais 'todo-raise-item)
#@34 Lower priority of current entry.
(defalias 'todo-lower-item #[nil "\301`d\"\302V\203 \303 \304 \210\305 \210\212\306\261\210)\307\310!)\207\311\312!\207" [item count-lines 1 todo-item-string todo-remove-item todo-forward-item "\n" message "" error "No TODO list entry to lower"] 3 (#$ . 12929) nil])
(defalias 'todo-cmd-lowr 'todo-lower-item)
#@76 File the current TODO list entry away, annotated with an optional COMMENT.
(defalias 'todo-file-item #[(&optional comment) "\306ed\"\307V\204
\310\311!\210\n\2036 \nG\307V\2036 \312 b\210\212\313 \210\314\315 !!)\203/ \316\2020 \317\320\n\321\261\210\312 b\210\322\f
8\323\261\210\324 \210` \314\315 !!\203X \325\326 !\210\202\\ \326 c\210\327 \312\330! #\210 \312\330!|\210)\331 \210\332\333!)\207" [todo-time-string-format time-stamp-format comment todo-prefix todo-category-number todo-categories 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 "" temp-point todo-file-done] 4 (#$ . 13282) "sComment: "])
#@308 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.
(defalias 'todo-top-priorities #[(&optional nof-priorities category-pr-page interactive) "\204 <\203 @\n \203 \306\202 \307\f\203+
\310\311!\312 \310\260\202.
\310P\260\313\211 !\212\314 \210\214r~\210\315!ed#\210!q\210eb\210\316\311\"!\313\317#\203f \320\321!\210`\322 |\210\316\311#P!\313\317#\203\260 \322 T \316 \313\317#\210\323\224 \324 !\210 }\210eb\210\325!\203\237 b\210\202\243 \326!\210`\211 |\210~\210\202f \327\306!\203\272 \324\307!\210eb\210+$\203\310 \330!!\210\331\332!\"-\207" [nof-priorities todo-show-priorities todo-tmp-buffer-name category-pr-page todo-remove-separator todo-category-end "\f" "" "\n" regexp-quote " " nil todo-show copy-to-buffer re-search-forward t beginning-of-line 1 line-end-position 0 replace-match zerop todo-forward-item looking-at display-buffer message "Type C-x 1 to remove %s window. M-C-v to scroll the help." todo-prefix todo-category-sep end beg cat-end todo-category-break todo-print-buffer-name todo-header todo-category-beg interactive] 9 (#$ . 14097) "P\ni\nP"])
#@165 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'.
(defalias 'todo-save-top-priorities #[(&optional nof-priorities) "\304 \305\216\212\214\306 !\210\nq\210\307 !\210\310 ,\207" [#1=#:wconfig nof-priorities todo-tmp-buffer-name todo-file-top current-window-configuration ((set-window-configuration #1#)) todo-top-priorities write-file kill-this-buffer] 2 (#$ . 15480) "P"])
#@212 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'.
(defalias 'todo-print #[(&optional category-pr-page) "\305 \306\216\212\214\307 \n\"\210 q\210\f \203 \310 \210\311\312!,\207" [#1=#:wconfig todo-print-priorities category-pr-page todo-tmp-buffer-name todo-print-function current-window-configuration ((set-window-configuration #1#)) todo-top-priorities kill-this-buffer message "Todo printing done."] 3 (#$ . 15974) "P"])
#@52 Jump to a category. Default is previous category.
(defalias 'todo-jump-to-category #[nil "\303 \211\304\230\203
\n8\n\235\203 \nG\n\235GZ\202 \305!\306 )\207" [category todo-category-number todo-categories todo-completing-read "" todo-add-category todo-show] 4 (#$ . 16565) nil])
#@44 Return current line in buffer as a string.
(defalias 'todo-line-string #[nil "\300 \301 {\207" [line-beginning-position line-end-position] 2 (#$ . 16862)])
#@55 Return the start of this TODO list entry as a string.
(defalias 'todo-item-string-start #[nil "\301 \211G\302V\203 \303\304O\305P)\207" [item todo-item-string 60 0 56 "..."] 4 (#$ . 17024)])
#@57 Go to start of current TODO list item and return point.
(defalias 'todo-item-start #[nil "\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 (#$ . 17226)])
#@109 Return point at end of current TODO list item.
If INCLUDE-SEP is non-nil, return point after the separator.
(defalias 'todo-item-end #[(&optional include-sep) "\212\302\210\303\304\305!P\302\306#\203 \307\224b\210 \204 \310\302x\210`)\207" [todo-prefix include-sep nil search-forward-regexp "^" regexp-quote goto-end 0 "\n"] 4 (#$ . 17490)])
#@46 Delete the current entry from the TODO list.
(defalias 'todo-remove-item #[nil "\300 \301\302!|\207" [todo-item-start todo-item-end include-sep] 3 (#$ . 17842)])
#@45 Return current TODO list entry as a string.
(defalias 'todo-item-string #[nil "\300 \301 {\207" [todo-item-start todo-item-end] 2 (#$ . 18010)])
#@42 Return the number of lines STRING spans.
(defalias 'todo-string-count-lines #[(string) "\301\302\"G\207" [string split-string "\n"] 3 (#$ . 18161)])
#@47 Return non-nil if STRING spans several lines.
(defalias 'todo-string-multiline-p #[(string) "\301!\302V\207" [string todo-string-count-lines 1] 2 (#$ . 18317)])
#@64 Return a category name, with completion, for use in Todo mode.
(defalias 'todo-completing-read #[nil "\306!\300\nTB\n8 \307\310\f\311Q\312\211\211 \f&
,\207" [todo-categories categories todo-category-number history default category copy-sequence completing-read "Category [" "]: " nil] 8 (#$ . 18485)])
#@11 Todo Menu
(defvar todo-menu nil (#$ . 18803))
(byte-code "\301\302\303\304$\210\305\306N\204 \307\305\306\310\311!#\210\312\300!\204! \307\300\313\314#\210\301\207" [todo-mode-map easy-menu-do-define todo-menu "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]) todo-mode-hook variable-documentation put purecopy "Hook run when 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 definition-name todo-mode] 5)
(defvar todo-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [todo-mode-map variable-documentation put purecopy "Keymap for `todo-mode'." boundp todo-mode-syntax-table definition-name todo-mode] 5)
(defvar todo-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [todo-mode-syntax-table variable-documentation put purecopy "Syntax table for `todo-mode'." todo-mode-abbrev-table definition-name todo-mode] 5)
(defvar todo-mode-abbrev-table (progn (define-abbrev-table 'todo-mode-abbrev-table nil) todo-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [todo-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `todo-mode'." todo-mode derived-mode-parent nil] 5)
#@138 Major mode for editing TODO lists.
This mode runs the hook `todo-mode-hook', as the final step
during initialization.
\{todo-mode-map}
(defalias 'todo-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\315!\210)\316\317!\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 easy-menu-add run-mode-hooks todo-mode-hook local-abbrev-table todo-menu] 2 (#$ . 20843) nil])
#@61 Make a diary entry appear only in the current date's diary.
(defalias 'todo-cp #[nil "\302 \232\205 \207" [date entry calendar-current-date] 2 (#$ . 21391)])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [todo-edit-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar todo-edit-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [todo-edit-mode-map variable-documentation put purecopy "Keymap for `todo-edit-mode'." boundp todo-edit-mode-syntax-table definition-name todo-edit-mode] 5)
(defvar todo-edit-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [todo-edit-mode-syntax-table variable-documentation put purecopy "Syntax table for `todo-edit-mode'." todo-edit-mode-abbrev-table definition-name todo-edit-mode] 5)
(defvar todo-edit-mode-abbrev-table (progn (define-abbrev-table 'todo-edit-mode-abbrev-table nil) todo-edit-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [todo-edit-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `todo-edit-mode'." todo-edit-mode derived-mode-parent text-mode] 5)
#@229 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 step
during initialization.
(defalias 'todo-edit-mode #[nil "\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 \2036
\321 =\203< \322\f\323 \"\210)\324\325\"\204V =\204V \326\325 C#\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 parent 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 todo-edit-mode-abbrev-table local-abbrev-table] 6 (#$ . 22902) nil])
#@17 Show TODO list.
(defalias 'todo-show #[nil "\305!\204 \306\307!!\310 !\311!\n\232*\203 \312!\210\202# \313 \210 \204H \f\2043 \314\315\"\210\202H eb\210\316\317\320\321#\203B \322\323!\210\324\303!\210\f\325 \210\326 \207" [todo-file-do buf bufname 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 (#$ . 23882) nil])
#@46 Set up things to work properly in TODO mode.
(defalias 'todo-initial-setup #[nil "\301!\210\302 \210\303 \210\304\305!\207" [todo-file-do find-file erase-buffer todo-mode todo-add-category "Todo"] 2 (#$ . 24493)])
(provide 'todo-mode)