comparison lisp/startup.el @ 83304:6fef25c75847

Merged from [e-mail]--gnu-2005 (patch 296-306) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-296 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-297 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-298 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-299 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-300 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-301 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-302 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-303 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-304 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-305 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-306 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-344

83303:108e45fdcdbd

(defun fancy-splash-insert (&rest args)
  "Insert text into the current buffer, with faces.
Arguments from ARGS should be either strings, functions called
with no args that return a string, or pairs `:face FACE',
where FACE is a valid face specification, as it can be used with
`put-text-properties'."
  (let ((current-face nil))
    (while args
      (if (eq (car args) :face)
	  (setq args (cdr args) current-face (car args))
	(insert (propertize (let ((it (car args)))

83304:6fef25c75847

(defun fancy-splash-insert (&rest args)
  "Insert text into the current buffer, with faces.
Arguments from ARGS should be either strings, functions called
with no args that return a string, or pairs `:face FACE',
where FACE is a valid face specification, as it can be used with
`put-text-property'."
  (let ((current-face nil))
    (while args
      (if (eq (car args) :face)
	  (setq args (cdr args) current-face (car args))
	(insert (propertize (let ((it (car args)))