mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

Added Raise/Lower item.

Browse Source
This commit is contained in:
Oliver Seidel 1997-08-04 16:18:45 +00:00
parent 4029fd9a3f
commit 8cdc3b3d9d
1 changed files with 40 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/calendar/todo-mode.el
View File

@ -6,9 +6,12 @@
;; please contact (address) O Seidel, Lessingstr 8, Eschborn, FRG
;; (e-mail ) Oliver.Seidel@cl.cam.ac.uk (2 Aug 1997)
;; $Id: todomode.el,v 1.2 1997/08/03 12:15:28 os10000 Exp os10000 $
;; $Id: todomode.el,v 1.3 1997/08/03 12:47:26 os10000 Exp os10000 $
;;
;; $Log: todomode.el,v $
;; Revision 1.3 1997/08/03 12:47:26 os10000
;; Cleaned up variables, prefix and cursor position.
;;
;; Revision 1.2 1997/08/03 12:15:28 os10000
;; It appears to work.
;;
@ -32,6 +35,8 @@
;; e to edit the current entry
;; i to insert a new entry
;; k to kill the current entry
;; r raise current entryk's priority
;; l lower the current entry's priority
;; f to file the current entry, including a
;; comment and timestamp
;;
@ -75,6 +80,8 @@
(define-key todo-mode-map "e" 'todo-cmd-edit)
(define-key todo-mode-map "i" 'todo-cmd-inst)
(define-key todo-mode-map "k" 'todo-cmd-kill)
(define-key todo-mode-map "r" 'todo-cmd-rais)
(define-key todo-mode-map "l" 'todo-cmd-lowr)
(define-key todo-mode-map "f" 'todo-cmd-file)
(defun todo-cmd-prev () "Select previous entry."
@ -167,6 +174,38 @@
(message "")
)
(defun todo-cmd-rais () "Raise priority of current entry."
(interactive)
(if (> (count-lines (point-min) (point-max)) 0)
(progn
(setq todo-entry (todo-line))
(delete-region todo-begin (+ 1 todo-end))
(forward-line -1)
(insert (concat todo-entry "\n"))
(forward-char -1)
)
(message "No entry to raise.")
)
(beginning-of-line nil)
(message "")
)
(defun todo-cmd-lowr () "Lower priority of current entry."
(interactive)
(if (> (count-lines (point-min) (point-max)) 0)
(progn
(setq todo-entry (todo-line))
(delete-region todo-begin (+ 1 todo-end))
(forward-line 1)
(insert (concat todo-entry "\n"))
(forward-char -1)
)
(message "No entry to raise.")
)
(beginning-of-line nil)
(message "")
)
(defun todo-cmd-file () "File away the current todo list entry."
(interactive)
(if (> (count-lines (point-min) (point-max)) 0)