cmdr
Check-in [d4b3af213d]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix stupid typo in definition of the Pager support command.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d4b3af213d20dfdffbf15b53d14db49fe7d15f27
User & Date: andreask 2014-06-03 00:19:18
Context
2014-06-03
00:24
cmdr::help - Added option to forcibly disable the pager. check-in: a52e457615 user: andreask tags: trunk
00:19
Fix stupid typo in definition of the Pager support command. check-in: d4b3af213d user: andreask tags: trunk
00:16
cmdr::help - Extended the backend to invoke a pager if the help is too high for the terminal. Lots of things (not terminal, no support in linenoise, no pager) will disable this. Bumped version to 1.3. check-in: e15928b830 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to help.tcl.

202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
		}
	    }
	}
    }
    return
}

proc ::cmdr::help::format::Pager {} {
    global env
    if {[info exists env(PAGER)]} {
	lappend pager $env(PAGER)
    }
    lappend pager less
    lappend pager more








|







202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
		}
	    }
	}
    }
    return
}

proc ::cmdr::help::Pager {} {
    global env
    if {[info exists env(PAGER)]} {
	lappend pager $env(PAGER)
    }
    lappend pager less
    lappend pager more