Mercurial > emacs

comparison src/lread.c @ 638:40b255f55df3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sun, 10 May 1992 18:15:10 +0000
parents eca8812e61cd
children f81a3cf6ec22
comparison
equal deleted inserted replaced
637:639afe138172 638:40b255f55df3
1434 char *normal; 1434 char *normal;
1435 1435
1436 /* Compute the default load-path. */ 1436 /* Compute the default load-path. */
1437 #ifdef CANNOT_DUMP 1437 #ifdef CANNOT_DUMP
1438 normal = PATH_LOADSEARCH; 1438 normal = PATH_LOADSEARCH;
1439 Vload_path = decode_env_path ("", normal); 1439 Vload_path = decode_env_path (0, normal);
1440 #else 1440 #else
1441 if (NILP (Vpurify_flag)) 1441 if (NILP (Vpurify_flag))
1442 normal = PATH_LOADSEARCH; 1442 normal = PATH_LOADSEARCH;
1443 else 1443 else
1444 normal = PATH_DUMPLOADSEARCH; 1444 normal = PATH_DUMPLOADSEARCH;
1450 from the default before dumping, don't override that value. */ 1450 from the default before dumping, don't override that value. */
1451 if (initialized) 1451 if (initialized)
1452 { 1452 {
1453 Lisp_Object dump_path; 1453 Lisp_Object dump_path;
1454 1454
1455 dump_path = decode_env_path ("", PATH_DUMPLOADSEARCH); 1455 dump_path = decode_env_path (0, PATH_DUMPLOADSEARCH);
1456 if (! NILP (Fequal (dump_path, Vload_path))) 1456 if (! NILP (Fequal (dump_path, Vload_path)))
1457 Vload_path = decode_env_path ("", normal); 1457 Vload_path = decode_env_path (0, normal);
1458 } 1458 }
1459 else 1459 else
1460 Vload_path = decode_env_path ("", normal); 1460 Vload_path = decode_env_path (0, normal);
1461 #endif 1461 #endif
1462 1462
1463 /* Warn if dirs in the *standard* path don't exist. */ 1463 /* Warn if dirs in the *standard* path don't exist. */
1464 { 1464 {
1465 Lisp_Object path_tail; 1465 Lisp_Object path_tail;