グローバルマークにジャンプ
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を復元するのも考えたけど面倒な割りに微妙だったので止めた。