RosettaCodeData/Task/String-append/Emacs-Lisp/string-append-3.l
2023-07-01 13:44:08 -04:00

8 lines
199 B
Common Lisp

(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"