# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 994341077 0
# Node ID 5bcd50b6b8260f08dbd84019b4d3e11f30e34264
# Parent  a5c39e2852972e2d8e7cf4d43dcb810b59aa537a
(todo-top-priorities): Use delete-region
instead of kill-line.

diff -r a5c39e285297 -r 5bcd50b6b826 lisp/calendar/todo-mode.el
--- a/lisp/calendar/todo-mode.el	Thu Jul 05 13:38:38 2001 +0000
+++ b/lisp/calendar/todo-mode.el	Thu Jul 05 13:51:17 2001 +0000
@@ -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 @@
         (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)