623 |
"Copy the contents of the current buffer to a fresh buffer." |
"Copy the contents of the current buffer to a fresh buffer." |
624 |
(save-excursion |
(save-excursion |
625 |
(let ((obuf (current-buffer)) |
(let ((obuf (current-buffer)) |
|
(multibyte enable-multibyte-characters) |
|
626 |
beg) |
beg) |
627 |
(goto-char (point-min)) |
(goto-char (point-min)) |
628 |
(search-forward-regexp "^\n" nil t) |
(search-forward-regexp "^\n" nil t) |
629 |
(setq beg (point)) |
(setq beg (point)) |
630 |
(set-buffer (generate-new-buffer " *mm*")) |
(set-buffer |
631 |
;; Preserve the data's unibyteness (for url-insert-file-contents). |
;; Preserve the data's unibyteness (for url-insert-file-contents). |
632 |
(set-buffer-multibyte multibyte) |
(let ((default-enable-multibyte-characters (mm-multibyte-p))) |
633 |
|
(generate-new-buffer " *mm*"))) |
634 |
(insert-buffer-substring obuf beg) |
(insert-buffer-substring obuf beg) |
635 |
(current-buffer)))) |
(current-buffer)))) |
636 |
|
|