(defun nf-exhume-buffer ()
  (interactive)
  (switch-to-buffer (car (reverse (buffer-list))))
)

(defun nf-bury-buffer ()
  (interactive)
  (let ((to-bury (current-buffer)))
    (switch-to-buffer (car (cdr (buffer-list))))
    (bury-buffer to-bury))
)