From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 4037 invoked from network); 5 May 2000 08:56:24 -0000 Received: from sunsite.auc.dk (130.225.51.30) by ns1.primenet.com.au with SMTP; 5 May 2000 08:56:24 -0000 Received: (qmail 270 invoked by alias); 5 May 2000 08:56:02 -0000 Mailing-List: contact zsh-workers-help@sunsite.auc.dk; run by ezmlm Precedence: bulk X-No-Archive: yes X-Seq: 11180 Received: (qmail 247 invoked from network); 5 May 2000 08:56:02 -0000 Date: Fri, 5 May 2000 10:55:30 +0200 (MET DST) Message-Id: <200005050855.KAA26248@beta.informatik.hu-berlin.de> From: Sven Wischnowsky To: zsh-workers@sunsite.auc.dk In-reply-to: Sven Wischnowsky's message of Fri, 5 May 2000 10:47:43 +0200 (MET DST) Subject: RE: nslookup (function) problem Err, sorry, I applied a slightly different patch that pages only if there are more lines than fit on the screen. I wrote: Bye Sven Index: Functions/Misc/nslookup =================================================================== RCS file: /cvsroot/zsh/zsh/Functions/Misc/nslookup,v retrieving revision 1.1.1.9 diff -u -r1.1.1.9 nslookup --- Functions/Misc/nslookup 2000/03/10 01:01:03 1.1.1.9 +++ Functions/Misc/nslookup 2000/05/05 08:45:38 @@ -4,6 +4,8 @@ setopt localoptions localtraps completealiases local tmp line compcontext=nslookup curcontext='nslookup:::' pmpt +local pager opager="$PAGER" +typeset +g -x PAGER=cat zmodload -e zsh/zpty || zmodload -i zsh/zpty @@ -13,6 +15,8 @@ pmpt=() zstyle -s ':nslookup' prompt tmp && pmpt=(-p "$tmp") zstyle -s ':nslookup' rprompt tmp && pmpt=("$pmpt[@]" -r "$tmp") +zstyle -s ':nslookup' pager tmp && + [[ -z "$pager" ]] && pager="${opager:-more}" (( $#pmpt )) || pmpt=(-p '> ') zpty nslookup nslookup @@ -29,7 +33,11 @@ zpty -r nslookup line '* > ' - print -nr "$line" + if [[ -n "$pager" && ${#${(f)line}} -gt LINES ]]; then + print -nr "$line" | "$pager" + else + print -nr "$line" + fi done zpty -w nslookup 'exit' -- Sven Wischnowsky wischnow@informatik.hu-berlin.de