2005
6
7
8
9
10
11
12
2006
1
2
3
4
5
6
7
8
9
10
11
12
2007
1
2
3
4
5
6
7
8
9
10
11
12
2008
1
2
3
4
5
6
7
8
9
10
11
12
2009
1
2
3
4
5
6
7
8
9
10
11
12
2010
1
2
3
4
5
6
7
8
9
10
11
12
2011
1
2
3
4
5
6
7
8
9
10
11
12
2012
1
2
3
4
5
6
7
8
9
10
11
12
2013
1
2
3
4
5
6
7
8
9
10
11
12
2014
1
2
3
4
5
6
7
8
9
10
11
12
2015
1
2
3
4
5
6
7
8
9
10
11
12
2016
1
2
3
4
5
6
7
8
9
10
11
12
2017
1
2
3
4
5
6
7
8
9
10
11
12
2018
1
2
3
4
5
6
7
8
9
10
11
12
2019
1
2
3
4
5
6
7
8
9
10
11
12
2020
1
2
3
4
5
6
7
8
9
10
11
12
2021
1
(defvar tko-point-stack '()) (defun tko-make-bufpoint () (cons (current-buffer) (point))) (defun tko-push-bufpoint () (interactive) (push (tko-make-bufpoint) tko-point-stack)) (defun tko-pop-bufpoint () (interactive) (if (not (null tko-point-stack)) (let ((bufpoint (pop tko-point-stack))) (switch-to-buffer (car bufpoint)) (goto-char (cdr bufpoint)))))
Copyright © 1905 tko at jitu.org