crea `previous-buffer` e` next-buffer` per ignorare alcuni buffer

in Helm ignoro la visualizzazione di alcuni buffer durante l'utilizzo C-x b, sto cercando un modo per eseguire i comandi previous-buffere next-buffercomportarmi allo stesso modo ignorando alcuni buffer.

Ecco due modi:

1. Se dai un'occhiata alla definizione di funzione switch-to-next-buffer(nella libreria window.el) vedrai che filtra i buffer in base al predicato (se presente) che è il valore del parametro frame buffer-predicate. Questa funzione è utilizzata da next-buffer.

   È possibile impostare quel parametro frame su un predicato che filtra nel modo desiderato.

2. Puoi semplicemente consigliare la funzione switch-to-next-bufferper filtrare nel modo desiderato. Sostanzialmente sostituirai la sua definizione con quasi la stessa definizione, ma filtrerai ulteriormente come desideri.

Allo stesso modo per switch-to-previous-buffer.

(defvar my-skippable-buffers '("*Messages*" "*scratch*" "*Help*")
  "Buffer names ignored by `my-next-buffer' and `my-previous-buffer'.")

(defun my-change-buffer (change-buffer)
  "Call CHANGE-BUFFER until current buffer is not in `my-skippable-buffers'."
  (let ((initial (current-buffer)))
    (funcall change-buffer)
    (let ((first-change (current-buffer)))
      (catch 'loop
        (while (member (buffer-name) my-skippable-buffers)
          (funcall change-buffer)
          (when (eq (current-buffer) first-change)
            (switch-to-buffer initial)
            (throw 'loop t)))))))

(defun my-next-buffer ()
  "Variant of `next-buffer' that skips `my-skippable-buffers'."
  (interactive)
  (my-change-buffer 'next-buffer))

(defun my-previous-buffer ()
  "Variant of `previous-buffer' that skips `my-skippable-buffers'."
  (interactive)
  (my-change-buffer 'previous-buffer))

(global-set-key [remap next-buffer] 'my-next-buffer)
(global-set-key [remap previous-buffer] 'my-previous-buffer)