http://perl-users.jp/articles/advent-calendar/2012/casual/13 のパッケージ名チェックを Emacs Lispで書いてみました。 コード (defun cperl-get-package-name () (save-excursion (goto-char (point-min)) (if (re-search-forward "^\\s-*package\\s-+\\([^ ;]+\\)" nil t) (match-string-no-properties 1) ""))) (defun cperl-check-package-name () (interactive) (let* ((path (file-name-sans-extension (buffer-file-name))) (package (replace-re