オーバーレイを使用してテキストを強調表示できます。これを行うために.emacsファイルに追加できるいくつかの関数を次に示します。重要なのは、この方法で作成されたすべてのオーバーレイに「my-highlights」という名前を付けて、後でそれらのオーバーレイだけを削除できるようにすることです。
(defun highlight-thing-at-point ()
(interactive)
(let* ((my-thing (bounds-of-thing-at-point 'sexp))
(my-overlay (make-overlay (first my-thing) (rest my-thing))))
(overlay-put my-overlay 'name 'my-highlights)
(overlay-put my-overlay 'face 'highlight)))
(defun unhighlight-all-of-mine ()
(interactive)
(remove-overlays nil nil 'my-highlights))
編集:
スペースが含まれるポイントでファイル名の境界を返すカスタム関数を追加できます。例については、このEmacsWikiの記事を参照してください。したがって、my-bounds-of-filename-at-pointという名前の関数を作成すると、(bounds-of-thing-at-point'filename)および(thing-at-point' filename)のデフォルトとして設定できます。これ:
(put 'filename 'bounds-of-thing-at-point 'my-bounds-of-filename-at-point)