How can I change a word in a buffer using elisp?

问题

How can I change the word at point using elisp? Something quite like (upcase-word) but using my own function?

Background: I've written a function that detects the base of the number at point and can convert it to any other base. What I would like to do is to change the number directly in the buffer.

TIA Markus

回答1:

Try this code. I've included a sample interactive function using 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))

来源：https://stackoverflow.com/questions/22299920/how-can-i-change-a-word-in-a-buffer-using-elisp