表示変更@に
大抵elispのファイルは
これを
(defun python-ex:eval-internal-async (source-code &optional call-back) (python-ex:with-async (source-code call-back) (python-ex:let1 r (python-ex:eval-internal source-code) (cond (call-back (funcall call-back r)) (t (message "pyex-result: %s" r))))))
こんな風に
(defun @eval-internal-async (source-code &optional call-back) (@with-async (source-code call-back) (@let1 r (@eval-internal source-code) (cond (call-back (funcall call-back r)) (t (message "pyex-result: %s" r))))))
code
これとfont-lock-add-keywordsとかでできないかな?
(while (re-search-forward "python-ex" nil t 1) (compose-region (match-beginning 0) (match-end 0) ?@))