From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Jul 1994 23:56:09 +0000 (+0000)
Subject: (forms-delete-record): Handle deletion of last line
X-Git-Tag: emacs-19.34~7581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb4ca295101e27b8c66d415342433226055a202b;p=emacs.git

(forms-delete-record): Handle deletion of last line
when it has no terminating newline.
---

diff --git a/lisp/forms.el b/lisp/forms.el
index 9418f2f2341..4f5efe45498 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -2,7 +2,7 @@
 ;;; Copyright (C) 1991, 1993 Free Software Foundation, Inc.
 
 ;; Author: Johan Vromans <jv@nl.net>
-;; Version: $Revision: 2.6 $
+;; Version: $Revision: 2.7 $
 
 ;; This file is part of GNU Emacs.
 
@@ -266,10 +266,10 @@
 (provide 'forms)			;;; official
 (provide 'forms-mode)			;;; for compatibility
 
-(defconst forms-version (substring "$Revision: 2.6 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.7 $" 11 -2)
   "The version number of forms-mode (as string).  The complete RCS id is:
 
-  $Id: forms.el,v 2.6 1994/05/22 22:07:37 rms Exp rms $")
+  $Id: forms.el,v 2.7 1994/06/13 12:07:44 rms Exp rms $")
 
 (defvar forms-mode-hooks nil
   "Hook functions to be run upon entering Forms mode.")
@@ -1572,8 +1572,8 @@ it is called to fill (some of) the fields with default values."
 	  (goto-line ln)
 	  ;; Use delete-region instead of kill-region, to avoid
 	  ;; adding junk to the kill-ring.
-	  (delete-region (save-excursion (beginning-of-line) (point))
-			 (save-excursion (end-of-line) (1+ (point)))))
+	  (delete-region (progn (beginning-of-line) (point))
+			 (progn (beginning-of-line 2) (point))))
 	(setq forms--total-records (1- forms--total-records))
 	(if (> forms--current-record forms--total-records)
 	    (setq forms--current-record forms--total-records))