diff options
| author | Oliver Seidel <os10000@seidel-space.de> | 1998-01-12 11:43:22 +0000 |
|---|---|---|
| committer | Oliver Seidel <os10000@seidel-space.de> | 1998-01-12 11:43:22 +0000 |
| commit | 6fe3681b0046064995937b822da04855eaf17c8c (patch) | |
| tree | 71251ce3eb0e17dd5f472e7e88bb9080384f2077 /lisp/calendar/todo-mode.el | |
| parent | 7792090e89e1732e040ab4d79c48e8b19e5569a6 (diff) | |
| download | emacs-6fe3681b0046064995937b822da04855eaf17c8c.tar.gz | |
Added patch from Don Hejna <djhejna@oasis.ambit.com>.
Diffstat (limited to 'lisp/calendar/todo-mode.el')
| -rw-r--r-- | lisp/calendar/todo-mode.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 7cd68bb9e7f..fc167b45b25 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -4,7 +4,7 @@ ;; Author: Oliver.Seidel@cl.cam.ac.uk (was valid on Aug 2, 1997) ;; Created: 2 Aug 1997 -;; Version: $Id: todo-mode.el,v 1.32 1997/12/03 12:18:20 os10000 Exp os10000 $ +;; Version: $Id: todo-mode.el,v 1.33 1997/12/04 17:45:22 os10000 Exp os10000 $ ;; Keywords: Categorised TODO list editor, todo-mode ;; This file is part of GNU Emacs. @@ -96,7 +96,7 @@ ;; ;; Which version of todo-mode.el does this documentation refer to? ;; -;; $Id: todo-mode.el,v 1.32 1997/12/03 12:18:20 os10000 Exp os10000 $ +;; $Id: todo-mode.el,v 1.33 1997/12/04 17:45:22 os10000 Exp os10000 $ ;; ;; Pre-Requisites ;; @@ -267,6 +267,9 @@ ;;; Change Log: ;; $Log: todo-mode.el,v $ +;; Revision 1.33 1997/12/04 17:45:22 os10000 +;; Another patch by Michael Cook to fix annotation. +;; ;; Revision 1.32 1997/12/03 12:18:20 os10000 ;; Added category patch by Michael R Cook <mcook@cognex.com>. ;; @@ -655,7 +658,8 @@ Use `todo-categories' instead.") "Make TODO mode display the current category correctly." (let ((name (nth todo-category-number todo-categories))) (setq mode-line-buffer-identification - (concat "Category: " name)) +;; (concat "Category: " name)) + (concat "Category: " (format "%18s" name))) (widen) (goto-char (point-min)) (search-forward-regexp |