[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/jka-compr.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/jka-compr.el |
Date: |
Sat, 25 Jun 2005 10:14:22 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/jka-compr.el,
Richard M . Stallman <=