--- a/scripts/miscellaneous/dump_prefs.m	Wed Apr 08 18:21:04 1998 +0000
+++ b/scripts/miscellaneous/dump_prefs.m	Fri Apr 10 16:51:47 1998 +0000
@@ -31,43 +31,85 @@
     file = stdout;
   endif
 
-  ## XXX FIXME XXX -- vectors of strings would be really useful here...
-  ## XXX FIXME XXX -- maybe this should be a built-in function so that we
-  ## wouldn't have to remember to update it each time the list of
-  ## preference variables changes
+  ## XXX FIXME XXX -- it would be nice to be able to get the list of
+  ## built-in variables directly from Octave so that we wouldn't have to
+  ## remember to update it each time the list of preference variables
+  ## changes
 
-  dump_1_pref (file, "EDITOR");
-  dump_1_pref (file, "IMAGEPATH");
-  dump_1_pref (file, "INFO_FILE");
-  dump_1_pref (file, "LOADPATH");
-  dump_1_pref (file, "OCTAVE_VERSION");
-  dump_1_pref (file, "PAGER");
-  dump_1_pref (file, "PS1");
-  dump_1_pref (file, "PS2");
-  dump_1_pref (file, "automatic_replot");
-  dump_1_pref (file, "whitespace_in_literal_matrix");
-  dump_1_pref (file, "default_save_format");
-  dump_1_pref (file, "do_fortran_indexing");
-  dump_1_pref (file, "empty_list_elements_ok");
-  dump_1_pref (file, "eps");
-  dump_1_pref (file, "gnuplot_binary");
-  dump_1_pref (file, "ignore_function_time_stamp");
-  dump_1_pref (file, "implicit_str_to_num_ok");
-  dump_1_pref (file, "ok_to_lose_imaginary_part");
-  dump_1_pref (file, "output_max_field_width");
-  dump_1_pref (file, "output_precision");
-  dump_1_pref (file, "page_screen_output");
-  dump_1_pref (file, "prefer_column_vectors");
-  dump_1_pref (file, "print_answer_id_name");
-  dump_1_pref (file, "print_empty_dimensions");
-  dump_1_pref (file, "propagate_empty_matrices");
-  dump_1_pref (file, "resize_on_range_error");
-  dump_1_pref (file, "return_last_computed_value");
-  dump_1_pref (file, "save_precision");
-  dump_1_pref (file, "silent_functions");
-  dump_1_pref (file, "split_long_rows");
-  dump_1_pref (file, "treat_neg_dim_as_zero");
-  dump_1_pref (file, "warn_assign_as_truth_value");
-  dump_1_pref (file, "warn_divide_by_zero");
+  var_list = ["EDITOR";
+	      "EXEC_PATH";
+	      "IMAGEPATH";
+	      "INFO_FILE";
+	      "INFO_PROGRAM";
+	      "LOADPATH";
+	      "PAGER";
+	      "PS1";
+	      "PS2";
+	      "PS4";
+	      "automatic_replot";
+	      "beep_on_error";
+	      "completion_append_char";
+	      "default_eval_print_flag";
+	      "default_global_variable_value";
+	      "default_return_value";
+	      "default_save_format";
+	      "define_all_return_values";
+	      "do_fortran_indexing";
+	      "echo_executing_commands";
+	      "empty_list_elements_ok";
+	      "fixed_point_format";
+	      "gnuplot_binary";
+	      "gnuplot_command_end";
+	      "gnuplot_command_plot";
+	      "gnuplot_command_replot";
+	      "gnuplot_command_splot";
+	      "gnuplot_command_title";
+	      "gnuplot_command_using";
+	      "gnuplot_command_with";
+	      "gnuplot_has_frames";
+	      "gnuplot_has_multiplot";
+	      "history_file";
+	      "history_size";
+	      "ignore_function_time_stamp";
+	      "implicit_num_to_str_ok";
+	      "implicit_str_to_num_ok";
+	      "initialize_global_variables";
+	      "max_recursion_depth";
+	      "ok_to_lose_imaginary_part";
+	      "output_max_field_width";
+	      "output_precision";
+	      "page_output_immediately";
+	      "page_screen_output";
+	      "prefer_column_vectors";
+	      "print_answer_id_name";
+	      "print_empty_dimensions";
+	      "print_rhs_assign_val";
+	      "propagate_empty_matrices";
+	      "resize_on_range_error";
+	      "return_last_computed_value";
+	      "save_precision";
+	      "saving_history";
+	      "silent_functions";
+	      "split_long_rows";
+	      "string_fill_char";
+	      "struct_levels_to_print";
+	      "suppress_verbose_help_message";
+	      "treat_neg_dim_as_zero";
+	      "warn_assign_as_truth_value";
+	      "warn_divide_by_zero";
+	      "warn_function_name_clash";
+	      "warn_future_time_stamp";
+	      "warn_missing_semicolon";
+	      "warn_variable_switch_label";
+	      "whitespace_in_literal_matrix"];
+
+  for i = 1:rows(var_list)
+    var = deblank (var_list(i,:));
+    try
+      fprintf (file, "  %s = %s\n", var, type ("-q", var));
+    catch
+      fprintf (file, "# %s = <no value or error in displaying it>\n", var);
+    end_try_catch
+  endfor
 
 endfunction