org-mode 9.3.5 で babel(dot/plantuml) が動かなかった

エラーは次の関数で発生していた。

(defun org-babel-chomp (string &optional regexp)
  "Strip a trailing space or carriage return from STRING.
The default regexp used is \"[ \\f\\t\\n\\r\\v]\" but another one
can be specified as the REGEXP argument."
  (let ((regexp (or regexp "[ \f\t\n\r\v]")))
    (while (and (> (length string) 0)
                (string-match regexp (substring string -1)))
      (setq string (substring string 0 -1)))
    string))

エラーの内容は次のものだった。

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match(nil "c")
  (and (> (length string) 0) (string-match regexp (substring string -1)))
  (while (and (> (length string) 0) (string-match regexp (substring string -1))) (setq string (substring string 0 -1)))
  (let ((regexp (or regexp "[ \f\011\n\015\013]"))) (while (and (> (length string) 0) (string-match regexp (substring string -1))) (setq string (substring string 0 -1))) string)

このエラーは、 上記の org-babel-chomp 関数の regexp 引数が nil だった場合に発生する。

このエラーに対し、 次のように let で宣言する変数を別名(regexp-work)で定義することで回避した。

(defun org-babel-chomp (string &optional regexp)
  "Strip a trailing space or carriage return from STRING.
The default regexp used is \"[ \\f\\t\\n\\r\\v]\" but another one
can be specified as the REGEXP argument."
  (let ((regexp-work (or regexp "[ \f\t\n\r\v]")))
    (while (and (> (length string) 0)
                (string-match regexp-work (substring string -1)))
      (setq string (substring string 0 -1)))
    string))

エラーの原因を確認するため、 エラーを再現する処理を抜き出して書き換えると次になる。

;;; -*- lexical-binding: t; -*-
(defun hoge (regexp)
  (let ((regexp (or regexp "a")))
    (string-match regexp "b")))

上記の hoge 関数の引数 regexp に nil をセットしてコールすると同じエラーになる。 なお、この現象は lexical-binding を有効にしている時だけ発生する。

上記関数の処理を説明すると次のようになる。

• let で新しく変数 regexp を宣言する

  • このとき、引数 regexp が nil 以外なら、引数 regexp の値を変数 regexp にセットする
  • 引数 regexp が nil なら、 "a" を変数 regexp にセットする。

つまり、let で宣言している変数 regexp には必ず nil 以外がセットされるはずである。

しかし、実際には string-match に渡される regexp には nil がセットされている。

何故このような結果になるか原因を想像すると、

「string-match でアクセスするシンボル regexp は、 let で宣言している regexp ではなく、関数の引数 regexp が参照されるため」

と考えるのが妥当だろう。

string-match は let のスコープなので、 普通に考えれば string-match の regexp は let で宣言している変数 regexp であるはず。 しかし、実際には何故か関数の引数 regexp になっている。

これが emacs lisp の仕様なのか、はたまた仕様外の動作なのかは良く分からない。

ちなみに、これが発生している環境は emacs 26.2 だが、 他の環境で発生するかどうかは確認していない。

org-mode の履歴を追ってみたが、 この関数の処理は lexical-binding を使うようになる前から変っていないので、 lexical-binding にした事による影響だろう。

以上。