(defun next-good-buffer () "HWC" (interactive)
(next-buffer)
(while (and (not (string= (buffer-name) "*scratch*"))
(equal (buffer-file-name) nil))
(next-buffer)))
(defun previous-good-buffer () "HWC" (interactive)
(previous-buffer)
(while (and (not (string= (buffer-name) "*scratch*"))
(equal (buffer-file-name) nil))
(previous-buffer)))
(global-set-key [(control next)] 'next-good-buffer)
(global-set-key [(control prior)] 'previous-good-buffer)
(global-set-key [(control tab)] 'next-good-buffer)
(global-set-key [(control shift tab)] 'previous-good-buffer)
(global-set-key [(control iso-lefttab)] 'next-good-buffer)
(global-set-key [(control shift iso-lefttab)] 'previous-good-buffer)