Index: emacs/lisp/jka-compr.el
diff -c emacs/lisp/jka-compr.el:1.84 emacs/lisp/jka-compr.el:1.85
*** emacs/lisp/jka-compr.el:1.84 Fri May 6 11:22:21 2005
--- emacs/lisp/jka-compr.el Sat Jun 25 14:14:21 2005
***************
*** 474,479 ****
--- 474,482 ----
(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,486 ****
--- 484,496 ----
(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
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
