>From 1015052f51209adc766d6e1ff4f602c5a0f9f67c Mon Sep 17 00:00:00 2001 From: Amar Singh Date: Tue, 25 Jun 2019 19:44:08 +0530 Subject: [PATCH 2/2] buffer.scm: `switch-to-buffer' takes additional argument recall? If `recall?' isn't false then set the `buffer' as most recent buffer. --- emacsy/buffer.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/emacsy/buffer.scm b/emacsy/buffer.scm index 356d833..4908cd9 100644 --- a/emacsy/buffer.scm +++ b/emacsy/buffer.scm @@ -231,14 +231,14 @@ ;;; This is our primitive procedure for switching buffers. It does not ;;; handle any user interaction. -(define (primitive-switch-to-buffer buffer) +(define* (primitive-switch-to-buffer buffer #:optional recall?) (emacsy-log-debug "Running exit hook for ~a" (current-buffer)) (run-hook (buffer-exit-hook (current-buffer))) (set! last-buffer (current-buffer)) (if (mru-contains? buffer-stack buffer) (begin (emacsy-log-debug "Recall buffer ~a" buffer) - (mru-recall! buffer-stack buffer) + (if recall? (mru-recall! buffer-stack buffer)) (set! aux-buffer #f)) (begin (emacsy-log-debug "Set buffer to ~a" buffer) -- 2.22.0