comparison lisp/startup.el @ 83404:69e184bbba16

Merged from [e-mail]--gnu-2005 (patch 656-658) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-656 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-657 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-658 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-444

83403:51eb0aa362f3

  (setq load-history
	(mapcar (lambda (elt)
		  (if (and (stringp (car elt))
			   (not (file-name-absolute-p (car elt))))
		      (cons (locate-file (car elt) load-path
					 load-suffixes)
			    (cdr elt))
		    elt))
		load-history))

  ;; Convert the arguments to Emacs internal representation.

  "Stop displaying the splash screen buffer.
This is an internal function used to turn off the splash screen after
the user caused an input event by hitting a key or clicking with the
mouse."
  (interactive)
  (if (and (consp last-command-event)
	   (eq (posn-window (event-start last-command-event))
	       (selected-window)))
      ;; This is a mouse-down event in the spash screen window.
      ;; Ignore it and consume the corresponding mouse-up event.
      (read-event)

83404:69e184bbba16

  (setq load-history
	(mapcar (lambda (elt)
		  (if (and (stringp (car elt))
			   (not (file-name-absolute-p (car elt))))
		      (cons (locate-file (car elt) load-path
					 (append load-suffixes '("")))
			    (cdr elt))
		    elt))
		load-history))

  ;; Convert the arguments to Emacs internal representation.

  "Stop displaying the splash screen buffer.
This is an internal function used to turn off the splash screen after
the user caused an input event by hitting a key or clicking with the
mouse."
  (interactive)
  (if (and (memq 'down (event-modifiers last-command-event))
	   (eq (posn-window (event-start last-command-event))
	       (selected-window)))
      ;; This is a mouse-down event in the spash screen window.
      ;; Ignore it and consume the corresponding mouse-up event.
      (read-event)