Elisp destructuring-bind per contro cella?

Question

Mi piacerebbe fare

(destructuring-bind (start end) (bounds-of-thing-at-point 'symbol)) 

Ma bounds-of-thing-at-point restituisce una cella contro e non una lista, in modo da destructuring-bind non funziona. Cosa potrebbe funzionare per questo caso?

Answer 1

Dal destructuring-bind è una macro da cl pacchetto, può valere la pena di esaminare la documentazione Common Lisp per altri esempi .

This page mostra la sintassi della macro. Nota il (wholevar reqvars optvars . var). Anche se non sono sicuro che la versione cl di destructuring-bind supporti effettivamente tutti i casi meno comuni (molte parole chiave hanno senso solo se usate con macro/funzioni Common Lisp, ma non hanno questo significato in Emacs Lisp).

Così:

(destructuring-bind (start . end) (bounds-of-thing-at-point 'symbol) ;...) 

dovrebbe funzionare.

Answer 2

Non riesco a pensare a qualcosa di elegante come destrutturazione-bind, ma questo dovrebbe funzionare:

(let* ((b (bounds-of-thing-at-point 'symbol)) 
     (start (car b)) 
     (end (cdr b))) 
    ...) 

Answer 3

userei

(pcase-let ((`(,start . ,end) (bounds-of-thing-at-point 'symbol))) 
    ...)