Mercurial > hg > xemacs-beta

comparison src/sysdep.c @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 360340f9fd5f
children 25f70ba0133c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
586 int pid; 586 int pid;
587 struct save_signal saved_handlers[5]; 587 struct save_signal saved_handlers[5];
588 Lisp_Object dir; 588 Lisp_Object dir;
589 unsigned char *str = 0; 589 unsigned char *str = 0;
590 int len; 590 int len;
591 struct gcpro gcpro1;
591 592
592 saved_handlers[0].code = SIGINT; 593 saved_handlers[0].code = SIGINT;
593 saved_handlers[1].code = SIGQUIT; 594 saved_handlers[1].code = SIGQUIT;
594 saved_handlers[2].code = SIGTERM; 595 saved_handlers[2].code = SIGTERM;
595 #ifdef SIGIO 596 #ifdef SIGIO
605 if (NILP (Fboundp (Qdefault_directory))) 606 if (NILP (Fboundp (Qdefault_directory)))
606 goto xyzzy; 607 goto xyzzy;
607 dir = Fsymbol_value (Qdefault_directory); 608 dir = Fsymbol_value (Qdefault_directory);
608 if (!STRINGP (dir)) 609 if (!STRINGP (dir))
609 goto xyzzy; 610 goto xyzzy;
610 611
611 dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil); 612 GCPRO1 (dir);
613 dir = Funhandled_file_name_directory (dir);
614 dir = expand_and_dir_to_file (dir, Qnil);
615 UNGCPRO;
612 str = (unsigned char *) alloca (XSTRING_LENGTH (dir) + 2); 616 str = (unsigned char *) alloca (XSTRING_LENGTH (dir) + 2);
613 len = XSTRING_LENGTH (dir); 617 len = XSTRING_LENGTH (dir);
614 memcpy (str, XSTRING_DATA (dir), len); 618 memcpy (str, XSTRING_DATA (dir), len);
615 /* #### Unix specific */ 619 /* #### Unix specific */
616 if (str[len - 1] != '/') str[len++] = '/'; 620 if (str[len - 1] != '/') str[len++] = '/';