RosettaCodeData/Task/String-append/Emacs-Lisp/string-append-3.el
2026-04-30 12:34:36 -04:00

8 lines
199 B
EmacsLisp

(let ((buf (get-buffer-create "*foo*")))
(with-current-buffer buf
(insert "foo"))
(with-current-buffer buf
(goto-char (point-max))
(insert "bar")
(buffer-string)))
;; => "foobar"