emacs - elisp 中捕获错误情况的最佳方法是什么

Question

我正在尝试增加 etags-select 功能，因此如果 find-tag 点失败，它将回退到正常的 find-tag。我试过的代码是:

(defun my-etags-find-tag ()
  "Find at point or fall back"
  (interactive)
  (unless (etags-select-find-tag-at-point)
    (etags-select-find-tag)))

(global-set-key (kbd "C-f") 'my-etags-find-tag)

但是，当点不在有效标签上时，这会失败。相反，我收到了 etags-select-find-tag-at-point 抛出的错误:

etags-select-find-tag-at-point: Wrong type argument: char-or-string-p, nil

在这种情况下，我只需要重复 etags-select-find-tag-at-point 完成的测试:

(defun my-etags-find-tag ()
  "Find at point or fall back"
  (interactive)
  (if (find-tag-default)
      (etags-select-find-tag-at-point)
    (etags-select-find-tag)))

但这似乎有点多余。是否可以在 elisp 中捕获异常并进行交替处理？

Answer 1

试试 ignore-errors ;例如，

(unless (ignore-errors (etags-select-find-tag-at-point))
  (etags-select-find-tag))

通常， (ignore-errors body)返回任何内容 body返回；当有错误时，它返回 nil .
还看 condition-case用于更一般的条件处理。
如果您安装了 Elisp 信息手册，您可以从
C-HS ignore-errors .
编辑:
我没有考虑函数在成功时返回 nil 的可能性；所以我们可能需要

(unless (ignore-errors (or (etags-select-find-tag-at-point) t))
  (etags-select-find-tag))