xemacs - xemacs kill-matching-buffers または sort/filter *buffer list*

Question

xemacs で、特定のパターンに一致するバッファを強制終了するにはどうすればよいですか? 「kill-matching-buffers」を試しましたが、私の xemacs にはそれがないようです。この関数を取得するには、どの .el/.elc ファイルをロード/eval-buffer する必要がありますか?

また、バッファリストをフィルタリングして、削除したいバッファだけを表示したり、並べ替えを介してそれらを並べて取得したりする方法にも落ち着きます。

Answer 1

kill-matching-buffersコードは次のとおりです。XEmacs最小限の労力で動作させることができるはずです。

(defun kill-matching-buffers (regexp &optional internal-too)
  "Kill buffers whose name matches the specified REGEXP.
The optional second argument indicates whether to kill internal buffers too."
  (interactive "sKill buffers matching this regular expression: \nP")
  (dolist (buffer (buffer-list))
    (let ((name (buffer-name buffer)))
      (when (and name (not (string-equal name ""))
                 (or internal-too (/= (aref name 0) ?\s))
                 (string-match regexp name))
        (kill-buffer-ask buffer)))))

dolistまた、 (XEmacs かどうかわからない)の定義が必要な場合は、 cl-macs.elを確認してください。