coisinha q eu fiz pra mudar de buffer

minha_coisinha.el

(defun keys (a)
  (when a
    (global-set-key (read-kbd-macro (nth 0 a)) (nth 1 a))
    (keys (cddr a))))

(keys '("<s-left>" my-previous-buffer
        "<s-right>" my-next-buffer
        "<s-up>" next-regular-buffer
        "<s-down>" previous-star-buffer))

(defun switch-to-previous-buffer ()
  (interactive)
  (switch-to-buffer (other-buffer)))

(defun matching-buffer ()
  ;(string-match "^\\*.*\\*$" (buffer-name)))
  (string-match "^\\*.*$" (buffer-name)))

(defun my-next-buffer ()
  (interactive)
  (if (matching-buffer)
      (next-star-buffer)
    (next-regular-buffer)))

(defun my-previous-buffer ()
  (interactive)
  (if (matching-buffer)
      (previous-star-buffer)
    (previous-regular-buffer)))

(defun next-regular-buffer ()
  (interactive)
  (next-buffer)
  (if (matching-buffer)
      (next-regular-buffer)))

(defun next-regular-buffer-or-scratch ()
  (interactive)
  (next-buffer)
  (if (and (matching-buffer)
	  (not (equal "*scratch*" (buffer-name))))
      (next-regular-buffer-or-scratch)))

(defun previous-regular-buffer ()
  (interactive)
  (previous-buffer)
  (if (matching-buffer)
      (previous-regular-buffer)))

(defun bad-buffer (a)
  (member a '("*Backtrace*"
	      "*Completions*"
	      "*Messages*"
	      "*Help*"
	      "*Egg:Select Action*")))

(defun next-star-buffer ()
  (interactive)
  (next-buffer)
  (if (or (not (matching-buffer))
	  (bad-buffer (buffer-name)))
      (next-star-buffer)))

(defun previous-star-buffer ()
  (interactive)
  (previous-buffer)
  (if (or (not (matching-buffer))
	  (bad-buffer (buffer-name)))
      (previous-star-buffer)))