Mercurial > emacs
changeset 19188:56e1d94a7083
Applied patch from Istvan Marko <istvan@cmdmail.amd.com>
to make menus work anywhere.
| author | Oliver Seidel <os10000@seidel-space.de> |
|---|---|
| date | Wed, 06 Aug 1997 09:14:25 +0000 |
| parents | 9d37b4ab16b5 |
| children | 1519cf07cfab |
| files | lisp/calendar/todo-mode.el |
| diffstat | 1 files changed, 15 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/todo-mode.el Wed Aug 06 08:56:03 1997 +0000 +++ b/lisp/calendar/todo-mode.el Wed Aug 06 09:14:25 1997 +0000 @@ -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)