Elisp destructuring-bind dla komórki?

Question

Chciałbym zrobić

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

Ale bounds-of-thing-at-point zwraca komórkę minusy, a nie listy, więc destructuring-bind nie działa. Co może działać w tej sprawie?

Answer 1

Od destructuring-bind jest makro z cl pakietu, może warto zajrzeć do dokumentacji Common Lisp więcej przykładów .

This page wyświetla składnię makra. Zwróć uwagę na (wholevar reqvars optvars . var). Chociaż nie jestem pewien, czy cl wersja destructuring-bind faktycznie obsługuje wszystkie rzadsze przypadki (wiele słów kluczowych ma sens jedynie w przypadku makr/funkcji Common Lisp, ale nie ma to znaczenia w Emacs Lisp).

Zatem:

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

powinno działać.

Answer 2

nie mogę myśleć o niczym tak eleganckie, jak rozpad-wiążą, ale to będzie działać:

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

Answer 3

użyję

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