dabbrev-highlightもどき on xyzzy, RSS feed - 継続にっき(2006-08-13)

))) dabbrev-highlightもどき on xyzzy(require "dabbrev") (defvar *dabbrev-expand-highlight-face* '(:bold t :foreground 1)) (defun dabbrev-expand-highlight (&optional arg) (interactive "*p") (let ((initial-point (point))) (dabbrev-expand arg) (let* ((text ed::*last-dabbrevs-text*) (location ed::*last-dabbrevs-text-location*) (buffer (or ed::*last-dabbrevs-last-buffer* (selected-buffer))) (current-buffe