[kansaipm] Re: [Q] M-x perldoc したい

[mishima at momo.so-net.ne.jp]

三嶋です。

From: Kiyoka Nishiyama <kiyoka at netfort.gr.jp>
Subject: [kansaipm] [Q] M-x perldoc したい
Date: Wed, 04 Oct 2000 01:31:11 +0900

> [Q] M-x perldoc というような操作で perldoc を見たいのですが、そういう Elispコードはあるのでしょうか？
> 
>   M-x man というのがありますが、あれと同じ感覚で perldoc を調べれたらいいなと思います。

ほしい欲しい。私もずっと前から欲しかったんです。
いいのがあったら紹介してください。

(require 'man)
(defun perldoc ()
  "Get a perl documentation."
  (interactive)
  (let* ((manual-program "perldoc")
	 (default-entry (Man-default-man-entry))
	 (input (read-string
		 (format "perldoc entry%s: "
			(if (string= default-entry "")
			    ""
			  (format " (default %s)" default-entry))))))
    (manual-entry input)))

みようみまねで、こんなインチキくさいコードを .emacs に書いてみたのです
が、イマイチです。

一見、うまく動くように見えるのですが、表示されたマニュアルの中で m を
押した時に発動するのが perldoc でなくて普通の man だったり、
Win98+ActivePerl+Meadowの環境では、perl のプロセスが死にきれずに残った
りします。

>   # 無かったら作ろうかな...

無かったら、是非ちゃんとしたのを作ってください。ワクワク。(^^)

--
$p='Perl'; $_='Masahiro Mishima'; sub _{pack'c*',$x=110+ at _*5,$x+1}
tr/oma/fa_/;s/./chr(ord($&)+2)/ge;@x=(sort(grep{!$_{$_}++}split//),
$p=~/(.(..).)/);$x[7]=~s/^/_/e;$x[8].=_ 1;for(@w=(47,1639,8,31259))
{s/\d/$x[$&+1]/g} print ucfirst "@w.\n";