RE: PATCH: _man for Pyramid man system (attached - probably Q-P)

["Andrej Borsenkow" <Andrej.Borsenkow@mow.siemens.ru>]

[-- Attachment #1: Type: text/plain, Size: 80 bytes --]

> 
> Attached because of line length.
> 

Oops ... now really attached.

-andrej

[-- Attachment #2: man.patch --]
[-- Type: application/octet-stream, Size: 1127 bytes --]

--- Completion/User/_man	Thu Mar 23 07:19:30 2000
+++ /home/bor/.zsh.d/completion/_man	Wed Apr 12 16:57:14 2000
@@ -2,7 +2,7 @@
 
 setopt localoptions rcexpandparam
 
-local rep expl star approx
+local rep expl star approx mrd
 
 if [[ $compstate[pattern_match] != [^*] ]]; then
   # If a string other than *, we just want correction, so no `*'.
@@ -25,13 +25,18 @@
     manpath=( /usr/man(-/N) /(opt|usr)/(dt|share|X11R6|local)/(cat|)man(-/N) )
 
 # `sman' is the SGML manual directory for Solaris 7.
+# 1M is system administrator commands on SVR4
 
-if [[ $words[2] = (<->*|l|n) ]]; then
+mrd=(${^manpath/\\%L/${LANG:-En_US.ASCII}}/mandb(N))
+if [[ $words[2] = (<->*|1M|l|n) ]]; then
   rep=(
   $manpath/(sman|man|cat)${words[2]}/${~approx}$PREFIX${~star}$SUFFIX.<->*(N:t) )
+  (($#mrd)) && rep[$#rep+1]=($(awk "\$2 == $words[2] {print \$1}" $mrd))
 else
   rep=( $manpath/(sman|man|cat)*/${~approx}$PREFIX${~star}$SUFFIX.<->*(N:t) )
+  (($#mrd)) && rep[$#rep+1]=($(awk '{print $1}' $mrd))
 fi
+
 
 (( $#rep )) && _wanted manuals expl 'manual page' \
     compadd - ${rep%%.[^.]##(.gz|.bz2|)}