- (let ((message-buf (get-buffer "*Messages*")))
- (if message-buf
- (let (beg-pos
- (end-pos message-end-point))
- (with-current-buffer message-buf
- (goto-char end-pos)
- (forward-line -10)
- (setq beg-pos (point)))
- (insert "\nRecent messages:\n")
- (insert-buffer-substring message-buf beg-pos end-pos))))
- ;; After Recent messages, to avoid the messages produced by
- ;; list-load-path-shadows.
- (unless (looking-back "\n")
- (insert "\n"))