Don't show all man page. I set man switches to "-a"...
--- a/.emacs-my Fri Jul 06 21:33:55 2012 +0300
+++ b/.emacs-my Fri Jul 06 21:38:16 2012 +0300
@@ -2028,6 +2028,12 @@
(if (eq (cdr pair) 'perl-mode)
(setcdr pair 'cperl-mode)))
(append auto-mode-alist interpreter-mode-alist))
+;; Don't show all man page. I set man switches to "-a"...
+(add-hook
+ 'cperl-mode-hook
+ '(lambda ()
+ (make-local-variable 'Man-switches)
+ (setq Man-switches nil)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "SML, Standard ML")