[Emacs-diffs] Changes to emacs/lisp/startup.el,v

[Romain Francoise]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Romain Francoise <rfrancoise>   06/08/29 16:11:26

Index: startup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.411
retrieving revision 1.412
diff -u -b -r1.411 -r1.412
--- startup.el  23 Aug 2006 16:19:11 -0000      1.411
+++ startup.el  29 Aug 2006 16:11:25 -0000      1.412
@@ -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)))