diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-07-05 13:51:17 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-07-05 13:51:17 +0000 |
| commit | bf2fcd6794f5c8e137ef625b6075a2e572d6ad51 (patch) | |
| tree | e8ec3b2893ea27f09f928da51ef0e372ad1b2d4e /lisp/calendar/todo-mode.el | |
| parent | 5f72adc0883ee37384a53aba28af86da06a7f831 (diff) | |
| download | emacs-bf2fcd6794f5c8e137ef625b6075a2e572d6ad51.tar.gz | |
(todo-top-priorities): Use delete-region
instead of kill-line.
Diffstat (limited to 'lisp/calendar/todo-mode.el')
| -rw-r--r-- | lisp/calendar/todo-mode.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 92acea3c443..397cc4f5156 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -1,11 +1,11 @@ ;; todo-mode.el -- Major mode for editing TODO list files -;; Copyright (C) 1997, 1999 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc. ;; Author: Oliver Seidel <os10000@seidel-space.de> ;; [Not clear the above works, July 2000] ;; Created: 2 Aug 1997 -;; Version: $Id: todo-mode.el,v 1.44 2000/11/22 22:51:33 fx Exp $ +;; Version: $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $ ;; Keywords: calendar, todo ;; This file is part of GNU Emacs. @@ -97,7 +97,7 @@ ;; ;; Which version of todo-mode.el does this documentation refer to? ;; -;; $Id: todo-mode.el,v 1.44 2000/11/22 22:51:33 fx Exp $ +;; $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $ ;; ;; Pre-Requisites ;; @@ -747,10 +747,9 @@ between each category." (copy-to-buffer todo-print-buffer-name (point-min) (point-max)) (set-buffer todo-print-buffer-name) (goto-char (point-min)) - (if (re-search-forward (regexp-quote todo-header) nil t) - (progn - (beginning-of-line 1) - (kill-line))) ;Remove mode line + (when (re-search-forward (regexp-quote todo-header) nil t) + (beginning-of-line 1) + (delete-region (point) (line-end-position))) (while (re-search-forward ;Find category start (regexp-quote (concat todo-prefix todo-category-beg)) nil t) |