Mercurial > hg > xemacs-beta

comparison src/sysdep.c @ 46:6a22abad6937 r19-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15
author cvs
date Mon, 13 Aug 2007 08:55:31 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
45:7705b7aa3b8a 46:6a22abad6937
580 int pid; 580 int pid;
581 struct save_signal saved_handlers[5]; 581 struct save_signal saved_handlers[5];
582 Lisp_Object dir; 582 Lisp_Object dir;
583 unsigned char *str = 0; 583 unsigned char *str = 0;
584 int len; 584 int len;
585 struct gcpro gcpro1;
585 586
586 saved_handlers[0].code = SIGINT; 587 saved_handlers[0].code = SIGINT;
587 saved_handlers[1].code = SIGQUIT; 588 saved_handlers[1].code = SIGQUIT;
588 saved_handlers[2].code = SIGTERM; 589 saved_handlers[2].code = SIGTERM;
589 #ifdef SIGIO 590 #ifdef SIGIO
599 if (NILP (Fboundp (Qdefault_directory))) 600 if (NILP (Fboundp (Qdefault_directory)))
600 goto xyzzy; 601 goto xyzzy;
601 dir = Fsymbol_value (Qdefault_directory); 602 dir = Fsymbol_value (Qdefault_directory);
602 if (!STRINGP (dir)) 603 if (!STRINGP (dir))
603 goto xyzzy; 604 goto xyzzy;
604 605
605 dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil); 606 GCPRO1 (dir);
607 dir = Funhandled_file_name_directory (dir);
608 dir = expand_and_dir_to_file (dir, Qnil);
609 UNGCPRO;
606 str = (unsigned char *) alloca (XSTRING_LENGTH (dir) + 2); 610 str = (unsigned char *) alloca (XSTRING_LENGTH (dir) + 2);
607 len = XSTRING_LENGTH (dir); 611 len = XSTRING_LENGTH (dir);
608 memcpy (str, XSTRING_DATA (dir), len); 612 memcpy (str, XSTRING_DATA (dir), len);
609 /* #### Unix specific */ 613 /* #### Unix specific */
610 if (str[len - 1] != '/') str[len++] = '/'; 614 if (str[len - 1] != '/') str[len++] = '/';