 (defun geiser-log--msg (type &rest args)
   (unless geiser-log--inhibit-p
     (geiser-log--with-buffer
-      (insert (geiser--shorten-str (format "\n%s: %s\n" type (apply 'format args))
+      (goto-char (point-max))
+      (insert (geiser--shorten-str (format "\n%s: %s\n" type
+                                           (apply 'format args))
                                    geiser-log--max-message-size)))))
 
 (defsubst geiser-log--warn (&rest args)

  (apply 'geiser-log--msg 'ERROR args))

(defsubst geiser-log--info (&rest args)
  (when geiser-log--verbose-p
    (apply 'geiser-log--msg 'INFO args) ""))


;;; User commands:

(defun geiser-show-logs ()
  "Show Geiser log messages."
  (interactive)
  (geiser-log--pop-to-buffer))



;; geiser-log.el -- logging utilities

;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
