<< 前 ホーム 次 >>

bakaid: 20110818

(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