mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(normal-splash-screen, fancy-splash-screens): Make buffer read-only and

Browse Source 
arrange to enter view mode if necessary.
This commit is contained in:
Romain Francoise 2006-08-29 16:11:26 +00:00
parent 7660c02fc5
commit 0832681690
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-08-29 Romain Francoise <romain@orebokech.com>
* startup.el (normal-splash-screen, fancy-splash-screens): Make
buffer read-only and arrange to enter view mode if necessary.
2006-08-29 Chong Yidong <cyd@stupidchicken.com>
* hl-line.el (hl-line): New face.
@ -47,7 +52,7 @@
2006-08-28 Kim F. Storm <storm@cua.dk>
* find-dired.el (find-dired): Use shell-quote-argument to properly
* find-dired.el (find-dired): Use shell-quote-argument to properly
escape ( and ) args. Also use it on {} and ; args in default
value of find-ls-option string.
(find-grep-dired): Use shell-quote-argument on {} and ; args.

8
lisp/startup.el
View File

@ -1391,6 +1391,7 @@ mouse."
(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 @@ Warning Warning!!! Pure space overflow !!!Warning Warning
(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 @@ we put it on this frame."
(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 @@ Type \\[describe-distribution] for information on getting the latest version."))
;; 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)))