;;; previous-buffer.el
;;;
;;; Copyright (C) 1996, 1997, 1998, 2004, 2007, 2008 Thien-Thi Nguyen
;;;
;;; This file is part of ttn's personal elisp library, released under
;;; the terms of the GNU General Public License as published by the
;;; Free Software Foundation; either version 3, or (at your option) any
;;; later version.  There is NO WARRANTY.  See file COPYING for details.

;;; Description: Switch to previous buffer in buffer list.

;;;###autoload
(defun previous-buffer () "switches to previous buffer"
  (interactive)
  (while (progn
           (switch-to-buffer (car (last (buffer-list))))
           (string= " " (substring (buffer-name) 0 1)))))

(provide 'previous-buffer)

;;; previous-buffer.el ends here