まあ、置換とかは replace-buffer とかで一発なんだが、もちょっと凝ったことをしたいときがある。 今まではバッファを1行づつ処理するときは、 (while (null (eobp)) (let* ((beg (save-excursion (goto-bol) (point))) (end (save-excursion (goto-eol) (p…

文字列中の 1文字がアルファベットかどうか知りたいことがたまにある。 たとえば、こう書ける。 (defun char-alphabet-p (ch) (if (char-not-greaterp #\a ch #\z) t nil)) char-not-greaterp は char 関係ないけど、Wikipedia によると A〜Z, a〜z を「アル…

xyzzy の recentf は これがわりと有名だとおもう。 でもなぜかそれは使ってなくて、むかし適当に自分で書いたのをちょこちょこ直しながら現在に至っている。変り種としては、 最近使ったもの順に自然とソートされる。recentf で開いたファイルは、リストの…

これも、バックアップとして置いておく。discrete.l - 小さなコマンド群

結構増えてきてしまったので、バックアップとして置いておく。lib.l - コマンドにならない小さな関数群*1 *1:先人達から拝借させてもらったものも含む