Mercurial > emacs

comparison src/sysdep.c @ 9110:c0eefdfd11f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sys_subshell): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 01:18:46 +0000
parents 2c6875700c9f
children d4ad53f37cc7
comparison
equal deleted inserted replaced
9109:6e44ddc40153 9110:c0eefdfd11f4
665 dir = intern ("default-directory"); 665 dir = intern ("default-directory");
666 /* Can't use NILP */ 666 /* Can't use NILP */
667 if (XFASTINT (Fboundp (dir)) == XFASTINT (Qnil)) 667 if (XFASTINT (Fboundp (dir)) == XFASTINT (Qnil))
668 goto xyzzy; 668 goto xyzzy;
669 dir = Fsymbol_value (dir); 669 dir = Fsymbol_value (dir);
670 if (XTYPE (dir) != Lisp_String) 670 if (!STRINGP (dir))
671 goto xyzzy; 671 goto xyzzy;
672 672
673 dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil); 673 dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil);
674 str = (unsigned char *) alloca (XSTRING (dir)->size + 2); 674 str = (unsigned char *) alloca (XSTRING (dir)->size + 2);
675 len = XSTRING (dir)->size; 675 len = XSTRING (dir)->size;