Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eb4ca295
Commit
eb4ca295
authored
Jul 17, 1994
by
Richard M. Stallman
Browse files
(forms-delete-record): Handle deletion of last line
when it has no terminating newline.
parent
46bb7c2b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
lisp/forms.el
lisp/forms.el
+5
-5
No files found.
lisp/forms.el
View file @
eb4ca295
...
...
@@ -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/0
5/22 2
2:07:
37
rms Exp rms $"
)
$Id: forms.el,v 2.
7
1994/0
6/13 1
2: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-excursio
n
(
beginning-of-line
)
(
point
))
(
save-excursion
(
end
-of-line
)
(
1+
(
point
))))
)
(
delete-region
(
prog
n
(
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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment