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
31b55e80
Commit
31b55e80
authored
May 28, 2003
by
Richard M. Stallman
Browse files
(jka-compr-insert-file-contents):
When REPLACE, delete the proper range of text.
parent
201bc1bd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
4 deletions
+1
-4
lisp/jka-compr.el
lisp/jka-compr.el
+1
-4
No files found.
lisp/jka-compr.el
View file @
31b55e80
...
@@ -573,10 +573,7 @@ There should be no more than seven characters after the final `/'."
...
@@ -573,10 +573,7 @@ There should be no more than seven characters after the final `/'."
uncompress-args
)))
uncompress-args
)))
(
setq
size
(
-
(
point
)
start
))
(
setq
size
(
-
(
point
)
start
))
(
if
replace
(
if
replace
(
let*
((
del-beg
(
point
))
(
delete-region
(
point
)
(
point-max
)))
(
del-end
(
+
del-beg
size
)))
(
delete-region
del-beg
(
min
del-end
(
point-max
)))))
(
goto-char
start
))
(
goto-char
start
))
(
error
(
error
(
if
(
and
(
eq
(
car
error-code
)
'file-error
)
(
if
(
and
(
eq
(
car
error-code
)
'file-error
)
...
...
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