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
7bbae30c
Commit
7bbae30c
authored
Jun 25, 2005
by
Richard M. Stallman
Browse files
(jka-compr-insert-file-contents):
Special handling if cannot find the uncompression program.
parent
1265f177
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
0 deletions
+10
-0
lisp/jka-compr.el
lisp/jka-compr.el
+10
-0
No files found.
lisp/jka-compr.el
View file @
7bbae30c
...
...
@@ -474,6 +474,9 @@ There should be no more than seven characters after the final `/'."
(
delete-region
(
point
)
(
point-max
)))
(
goto-char
start
))
(
error
;; If the file we wanted to uncompress does not exist,
;; handle that according to VISIT as `insert-file-contents'
;; would, maybe signaling the same error it normally would.
(
if
(
and
(
eq
(
car
error-code
)
'file-error
)
(
eq
(
nth
3
error-code
)
local-file
))
(
if
visit
...
...
@@ -481,6 +484,13 @@ There should be no more than seven characters after the final `/'."
(
signal
'file-error
(
cons
"Opening input file"
(
nthcdr
2
error-code
))))
;; If the uncompression program can't be found,
;; signal that as a non-file error
;; so that find-file-noselect-1 won't handle it.
(
if
(
and
(
eq
(
car
error-code
)
'file-error
)
(
equal
(
cadr
error-code
)
"Searching for program"
))
(
error
"Uncompression program `%s' not found"
(
nth
3
error-code
)))
(
signal
(
car
error-code
)
(
cdr
error-code
))))))
(
and
...
...
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