1432 |
;; delete that window to save screen space. |
;; delete that window to save screen space. |
1433 |
;; t means don't alter other frames. |
;; t means don't alter other frames. |
1434 |
(delete-windows-on original t) |
(delete-windows-on original t) |
1435 |
(insert-buffer original) |
(with-no-warnings |
1436 |
|
;; We really want this to set mark. |
1437 |
|
(insert-buffer original)) |
1438 |
(set-text-properties (point) (mark t) nil)) |
(set-text-properties (point) (mark t) nil)) |
1439 |
(if (consp arg) |
(if (consp arg) |
1440 |
nil |
nil |