Emacs Lisp'de bir hatayı geri alma

Bir işlevi çağırmak ve yalnızca işlev başarısız olduğunda bir temizleme gerçekleştirmek ve sonra hatayı yeniden başlatmak gerekir. İşte sözde kod:

(condition-case err
    (call-function)
  (error
   (cleanup)
   ;; how do I raise `err`?
   ))

BTW, alternatif bir seçenek şöyle olabilir:

(let ((error t))
  (unwind-protect
      (prog1 (call-function)
        (setq error nil))
    (when error (cleanup))))

Avantajı, hatayı yakalamaktan ve yeniden atmaktan kaçınmanızdır; bu, örneğin hata ayıklayıcının size başka bir kişinin hatasını tekrar atmak yerine doğru geri izini (hatanın gerçek kaynağına karşılık gelen olanı) göstereceği anlamına gelir. ).

Diğer bir fark ise, cleanupsadece hata durumunda değil, kod bir C-gveya çağrısıyla kesildiğinde de çağrılacaktır throw.

Şunu arıyorsunuz signal:

(condition-case err
    (call-function)
  (error
   (cleanup)
   (signal (car err) (cdr err)))) ; reraise `err'