Emacsでcurrent-wordのdescribe-functionを呼び出す方法は？

Question

にdescribe-functionを呼び出すEmacs関数を書きたいと思っています。そして、current-wordという名前の関数がない場合は、describe-variableを呼び出します。

私はそれを書くことを試みたが、私も、私はそれを書くことができますどのように

(defun describe-function-or-variable() 
(interactive) 
(describe-function `(current-word))) 

... current-wordため describe-functionを呼び出すことができませんでしたか？このような

Answer 1

何か作業をする必要があります：

(defun describe-function-or-variable() 
    (interactive) 
    (let ((sym (intern-soft (current-word)))) 
    (cond ((null sym) 
      "nothing") 
      ((functionp sym) 
      (describe-function sym)) 
      (t 
      (describe-variable sym))))) 

Answer 2

ここではより一般的な機能です：

(defun describe-function-or-variable() 
    (interactive) 
    (let ((sym (intern-soft (current-word)))) 
    (unless 
     (cond ((null sym)) 
       ((not (eq t (help-function-arglist sym))) 
       (describe-function sym)) 
       ((boundp sym) 
       (describe-variable sym))) 
     (message "nothing")))) 

それは特別な形式のために働く、例えばand、ならびにマクロのために、例えば、 case。 これは、変数を記述しようとする前に、変数がバインドされていることを確認します。