Commit 23efee2c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(append-to-buffer): Interactively, supply all 3 args.

Allow nonexistent buffers.
parent 6992e6b7
...@@ -1194,7 +1194,8 @@ When calling from a program, give three arguments: ...@@ -1194,7 +1194,8 @@ When calling from a program, give three arguments:
BUFFER (or buffer name), START and END. BUFFER (or buffer name), START and END.
START and END specify the portion of the current buffer to be copied." START and END specify the portion of the current buffer to be copied."
(interactive (interactive
(list (read-buffer "Append to buffer: " (other-buffer nil t) t))) (list (read-buffer "Append to buffer: " (other-buffer nil t))
(region-beginning) (region-end)))
(let ((oldbuf (current-buffer))) (let ((oldbuf (current-buffer)))
(save-excursion (save-excursion
(set-buffer (get-buffer-create buffer)) (set-buffer (get-buffer-create buffer))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment