somehow this change was not included with the last; also set drdr property for robby

svn: r18783
This commit is contained in:
Eli Barzilay 2010-04-10 19:22:19 +00:00
parent e4e3d71299
commit 20c12b6deb

View File

@ -448,7 +448,7 @@ path/s is either such a string or a list of them.
'drdr:command-line 'drdr:command-line
"command-line string (empty string means no execution)" "command-line string (empty string means no execution)"
(lambda (str) (lambda (str)
(if (regexp-match #rx"^(|.*\\$path.*)$") (if (regexp-match #rx"^(|.*~s.*)$" str)
str str
(error "expecting an empty string, or one with `~s'"))) (error "expecting an empty string, or one with `~s'")))
values) values)
@ -720,7 +720,7 @@ path/s is either such a string or a list of them.
"collects/games/cards/snipclass.ss" drdr:command-line "mred-text -t ~s" "collects/games/cards/snipclass.ss" drdr:command-line "mred-text -t ~s"
"collects/games/cards.ss" drdr:command-line "mred-text -t ~s" "collects/games/cards.ss" drdr:command-line "mred-text -t ~s"
"collects/games/chat-noir" responsible (robby matthias) "collects/games/chat-noir" responsible (robby matthias)
"collects/games/chat-noir/chat-noir-literate.ss" drdr:command-line "mzc -k ~s" "collects/games/chat-noir/chat-noir-literate.ss" drdr:command-line "mred-text ~s"
"collects/games/chat-noir/chat-noir-unit.ss" drdr:command-line "mred-text -t ~s" "collects/games/chat-noir/chat-noir-unit.ss" drdr:command-line "mred-text -t ~s"
"collects/games/checkers/checkers.ss" drdr:command-line "mred-text -t ~s" "collects/games/checkers/checkers.ss" drdr:command-line "mred-text -t ~s"
"collects/games/checkers/honu-bitmaps.ss" drdr:command-line "mred-text -t ~s" "collects/games/checkers/honu-bitmaps.ss" drdr:command-line "mred-text -t ~s"