From 8226f0070f39f2bc6be95099189fa13db90c5a6b Mon Sep 17 00:00:00 2001 From: deb0ch Date: Wed, 15 Mar 2017 17:25:02 +0100 Subject: [PATCH] do not filter for alternating buffers --- core/core-funcs.el | 18 ++++++------------ layers/+spacemacs/spacemacs-layouts/funcs.el | 7 ------- .../+spacemacs/spacemacs-layouts/packages.el | 1 - 3 files changed, 6 insertions(+), 20 deletions(-) diff --git a/core/core-funcs.el b/core/core-funcs.el index 41544f509..8cb549b9b 100644 --- a/core/core-funcs.el +++ b/core/core-funcs.el @@ -306,19 +306,13 @@ buffer." "Switch back and forth between current and last buffer in the current window." (interactive) - (let ((current-buffer (window-buffer window)) - (buffer-predicate - (frame-parameter (window-frame window) 'buffer-predicate))) - ;; switch to first buffer previously shown in this window that matches - ;; frame-parameter `buffer-predicate' + (let ((current-buffer (window-buffer window))) + ;; if no window is found in the windows history, `switch-to-buffer' will + ;; default to calling `other-buffer'. (switch-to-buffer - (or (cl-find-if (lambda (buffer) - (and (not (eq buffer current-buffer)) - (or (null buffer-predicate) - (funcall buffer-predicate buffer)))) - (mapcar #'car (window-prev-buffers window))) - ;; `other-buffer' honors `buffer-predicate' so no need to filter - (other-buffer current-buffer t))))) + (cl-find-if (lambda (buffer) + (not (eq buffer current-buffer))) + (mapcar #'car (window-prev-buffers window)))))) (defun spacemacs/alternate-window () "Switch back and forth between current and last window in the diff --git a/layers/+spacemacs/spacemacs-layouts/funcs.el b/layers/+spacemacs/spacemacs-layouts/funcs.el index 58f4c092c..2898620e2 100644 --- a/layers/+spacemacs/spacemacs-layouts/funcs.el +++ b/layers/+spacemacs/spacemacs-layouts/funcs.el @@ -46,13 +46,6 @@ Cancels autosave on exiting perspectives mode." *persp-hash* 'non-existent)) (persp-switch spacemacs--last-selected-layout))) -(defun spacemacs/alternate-buffer-in-persp () - "Switch back and forth between current and last buffer in the -current perspective." - (interactive) - (with-persp-buffer-list () - (switch-to-buffer (other-buffer (current-buffer) t)))) - (defun spacemacs-layouts/non-restricted-buffer-list-helm () (interactive) (let ((ido-make-buffer-list-hook (remove #'persp-restrict-ido-buffers ido-make-buffer-list-hook))) diff --git a/layers/+spacemacs/spacemacs-layouts/packages.el b/layers/+spacemacs/spacemacs-layouts/packages.el index 678ecde3c..a905969df 100644 --- a/layers/+spacemacs/spacemacs-layouts/packages.el +++ b/layers/+spacemacs/spacemacs-layouts/packages.el @@ -210,7 +210,6 @@ (spacemacs/declare-prefix "B" "global-buffers") ;; Override SPC TAB to only change buffers in perspective (spacemacs/set-leader-keys - "TAB" 'spacemacs/alternate-buffer-in-persp "ba" 'persp-add-buffer "br" 'persp-remove-buffer))))