- 405 名前：sage [2007/03/12(月) 21:23:27 ID:hOdwmrwB0]
- >>404
昔自分用に作ったものなんで、要望とちがうかもしれんけど。
キーバインドは適当にあててください。
(defstruct strong mem)
(defun strong-word (str)
(interactive "sSTRONG : ")
(save-excursion
(goto-char (point-min))
(if (string= str "")
(delete-text-attributes t :test #'eq :key #'strong-p)
(while (scan-buffer str :regexp t :no-dup nil :tail t)
(set-text-attribute (match-beginning 0) (match-end 0)
(make-strong :mem str)
:foreground 7
:background 8)))))
(defun jump ()
(interactive)
(let ((pt (or (find-text-attribute t :test #'eq :key #'strong-p :start (+ (point) 1))
(find-text-attribute t :test #'eq :key #'strong-p :start (point-min)))))
(if pt
(goto-char pt)
(strong-word (read-string "STRONG : ")))))
|
 |
