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

ホーム

2011年08月18日

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

本家Permlink


Copyright © 1905 tko at jitu.org

バカが征く on Rails