diff options
| author | jao <jao@gnu.org> | 2022-11-10 21:33:45 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-11-10 21:34:11 +0000 |
| commit | 66f155b7f0c9ec87994d87970d65afe874a4db66 (patch) | |
| tree | eef46a22ec82ee9fb8e22f4adc468c0d11087eb6 | |
| parent | 5300330a27ce64f43b0ed36a9fa0a49158d19c6a (diff) | |
| download | elibs-66f155b7f0c9ec87994d87970d65afe874a4db66.tar.gz elibs-66f155b7f0c9ec87994d87970d65afe874a4db66.tar.bz2 | |
configurable chats workspace number
| -rw-r--r-- | lib/eos/jao-tracking.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/eos/jao-tracking.el b/lib/eos/jao-tracking.el index f695b3e..fdb156b 100644 --- a/lib/eos/jao-tracking.el +++ b/lib/eos/jao-tracking.el @@ -137,13 +137,14 @@ (defun jao-tracking-next-buffer () (interactive) (if jao-tracking-use-scratch - (let ((n (jao-afio-frame-no))) - (unless (eq 0 n) (setq jao-tracking--start-frame n)) + (let ((k (if (numberp jao-tracking-use-scratch) jao-tracking-use-scratch 0)) + (n (jao-afio-frame-no))) + (unless (eq k n) (setq jao-tracking--start-frame n)) (cond (tracking-buffers (let ((bs tracking-buffers)) - (if (eq 0 n) + (if (eq k n) (tracking-next-buffer) - (jao-afio-goto-scratch) + (jao-afio-goto-nth k) (when (and (car bs) (not (memq (current-buffer) bs))) (pop-to-buffer (car bs))) (tracking-remove-visible-buffers)))) |