diff lisp/startup.el @ 95777:edc51d72cb17

* window.c (Vwindow_point_insertion_type): New var. (set_window_buffer): Use it. (syms_of_window): Init and export it to Lisp. * progmodes/compile.el (compilation-mode): Set window-point-insertion-type. (compilation-filter): Don't use insert-before-markers any more. * emacs-lisp/trace.el (trace-make-advice): Set window-point-insertion-type in the trace buffer. * startup.el (normal-top-level): Set window-point-insertion-type in *Messages*. * net/telnet.el (telnet-mode): Set window-point-insertion-type. (telnet-filter): Don't use insert-before-markers any more. * comint.el (comint-mode): Set window-point-insertion-type. (comint-output-filter): Don't use insert-before-markers any more. * button.el (make-text-button): Allow `start' to be a string.

--- a/lisp/startup.el	Tue Jun 10 14:17:32 2008 +0000
+++ b/lisp/startup.el	Tue Jun 10 16:08:48 2008 +0000
@@ -396,10 +396,12 @@
   (if command-line-processed
       (message "Back to top level.")
     (setq command-line-processed t)
-    ;; Give *Messages* the same default-directory as *scratch*,
-    ;; just to keep things predictable.
     (let ((dir default-directory))
       (with-current-buffer "*Messages*"
+        ;; Make it easy to do like "tail -f".
+        (set (make-local-variable 'window-point-insertion-type) t)
+        ;; Give *Messages* the same default-directory as *scratch*,
+        ;; just to keep things predictable.
 	(setq default-directory dir)))
     ;; `user-full-name' is now known; reset its standard-value here.
     (put 'user-full-name 'standard-value
@@ -994,8 +996,7 @@
 		(setq init-file-had-error nil))
 	    (error
 	     (let ((message-log-max nil))
-	       (save-excursion
-		 (set-buffer (get-buffer-create "*Messages*"))
+	       (with-current-buffer (get-buffer-create "*Messages*")
 		 (insert "\n\n"
 			 (format "An error has occurred while loading `%s':\n\n"
 				 user-init-file)