emacs - 在 emacs-lisp 中，如何将点定位在文本字符串的中间？

Question

在 emacs-lisp 中，如何将点定位在文本字符串的中间？我希望我的光标在以下函数中结束 %s 的位置:

(defun web-research ()
(interactive)
(insert "#+BEGIN_QUOTE\n\n%s\n#+END_QUOTE\n")
(org-mac-chrome-insert-frontmost-url)
)

Answer 1

有很多选择。例如，

(defun web-research ()
  (interactive)
  (insert "#+BEGIN_QUOTE\n\n%s\n#+END_QUOTE\n")
  (search-backward "%")
  (org-mac-chrome-insert-frontmost-url))

或

(defun web-research ()
  (interactive)
  (insert "#+BEGIN_QUOTE\n\n")
  (let ((p (point)))
    (insert "\n\n#+END_QUOTE\n")
    (org-mac-chrome-insert-frontmost-url)
    (goto-char p))

或

(defun web-research ()
  (interactive)
  (insert "#+BEGIN_QUOTE\n\n%s")
  (save-excursion (insert "\n#+END_QUOTE\n"))
  (org-mac-chrome-insert-frontmost-url))

IMO 第二个是最好的。