cperl-mode で perldoc -m 相当のことをやる emacs-lisp 関数。 カーソル付近がモジュール名のデフォルト。 (defun cperl-view-module-src-at-point (module) "Visit perl module's source file" (interactive (list (let* ((default-entry (or (cperl-word-at-point) "")) (input (read-string (format "View perl module's source%s: " (if (string= default-entry "") "" (format " (default %s)" default-entry)))))) (if (string= input "") (if (string= defa