「間違った型引数」に反応する

Question

私はemacs環境を最適化するために少しlisp/elispを学び始めています。簡単なemacsライブラリを作成し始めました。主なロードブロックは入力された括弧に一致するかどうかを確認します。私はemacsのソース（paren.el.gz）を見ていて、関数show-paren-functionを使用して一致するかどうかを判断できることに気付きました。

(defun it-is-a-paren() 
    (interactive) 
    (insert ")") 
    (if (show-paren-function) 
     (message "%s" "it is a match") 
     (message "%s" "it is not"))) 

だからこれはかなり基本的なもの、そして「それが一致している」それが必要として動作しますが、それがスローになっているとき、「そうではありません」：ここでは

は、私がこれまで持っているものです、そうではなく、代わりに私に "間違った型の引数：integer-or-marker-p、t"を与えます。

別の機能の使用について助言するのに十分な知識を持っている人、またはshow-paren-functionを使用する代わりに、自分自身で作成する必要があります。あるいは、このエラー（例外処理のようなもの）を回避する手段がありますか？

Answer 1

あなたが探している "例外処理"のような構造はcondition-caseです。

(defun its-a-paren() 
    (interactive) 
    (insert ")") 
    (condition-case ex 
     (if (show-paren-function) 
      (message "its a match") 
     (message "its not")) 
    (error (message "its not")))) 

編集：はshow-paren-functionのコードを見ると、posがtで表現(goto-char pos)から来ていると、このエラーはバグであると私には思えます。

とにかく、show-paren-functionはscan-sexpsを使用して、一致する括弧を探します。それはshow-paren-functionで行うの方法から適応、あなたのケースのための単純化された機能は次のようになります。この目的のためにショー括弧機能を使用して

​​

Answer 2

がガレージに撥油性かどうかをチェックし、あなたの車を与えるように（過剰ですあなたが気付いたように、車がより多くのオイルを必要としているかどうかを判断するためにレベルが変更されています）。

私はあなたがまた、標準関数[後方-S式]（http://www.gnu.org/software/emacs/manual/html_node/emacs/Expressionsを試すことができます

(condition-case nil 
    (progn (forward-sexp -1) 
      (message "Moved to the matching opener")) 
    (scan-error (message "No matching opener")))