Mercurial > emacs
diff lisp/startup.el @ 72574:1b6faf513fc3
(normal-splash-screen, fancy-splash-screens): Make buffer read-only and
arrange to enter view mode if necessary.
author | Romain Francoise <romain@orebokech.com> |
---|---|
date | Tue, 29 Aug 2006 16:11:26 +0000 |
parents | 6cc945ca398a |
children | 06f1e0aa1de0 c358d0861b16 |
line wrap: on
line diff
--- a/lisp/startup.el Tue Aug 29 14:00:27 2006 +0000 +++ b/lisp/startup.el Tue Aug 29 16:11:26 2006 +0000 @@ -1391,6 +1391,7 @@ (window-dedicated-p (selected-window))) (pop-to-buffer (current-buffer)) (switch-to-buffer "GNU Emacs")) + (setq buffer-read-only nil) (erase-buffer) (if pure-space-overflow (insert "\ @@ -1402,6 +1403,9 @@ (apply #'fancy-splash-insert text)) (fancy-splash-tail) (set-buffer-modified-p nil) + (setq buffer-read-only t) + (if (and view-read-only (not view-mode)) + (view-mode-enter nil 'kill-buffer)) (goto-char (point-min))))) (defun fancy-splash-frame () @@ -1438,6 +1442,7 @@ (let ((prev-buffer (current-buffer))) (unwind-protect (with-current-buffer (get-buffer-create "GNU Emacs") + (setq buffer-read-only nil) (erase-buffer) (set (make-local-variable 'tab-width) 8) (if hide-on-input @@ -1577,6 +1582,9 @@ ;; Display the input that we set up in the buffer. (set-buffer-modified-p nil) + (setq buffer-read-only t) + (if (and view-read-only (not view-mode)) + (view-mode-enter nil 'kill-buffer)) (goto-char (point-min)) (if (or (window-minibuffer-p) (window-dedicated-p (selected-window)))