Commit 11c05cd6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(forms--update): Undo change made mistakenly.

parent 7fb63acd
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
;;; Copyright (C) 1991, 1993 Free Software Foundation, Inc. ;;; Copyright (C) 1991, 1993 Free Software Foundation, Inc.
;; Author: Johan Vromans <jv@nl.net> ;; Author: Johan Vromans <jv@nl.net>
;; Version: $Revision: 2.7 $ ;; Version: $Revision: 2.9 $
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -279,10 +279,10 @@ ...@@ -279,10 +279,10 @@
(provide 'forms) ;;; official (provide 'forms) ;;; official
(provide 'forms-mode) ;;; for compatibility (provide 'forms-mode) ;;; for compatibility
(defconst forms-version (substring "$Revision: 2.7 $" 11 -2) (defconst forms-version (substring "$Revision: 2.9 $" 11 -2)
"The version number of forms-mode (as string). The complete RCS id is: "The version number of forms-mode (as string). The complete RCS id is:
$Id: forms.el,v 2.7 1994/07/25 20:38:23 jv Exp $") $Id: forms.el,v 2.9 1994/07/26 19:47:39 rms Exp rms $")
(defvar forms-mode-hooks nil (defvar forms-mode-hooks nil
"Hook functions to be run upon entering Forms mode.") "Hook functions to be run upon entering Forms mode.")
...@@ -1462,8 +1462,8 @@ As a side effect: sets `forms--the-record-list'." ...@@ -1462,8 +1462,8 @@ As a side effect: sets `forms--the-record-list'."
(set-buffer forms--file-buffer) (set-buffer forms--file-buffer)
;; Use delete-region instead of kill-region, to avoid ;; Use delete-region instead of kill-region, to avoid
;; adding junk to the kill-ring. ;; adding junk to the kill-ring.
(delete-region (progn (beginning-of-line) (point)) (delete-region (save-excursion (beginning-of-line) (point))
(progn (beginning-of-line 2) (point)))) (save-excursion (end-of-line) (point)))
(insert the-record) (insert the-record)
(beginning-of-line)))))) (beginning-of-line))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment