mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-30 02:33:03 -07:00
Code Issues Projects Releases Wiki Activity

Allow flag defaults

Browse source 
Copied from Perforce
 Change: 18978
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1997-11-12 16:34:51 +00:00
parent 8076108ec6
commit d012c8ad06
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/qa/test/script/optproc
View file

@ -110,10 +110,12 @@ sub optioncode {
}
sub applydefaults {
local ($opt, $val);
local ($opt, $val, %arr);
foreach (keys %qa_options) {
$opt = $qa_options{$_};
%arr = (%qa_options, %qa_flags);
foreach (keys %arr) {
$opt = ($qa_options{$_} || $qa_flags{$_});
unless (&getoption($opt)) {
$val = $ENV{"MMQA_".$opt};
unless ($val) {