diff options
| author | Oliver Seidel | 1999-03-18 08:53:48 +0000 |
|---|---|---|
| committer | Oliver Seidel | 1999-03-18 08:53:48 +0000 |
| commit | 6c7331ff704b870aa5c078017b5250a03e89204a (patch) | |
| tree | d893ef95001adfc34933f5920632610798031a3f | |
| parent | 29a2adb0fb0b90fe3ead78a8201c28f63754fa92 (diff) | |
| download | emacs-6c7331ff704b870aa5c078017b5250a03e89204a.tar.gz emacs-6c7331ff704b870aa5c078017b5250a03e89204a.zip | |
Marc Zonzon <Marc.Zonzon@univ-rennes1.fr> on 18.Mar.99 writes that I
should remove the single space between ### and autoload. And now I
have.
| -rw-r--r-- | lisp/calendar/todo-mode.el | 39 |
1 files changed, 30 insertions, 9 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 7617ed38679..65eb5731ae6 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | 4 | ||
| 5 | ;; Author: Oliver.Seidel@cl.cam.ac.uk (was valid on Aug 2, 1997) | 5 | ;; Author: Oliver.Seidel@cl.cam.ac.uk (was valid on Aug 2, 1997) |
| 6 | ;; Created: 2 Aug 1997 | 6 | ;; Created: 2 Aug 1997 |
| 7 | ;; Version: $Id: todo-mode.el,v 1.35 1998/09/29 18:20:36 os10000 Exp os10000 $ | 7 | ;; Version: $Id: todo-mode.el,v 1.36 1999/03/17 11:10:29 os10000 Exp os10000 $ |
| 8 | ;; Keywords: Categorised TODO list editor, todo-mode | 8 | ;; Keywords: Categorised TODO list editor, todo-mode |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -117,7 +117,7 @@ | |||
| 117 | ;; | 117 | ;; |
| 118 | ;; Which version of todo-mode.el does this documentation refer to? | 118 | ;; Which version of todo-mode.el does this documentation refer to? |
| 119 | ;; | 119 | ;; |
| 120 | ;; $Id: todo-mode.el,v 1.35 1998/09/29 18:20:36 os10000 Exp os10000 $ | 120 | ;; $Id: todo-mode.el,v 1.36 1999/03/17 11:10:29 os10000 Exp os10000 $ |
| 121 | ;; | 121 | ;; |
| 122 | ;; Pre-Requisites | 122 | ;; Pre-Requisites |
| 123 | ;; | 123 | ;; |
| @@ -292,6 +292,27 @@ | |||
| 292 | ;;; Change Log: | 292 | ;;; Change Log: |
| 293 | 293 | ||
| 294 | ;; $Log: todo-mode.el,v $ | 294 | ;; $Log: todo-mode.el,v $ |
| 295 | ;; Revision 1.36 1999/03/17 11:10:29 os10000 | ||
| 296 | ;; Alastair Burt <alastair.burt@dfki.de> sent in a patch on 17.Mar.98 | ||
| 297 | ;; which removes duplicates from the category list and saves the buffer | ||
| 298 | ;; after category addition. Thanks. | ||
| 299 | ;; | ||
| 300 | ;; Uwe Brauer <oub@sunma4.mat.ucm.es> sent in a request on 3.Apr.98 to | ||
| 301 | ;; implement a "move-between-categories" function. I haven't done that | ||
| 302 | ;; yet. Thanks. | ||
| 303 | ;; | ||
| 304 | ;; "Edward S. Hirgelt" <ehirgelt@directinterfaces.com> fixed a problem | ||
| 305 | ;; with multi-line editing 29.Oct.98. Thanks. | ||
| 306 | ;; | ||
| 307 | ;; tom <tom@pixelpark.com> sent in a replacement for the outmoded | ||
| 308 | ;; time-format that I had been using on 13.Nov.98. Thanks. | ||
| 309 | ;; | ||
| 310 | ;; Jerome Thebert <thebertj@felixstowe.rms.slb.com> sent in a binding to | ||
| 311 | ;; show/hide continuation lines using the space bar on 11.Jan.99. | ||
| 312 | ;; Instead of leaving it as a hook, I integrated it. Thanks. | ||
| 313 | ;; | ||
| 314 | ;; Sorry again to everybody. I sat on your patches for a year. | ||
| 315 | ;; | ||
| 295 | ;; Revision 1.35 1998/09/29 18:20:36 os10000 | 316 | ;; Revision 1.35 1998/09/29 18:20:36 os10000 |
| 296 | ;; Alex Schroeder startup description added. | 317 | ;; Alex Schroeder startup description added. |
| 297 | ;; | 318 | ;; |
| @@ -786,7 +807,7 @@ Use `todo-categories' instead.") | |||
| 786 | (todo-edit-mode) | 807 | (todo-edit-mode) |
| 787 | (narrow-to-region (todo-item-start) (todo-item-end)))) | 808 | (narrow-to-region (todo-item-start) (todo-item-end)))) |
| 788 | 809 | ||
| 789 | ;;;### autoload | 810 | ;;;###autoload |
| 790 | (defun todo-add-category (cat) | 811 | (defun todo-add-category (cat) |
| 791 | "Add new category CAT to the TODO list." | 812 | "Add new category CAT to the TODO list." |
| 792 | (interactive "sCategory: ") | 813 | (interactive "sCategory: ") |
| @@ -811,7 +832,7 @@ Use `todo-categories' instead.") | |||
| 811 | (save-buffer)) | 832 | (save-buffer)) |
| 812 | 0) | 833 | 0) |
| 813 | 834 | ||
| 814 | ;;;### autoload | 835 | ;;;###autoload |
| 815 | (defun todo-add-item-non-interactively (new-item category) | 836 | (defun todo-add-item-non-interactively (new-item category) |
| 816 | "Insert NEW-ITEM in TODO list as a new entry in CATEGORY." | 837 | "Insert NEW-ITEM in TODO list as a new entry in CATEGORY." |
| 817 | (save-excursion | 838 | (save-excursion |
| @@ -847,7 +868,7 @@ Use `todo-categories' instead.") | |||
| 847 | (todo-save) | 868 | (todo-save) |
| 848 | (message ""))) | 869 | (message ""))) |
| 849 | 870 | ||
| 850 | ;;;### autoload | 871 | ;;;###autoload |
| 851 | (defun todo-insert-item (ARG) | 872 | (defun todo-insert-item (ARG) |
| 852 | "Insert new TODO list entry. | 873 | "Insert new TODO list entry. |
| 853 | With a prefix argument solicit the category, otherwise use the current | 874 | With a prefix argument solicit the category, otherwise use the current |
| @@ -874,7 +895,7 @@ category." | |||
| 874 | 895 | ||
| 875 | (defalias 'todo-cmd-inst 'todo-insert-item) | 896 | (defalias 'todo-cmd-inst 'todo-insert-item) |
| 876 | 897 | ||
| 877 | ;;;### autoload | 898 | ;;;###autoload |
| 878 | (defun todo-insert-item-here () | 899 | (defun todo-insert-item-here () |
| 879 | "Insert new TODO list entry under the cursor." | 900 | "Insert new TODO list entry under the cursor." |
| 880 | (interactive "") | 901 | (interactive "") |
| @@ -1202,7 +1223,7 @@ If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." | |||
| 1202 | )) | 1223 | )) |
| 1203 | 1224 | ||
| 1204 | ;; As calendar reads .todo-do before todo-mode is loaded. | 1225 | ;; As calendar reads .todo-do before todo-mode is loaded. |
| 1205 | ;;;### autoload | 1226 | ;;;###autoload |
| 1206 | (defun todo-mode () "Major mode for editing TODO lists.\n\n\\{todo-mode-map}" | 1227 | (defun todo-mode () "Major mode for editing TODO lists.\n\n\\{todo-mode-map}" |
| 1207 | (interactive) | 1228 | (interactive) |
| 1208 | (setq major-mode 'todo-mode) | 1229 | (setq major-mode 'todo-mode) |
| @@ -1218,7 +1239,7 @@ If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." | |||
| 1218 | (run-hooks 'todo-mode-hook)) | 1239 | (run-hooks 'todo-mode-hook)) |
| 1219 | 1240 | ||
| 1220 | ;; Read about this function in the setup instructions above! | 1241 | ;; Read about this function in the setup instructions above! |
| 1221 | ;;;### autoload | 1242 | ;;;###autoload |
| 1222 | (defun todo-cp () | 1243 | (defun todo-cp () |
| 1223 | "Make a diary entry appear only in the current date's diary" | 1244 | "Make a diary entry appear only in the current date's diary" |
| 1224 | (if (equal (calendar-current-date) date) | 1245 | (if (equal (calendar-current-date) date) |
| @@ -1232,7 +1253,7 @@ If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." | |||
| 1232 | (setq mode-name "TODO Edit") | 1253 | (setq mode-name "TODO Edit") |
| 1233 | (run-hooks 'todo-edit-mode-hook)) | 1254 | (run-hooks 'todo-edit-mode-hook)) |
| 1234 | 1255 | ||
| 1235 | ;;;### autoload | 1256 | ;;;###autoload |
| 1236 | (defun todo-show () "Show TODO list." | 1257 | (defun todo-show () "Show TODO list." |
| 1237 | (interactive) | 1258 | (interactive) |
| 1238 | (if (file-exists-p todo-file-do) | 1259 | (if (file-exists-p todo-file-do) |