グローバルマークにジャンプ

listのを触っていて、ついでに試しに作ってみたもの。Apsalyのマークのように動いたら良いなぁと。

■具体的に何をするか
押すたびにグローバルマークのされている場所に順に移動する。

(defun mark-rotate()
  "グローバルマークを適当に回転"
  (setq ed::*global-mark-list*
		(append (cdr ed::*global-mark-list*)
				(list (car ed::*global-mark-list*))))
  (message "~S" ed::*global-mark-list*))



(defun global-mark-jump()
  "グローバルマークを順にジャンプ"
  (interactive)
  (mark-rotate)
  (setq ed::*last-global-mark* (car ed::*global-mark-list*))
  (global-mark-goto (car ed::*global-mark-list*)))

マークに色が付かないので色付けたほうが良いかもしれないけど。
ついでに色を付けたやつも作ってみた。gmark++.l
selectionを意識してselectionを復元するのも考えたけど面倒な割りに微妙だったので止めた。