*scratch*.el

(defun ngz/copy-buffer (oldbuf new-name)
  "Create a new buffer named NEW-NAME as a copy of OLDBUF.

Will copy the contents and all buffer-local variables.

Returns the newly-created buffer"
  (let ((newbuf (get-buffer-create new-name)))
    (with-current-buffer oldbuf
      (copy-to-buffer newbuf (point-min) (point-max)))
    (with-current-buffer newbuf
      (dolist (varspec (buffer-local-variables oldbuf))
        (set (car varspec) (cdr varspec))))
    newbuf))