elisp - 如何使用 elisp 更改缓冲区中的单词？

Question

如何使用 elisp 更改 at point 的单词？很像(大写单词)但使用我自己的函数？

背景:我编写了一个函数，可以检测点处数字的基数，并将其转换为任何其他基数。我想做的是直接更改缓冲区中的数字。

TIA 马库斯

Answer 1

试试这个代码。我使用 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))