Как мога да променя думата в буфер с помощта на elisp? - елип

Как мога да променя думата в точка с помощта на elisp? Нещо доста като (upcase-word), но с помощта на собствената ми функция?

Предистория: Написах функция, която открива основата на числото в даден момент и може да го преобразува във всяка друга база. Това, което бих искал да направя, е да променя номера директно в буфера.

TIA Markus

Отговори:

Опитайте този код. Включих примерна интерактивна функция, използвайки upcase:

(defun change-word-at-point (fun)
(cl-destructuring-bind (beg . end)
(bounds-of-thing-at-point "word)
(let ((str (buffer-substring-no-properties beg end)))
(delete-region beg end)
(insert (funcall fun str)))))

(defun upcase-word ()
(interactive)
(change-word-at-point "upcase))