(new-buffer (generate-new-buffer
(format " *Old buffer %s*" name))))
(with-current-buffer new-buffer
- (set-auto-mode)
(insert (format-message "This window displayed the %s `%s'.\n"
(if file "file" "buffer")
name))
(set-window-point window (nth 3 quad))))
(insert "\n"))
(goto-char (point-min))
- (setq buffer-read-only t)
+ (special-mode)
(set-window-buffer window new-buffer))))))
(defcustom tab-bar-select-restore-context t