Come chiamare la funzione descrittiva per la parola corrente in Emacs?

Question

Desidero scrivere una funzione Emacs che chiama describe-function per current-word. E se non vi è alcuna funzione denominata current-word, allora chiama describe-variable.

ho cercato di scriverlo, ma non potevo nemmeno chiamare describe-function per current-word ...

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

Come posso scriverlo?

Answer 1

Qualcosa del genere dovrebbe funzionare:

(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

Ecco una funzione più generale:

(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")))) 

Funziona per forme speciali, per esempio and, nonché per macro, ad es. case. Si assicura anche che la variabile sia vincolata, prima di provare a descriverla.