6

在下面的定义...

(defun re-backward-match-group (rexp &optional n)
  "Grab the previous matches of regexp and return the contents of
  the n match group (first group match if no n arg is specified)"
  (save-excursion
  (unless n
    (setq n 1))
  (when (numberp n)
    (when (re-search-backward-lax-whitespace rexp)
      (when  (= (+ 2 (* n 2)) (length (match-data)))
        (match-string-no-properties n))))))

如果没有找到匹配项,则抛出错误re-search-backward-lax-whitespace

我将如何捕获该错误并返回 nil 或""

4

1 回答 1

3

re-search-backward-lax-whitespace有一个可选noerror参数。

(re-search-backward-lax-whitespace rexp nil t)

不会发出错误信号。

对于更一般的错误处理,您可以使用ignore-errorscondition-case。有关后者的信息,请参阅

Emacs Lisp 中的错误处理

于 2013-08-31T01:53:19.707 回答