mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

* net/ange-ftp.el (ange-ftp-hook-function): Catch also errors in

Browse source 
process-filter.
This commit is contained in:
Michael Albinus 2007-08-06 06:57:31 +00:00
parent 8f06e122c5
commit 5bc880a47d
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-08-06 Michael Albinus <michael.albinus@gmx.de>
* net/ange-ftp.el (ange-ftp-hook-function): Catch also errors in
process-filter.
2007-08-06 Martin Rudalics <rudalics@gmx.at>
* help.el (resize-temp-buffer-window): Use window-full-width-p

7
lisp/net/ange-ftp.el
View file

@ -4274,7 +4274,12 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
;;;###autoload
(defun ange-ftp-hook-function (operation &rest args)
(let ((fn (get operation 'ange-ftp)))
(if fn (save-match-data (apply fn args))
(if fn
;; Catch also errors in process-filter.
(condition-case err
(let ((debug-on-error t))
(save-match-data (apply fn args)))
(error (error (error-message-string err))))
(ange-ftp-run-real-handler operation args))))
;; The following code is commented out because Tramp now deals with