diff options
| author | Oliver Seidel <os10000@seidel-space.de> | 1997-08-06 09:14:25 +0000 |
|---|---|---|
| committer | Oliver Seidel <os10000@seidel-space.de> | 1997-08-06 09:14:25 +0000 |
| commit | 49c48a1b9db7d5e3192360f6945e922bb4001c2b (patch) | |
| tree | c4dfa2a142d5a05d590ebd9a8364841d993306fe /lisp/calendar/todo-mode.el | |
| parent | 03944ca7d7da34eccdfd70680cee0d66d30c355b (diff) | |
| download | emacs-49c48a1b9db7d5e3192360f6945e922bb4001c2b.tar.gz | |
Applied patch from Istvan Marko <istvan@cmdmail.amd.com>
to make menus work anywhere.
Diffstat (limited to 'lisp/calendar/todo-mode.el')
| -rw-r--r-- | lisp/calendar/todo-mode.el | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index bae7b6a10fd..1d787fe8cf3 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -1,6 +1,6 @@ ;; todomode.el -- major mode for editing TODO list files -;; $Id: todomode.el,v 1.9 1997/08/06 08:12:03 os10000 Exp os10000 $ +;; $Id: todomode.el,v 1.10 1997/08/06 08:56:03 os10000 Exp os10000 $ ;; --------------------------------------------------------------------------- @@ -178,6 +178,10 @@ ;; ;; $Log: todomode.el,v $ +;; Revision 1.10 1997/08/06 08:56:03 os10000 +;; Acted upon suggestion from Shane Holder <holder@rsn.hp.com>: +;; Cancelling the editing of an entry will not delete it any more. +;; ;; Revision 1.9 1997/08/06 08:12:03 os10000 ;; Improved documentation. Broke some lines to comply with ;; Richard Stallman's email to please keep in sync with the @@ -224,7 +228,12 @@ ;; --------------------------------------------------------------------------- +;; Get some outside help ... + (require 'time-stamp) +(require 'easymenu) + +;; --------------------------------------------------------------------------- (defvar todo-mode-map nil "TODO mode keymap. See `todo-mode'") (if todo-mode-map @@ -488,8 +497,8 @@ ;; --------------------------------------------------------------------------- -(defvar todo-mode-popup-menu - (purecopy '("Todo Mode Menu" +(easy-menu-define todo-menu todo-mode-map "Todo Menu" + '("Todo" ["Forward item" todo-cmd-forw t] ["Backward item" todo-cmd-back t] "---" @@ -507,9 +516,7 @@ ["Save" todo-cmd-save t] "---" ["Quit" todo-cmd-done t] - ) - ) - ) + )) (defvar todo-cats nil "TODO categories.") (defvar todo-category-number 0 "TODO category number.") @@ -519,9 +526,8 @@ (setq major-mode 'todo-mode) (setq mode-name "TODO") (use-local-map todo-mode-map) - (setq mode-popup-menu todo-mode-popup-menu) - (run-hooks 'todo-mode-hook) - ) + (easy-menu-add todo-menu) + (run-hooks 'todo-mode-hook)) (defun todo-show () "Show TODO list." (interactive) |