Lisp色々検索して anything.el や partial-complete-mode なども試してみたが、どうも気に入らないので Scheme で Alcor の Abbreviation Scoring - 月の塵 を Emacs Lisp で再実装してみた。アルゴリズムがわかっているので今回は実装は早い。今回は補正手続きを自分で指定できるようにしてみた。相変わらず Emacs Lisp がよくわかっていないので変なところがあるかも。 (require 'cl) (defun abbreviation-score-default-panalty-function (_str _n) nil) (defun abbreviation-score-lisp-penalty-function (str n) (and (> n 0) (char-equal (aref str (- n