# HG changeset patch
# User jwe
# Date 1113507320 0
# Node ID f3266e7dbb994410269cfa0baeb52736b4273d81
# Parent  25c12c80ccc3de1d5ab44fb6d388955cf4945ea8
[project @ 2005-04-14 19:35:20 by jwe]

diff -r 25c12c80ccc3 -r f3266e7dbb99 src/ChangeLog
--- a/src/ChangeLog	Thu Apr 14 19:19:46 2005 +0000
+++ b/src/ChangeLog	Thu Apr 14 19:35:20 2005 +0000
@@ -1,5 +1,7 @@
 2005-04-14  John W. Eaton  <jwe@octave.org>
 
+	* strfns.cc (Fchar): If arg is a dq string, return a dq string.
+
 	* pt-mat.cc (Vwarn_string_concat): New static variable.
 	(symbols_of_pt_mat): DEFVAR it.
 	(warn_string_concat): New function.
diff -r 25c12c80ccc3 -r f3266e7dbb99 src/strfns.cc
--- a/src/strfns.cc	Thu Apr 14 19:19:46 2005 +0000
+++ b/src/strfns.cc	Thu Apr 14 19:35:20 2005 +0000
@@ -68,7 +68,8 @@
   int nargin = args.length ();
 
   if (nargin == 1)
-    retval = args(0).convert_to_str (true, true, '\'');
+    retval = args(0).convert_to_str (true, true,
+				     args(0).is_dq_string () ? '"' : '\'');
   else if (nargin > 1)
     {
       int n_elts = 0;