[Emacs] リージョン非活性時の M-; で `comment-or-uncomment-region' 呼び出し

;; リージョンが非活性時の M-; で `comment-indent' ではなく
;; `comment-or-uncomment-region' を実行する。
(global-set-key (kbd "M-;")
                (lambda (arg)
                  (interactive "*P")
                  (let ((bol (line-beginning-position))
                        (eol (line-end-position)))
                    (if (or
                         ;; リージョンが活性
                         (use-region-p)
                         ;; 空行
                         (string-match (buffer-substring-no-properties bol eol)
                                       "\\`\\s-*\\'")
                         ;; 前置引数(C-u)あり
                         arg)
                        (if (called-interactively-p)
                            (call-interactively #'comment-dwim)
                          (comment-dwim arg))
                      ;; 上記以外の場合は現在行をコメント化 or コメント解除
                      (comment-or-uncomment-region bol eol)))))