diff options
Diffstat (limited to 'mcon/U/pager.U')
-rw-r--r-- | mcon/U/pager.U | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/mcon/U/pager.U b/mcon/U/pager.U index bd6b94e..514259e 100644 --- a/mcon/U/pager.U +++ b/mcon/U/pager.U @@ -1,12 +1,12 @@ -?RCS: $Id: pager.U,v 3.0.1.2 1995/01/30 14:41:26 ram Exp $ +?RCS: $Id$ ?RCS: -?RCS: Copyright (c) 1991-1993, Raphael Manfredi +?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi ?RCS: ?RCS: You may redistribute only under the terms of the Artistic Licence, ?RCS: as specified in the README file that comes with the distribution. ?RCS: You may reuse parts of this distribution only within the terms of ?RCS: that same Artistic Licence; a copy of which may be found at the root -?RCS: of the source tree for dist 3.0. +?RCS: of the source tree for dist 4.0. ?RCS: ?RCS: $Log: pager.U,v $ ?RCS: Revision 3.0.1.2 1995/01/30 14:41:26 ram @@ -25,26 +25,34 @@ ?S: Usual values are (the full pathnames of) more, less, pg, or cat. ?S:. : locate the preferred pager for this system +fn=f/ case "$pager" in '') dflt='' case "$pg" in /*) dflt=$pg;; + [a-zA-Z]:/*) dflt=$pg;; esac case "$more" in /*) dflt=$more;; + [a-zA-Z]:/*) dflt=$more;; esac case "$less" in /*) dflt=$less;; + [a-zA-Z]:/*) dflt=$less;; esac case "$dflt" in '') dflt=/usr/ucb/more;; esac ;; -*) dflt="$pager";; +*) dflt="$pager" +?X: Instruct ./getfile to trust the hinted or previous pager value, +?X: even if it does not begin with a slash. For example, on os2, +?X: pager might be cmd /c more. See comments in Getfile.U. + fn="f/($pager)" + ;; esac echo " " -fn=f/ rp='What pager is used on your system?' . ./getfile pager="$ans" |