Merge pull request #1718 from vim-jp/hh-update-if_tcl

Update if_tcl.{txt,jax}

Author: h-east

doc/if_tcl.jax

@@ -1,4 +1,4 @@
-*if_tcl.txt*    For Vim バージョン 9.1.  Last change: 2022 Jan 08
+*if_tcl.txt*    For Vim バージョン 9.1.  Last change: 2024 Oct 05
 
 
 		  VIMリファレンスマニュアル    by Ingo Wilken
@@ -458,14 +458,14 @@ stdinからの入力は、今のところサポートされていない。
 いくつかの小さな(そして、たぶん役に立つ)Tclスクリプトを紹介しよう。
 
 このスクリプトはバッファ全体の行をソートする(名前のリストとか、そのようなも
-のであると仮定する):
+のであると仮定する): >
 	set buf $::vim::current(buffer)
 	set lines [$buf get top bottom]
 	set lines [lsort -dictionary $lines]
 	$buf set top bottom $lines
 
-このスクリプトは、バッファ内の行を反転する。"::vim::lbase" と "$buf last" は、
-どんな行番号の設定でも機能することに注目。
+このスクリプトは、バッファ内の行を反転する。Note "::vim::lbase" と "$buf last"
+は、どんな行番号の設定でも機能することに注目: >
 	set buf $::vim::current(buffer)
 	set t $::vim::lbase
 	set b [$buf last]
@@ -478,7 +478,7 @@ stdinからの入力は、今のところサポートされていない。
 		incr b -1
 	}
 
-このスクリプトは、現在の範囲の各行に連続した番号を付け加える:
+このスクリプトは、現在の範囲の各行に連続した番号を付け加える: >
 	set buf $::vim::current(buffer)
 	set i $::vim::range(start)
 	set n 1
@@ -488,25 +488,25 @@ stdinからの入力は、今のところサポートされていない。
 		incr i ; incr n
 	}
 
-同じことが、":tcldo" による２つのexコマンドで、より迅速に行える:
+同じことが、":tcldo" による２つのexコマンドで、より迅速に行える: >
 	:tcl set n 1
 	:[range]tcldo set line "$n\t$line" ; incr n
 
-このプロシージャは、各バッファでexコマンドを走らせる(Ron Aaron氏のアイデア):
+このプロシージャは、各バッファでexコマンドを走らせる(Ron Aaron氏のアイデア): >
 	proc eachbuf { cmd } {
 		foreach b [::vim::buffer list] {
 			$b command $cmd
 		}
 	}
-こんな風に使う:
+こんな風に使う: >
 	:tcl eachbuf %s/foo/bar/g
 Tclの文字列とバックスラッシュの置換には気をつけてほしい。疑わしいときは、丸括
 弧でexコマンドを括っておくとよい。
 
 
 いくつかのTclコマンドをずっとvimで使いたいというなら、それらをファイル(例えば
 Unixマシンでは "~/.vimrc.tcl" など)に入れておき、スタートアップファイル(Unixマ
-シンなら標準で "~/.vimrc")に以下の行を付け加える:
+シンなら標準で "~/.vimrc")に以下の行を付け加える: >
 	if has("tcl")
 		tclfile ~/.vimrc.tcl
 	endif

en/if_tcl.txt

@@ -1,4 +1,4 @@
-*if_tcl.txt*    For Vim version 9.1.  Last change: 2022 Jan 08
+*if_tcl.txt*    For Vim version 9.1.  Last change: 2024 Oct 05
 
 
 		  VIM REFERENCE MANUAL    by Ingo Wilken
@@ -461,14 +461,14 @@ Input from stdin is currently not supported.
 Here are a few small (and maybe useful) Tcl scripts.
 
 This script sorts the lines of the entire buffer (assume it contains a list
-of names or something similar):
+of names or something similar): >
 	set buf $::vim::current(buffer)
 	set lines [$buf get top bottom]
 	set lines [lsort -dictionary $lines]
 	$buf set top bottom $lines
 
 This script reverses the lines in the buffer.  Note the use of "::vim::lbase"
-and "$buf last" to work with any line number setting.
+and "$buf last" to work with any line number setting: >
 	set buf $::vim::current(buffer)
 	set t $::vim::lbase
 	set b [$buf last]
@@ -481,7 +481,7 @@ and "$buf last" to work with any line number setting.
 		incr b -1
 	}
 
-This script adds a consecutive number to each line in the current range:
+This script adds a consecutive number to each line in the current range: >
 	set buf $::vim::current(buffer)
 	set i $::vim::range(start)
 	set n 1
@@ -491,25 +491,25 @@ This script adds a consecutive number to each line in the current range:
 		incr i ; incr n
 	}
 
-The same can also be done quickly with two Ex commands, using ":tcldo":
+The same can also be done quickly with two Ex commands, using ":tcldo": >
 	:tcl set n 1
 	:[range]tcldo set line "$n\t$line" ; incr n
 
-This procedure runs an Ex command on each buffer (idea stolen from Ron Aaron):
+This procedure runs an Ex command on each buffer (idea stolen from Ron Aaron): >
 	proc eachbuf { cmd } {
 		foreach b [::vim::buffer list] {
 			$b command $cmd
 		}
 	}
-Use it like this:
+Use it like this: >
 	:tcl eachbuf %s/foo/bar/g
 Be careful with Tcl's string and backslash substitution, tough.  If in doubt,
 surround the Ex command with curly braces.
 
 
 If you want to add some Tcl procedures permanently to vim, just place them in
 a file (e.g. "~/.vimrc.tcl" on Unix machines), and add these lines to your
-startup file (usually "~/.vimrc" on Unix):
+startup file (usually "~/.vimrc" on Unix): >
 	if has("tcl")
 		tclfile ~/.vimrc.tcl
 	endif