WIP: fix persp-buffer-flip-skip-buffer

This commit is contained in:
David Morgan 2024-01-02 16:22:44 +00:00
parent 058e57f6e9
commit a68fe3a6fc
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 7 additions and 7 deletions

View File

@ -176,13 +176,13 @@
(use-package buffer-flip
:custom (buffer-flip-skip-patterns '("^[*]"))
:config
;; (defun persp-buffer-flip-skip-buffer (orig &rest args)
;; (or (apply orig args)
;; (persp-buffer-filter (car args))))
;; (advice-add 'buffer-flip-skip-buffer :around 'persp-buffer-flip-skip-buffer)
(defun persp-buffer-flip-skip-buffer (orig-val)
(or orig-val (persp-buffer-filter (car args))))
(advice-add 'buffer-flip-skip-buffer :filter-return 'persp-buffer-flip-skip-buffer)
(defun persp-buffer-flip-skip-buffer (orig &rest args)
(or (apply orig args)
(persp-buffer-filter (car args))))
(advice-add 'buffer-flip-skip-buffer :around 'persp-buffer-flip-skip-buffer)
;; (defun persp-buffer-flip-skip-buffer (orig-val &rest args)
;; (or orig-val (persp-buffer-filter (car args))))
;; (advice-add 'buffer-flip-skip-buffer :filter-return 'persp-buffer-flip-skip-buffer)
:bind (("C-c C-<left>" . buffer-flip)
(:map buffer-flip-map
( "C-<left>" . buffer-flip-forward)