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
(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