do not lower-case command 'set sourcepath = XXX'

2018-05-27 07:56:40 +02:00 · 2018-05-27 07:56:40 +02:00 · 2f56feea4a
parent ad2047844f
commit 2f56feea4a
1 changed files with 2 additions and 1 deletions
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@ -917,7 +917,8 @@ inp_read(FILE *fp, int call_depth, char *dir_name, bool comfile, bool intfile)
                !ciprefix("source", buffer) &&
                !ciprefix("load", buffer) &&
                !ciprefix("plot", buffer) &&
-                !ciprefix("hardcopy", buffer)
+                !ciprefix("hardcopy", buffer) &&
+                !(ciprefix("set", buffer) && strstr(buffer, "sourcepath"))
                )
            {
                /* lower case for all other lines */