>From f2585ae5c4420cede9fa602712dad31c33f06278 Mon Sep 17 00:00:00 2001 From: Amar Singh Date: Sun, 23 Jun 2019 23:50:39 +0530 Subject: [PATCH 2/3] buffers.scm: add procedures buffer-previous! buffer-next! --- emacsy/buffer.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/emacsy/buffer.scm b/emacsy/buffer.scm index beeddf1..34c3a75 100644 --- a/emacsy/buffer.scm +++ b/emacsy/buffer.scm @@ -31,6 +31,8 @@ #:use-module (emacsy mode) #:export (next-buffer prev-buffer + buffer-previous! + buffer-next! with-buffer save-excursion @@ -196,6 +198,12 @@ (define (remove-buffer! buffer) (mru-remove! buffer-stack buffer)) +(define* (buffer-previous! #:optional (incr 1)) + (mru-next! buffer-stack incr)) + +(define* (buffer-next! #:optional (incr 1)) + (buffer-previous! (- incr))) + ;;. (define-interactive (next-buffer #:optional (incr 1)) (mru-next! buffer-stack incr) -- 2.22.0