home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / emacs-15.0.3 / README_Franz < prev    next >
Lisp/Scheme  |  1990-07-19  |  11KB  |  380 lines

  1.  
  2. The following diffs represent the changes made by Franz Inc. to the
  3. standard GNU Emacs 18.53 [from prep.ai.mit.edu on 4/14/89 in the
  4. directory /u2/emacs, file emacs-18.53.tar.Z].  The changes were either
  5. to fix bugs in GNU Emacs or to add features necessary for the
  6. Emacs/Lisp interface.
  7.  
  8.     Kevin Layer
  9.     Franz Inc.
  10.     5/23/89
  11.  
  12. ============================= ./etc/server.c
  13. 68a69
  14. >   char *server_file;
  15. 87,93c88,97
  16. <   if ((homedir = getenv ("HOME")) == NULL)
  17. <     {
  18. <       fprintf (stderr,"No home directory\n");
  19. <       exit (1);
  20. <     }
  21. <   strcpy (server.sun_path, homedir);
  22. <   strcat (server.sun_path, "/.emacs_server");
  23. ---
  24. >   if ((server_file = getenv ("EMACS_SERVER")) != NULL) {
  25. >       strcat (server.sun_path, server_file);
  26. >   } else {
  27. >       if ((homedir = getenv ("HOME")) == NULL) {
  28. >       fprintf (stderr,"No home directory\n");
  29. >       exit (1);
  30. >       }
  31. >       strcpy (server.sun_path, homedir);
  32. >       strcat (server.sun_path, "/.emacs_server");
  33. >   }
  34. ============================= ./etc/emacsclient.c
  35. 59a60
  36. >   char *server_file;
  37. 79,85c80,89
  38. <   if ((homedir = getenv ("HOME")) == NULL)
  39. <     {
  40. <       fprintf (stderr, "No home directory\n");
  41. <       exit (1);
  42. <     }
  43. <   strcpy (server.sun_path, homedir);
  44. <   strcat (server.sun_path, "/.emacs_server");
  45. ---
  46. >   if ((server_file = getenv ("EMACS_SERVER")) != NULL) {
  47. >       strcat (server.sun_path, server_file);
  48. >   } else {
  49. >       if ((homedir = getenv ("HOME")) == NULL) {
  50. >       fprintf (stderr,"No home directory\n");
  51. >       exit (1);
  52. >       }
  53. >       strcpy (server.sun_path, homedir);
  54. >       strcat (server.sun_path, "/.emacs_server");
  55. >   }
  56. ============================= ./lisp/loadup.el
  57. 115c115,117
  58. <     (message "Dumping under names xemacs and %s" name))
  59. ---
  60. >     (message "Dumping under name xemacs")
  61. > ;;    (message "Dumping under names xemacs and %s" name)
  62. >     )
  63. 121,126c123,128
  64. <       (let ((name (concat "emacs-" emacs-version)))
  65. <     (while (string-match "[^-+_.a-zA-Z0-9]+" name)
  66. <       (setq name (concat (downcase (substring name 0 (match-beginning 0)))
  67. <                  "-"
  68. <                  (substring name (match-end 0)))))
  69. <     (add-name-to-file "xemacs" name t))
  70. ---
  71. > ;;    (let ((name (concat "emacs-" emacs-version)))
  72. > ;;    (while (string-match "[^-+_.a-zA-Z0-9]+" name)
  73. > ;;      (setq name (concat (downcase (substring name 0 (match-beginning 0)))
  74. > ;;                 "-"
  75. > ;;                 (substring name (match-end 0)))))
  76. > ;;    (add-name-to-file "xemacs" name t))
  77. ============================= ./src/emacs.c
  78. 227,231d226
  79. < #ifdef BSD
  80. <   /* interrupt_input has trouble if we aren't in a separate process group.  */
  81. <   setpgrp (getpid (), getpid ());
  82. < #endif
  83. ============================= ./src/malloc.c
  84. 580c580
  85. <   if ((p = (struct mhead *) mem) == 0)
  86. ---
  87. >   if (mem == 0)
  88. 582c582
  89. <   p -= (8 / sizeof (struct mhead));
  90. ---
  91. >   p = (struct mhead *) (mem - ((sizeof *p + 7) & ~7));
  92. 600c600
  93. <   nbytes = (n + sizeof *p + EXTRA + 7) & ~7;
  94. ---
  95. >   nbytes = (n + ((sizeof *p + 7) & ~7) + EXTRA + 7) & ~7;
  96. ============================= ./src/process.c
  97. 686a687,697
  98. > DEFUN ("process-kill-without-query-p", Fprocess_kill_without_query_p,
  99. >   Sprocess_kill_without_query_p, 1, 1, 0,
  100. >   "Return t or nil, depending on whether or not PROCESS will be killed\n\
  101. > without query.")
  102. >   (proc)
  103. >      register Lisp_Object proc;
  104. > {
  105. >   CHECK_PROCESS (proc, 0);
  106. >   return XPROCESS (proc)->kill_without_query;
  107. > }
  108. 1064a1076,1079
  109. > #ifdef HAVE_UNIX_DOMAIN
  110. > #include <sys/un.h>
  111. > #endif HAVE_UNIX_DOMAIN
  112. 1066c1081,1082
  113. <        4, 4, 0, 
  114. ---
  115. >        4, 4, 0,
  116. > #ifdef HAVE_UNIX_DOMAIN
  117. 1070a1087,1088
  118. > If SERVICE is 0, then HOST is taken to be the name of a socket file, and a\n\
  119. > Unix domain socket is opened.\n\
  120. 1079c1097,1113
  121. <  specifying a port number to connect to.")
  122. ---
  123. >  specifying a port number to connect to."
  124. > #else
  125. >   "Open a TCP connection for a service to a host.\n\
  126. > Returns a subprocess-object to represent the connection.\n\
  127. > Input and output work as for subprocesses; `delete-process' closes it.\n\
  128. > Args are NAME BUFFER HOST SERVICE.\n\
  129. > NAME is name for process.  It is modified if necessary to make it unique.\n\
  130. > BUFFER is the buffer (or buffer-name) to associate with the process.\n\
  131. >  Process output goes at end of that buffer, unless you specify\n\
  132. >  an output stream or filter function to handle the output.\n\
  133. >  BUFFER may be also nil, meaning that this process is not associated\n\
  134. >  with any buffer\n\
  135. > Third arg is name of the host to connect to.\n\
  136. > Fourth arg SERVICE is name of the service desired, or an integer\n\
  137. >  specifying a port number to connect to."
  138. > #endif HAVE_UNIX_DOMAIN
  139. >        )
  140. 1085a1120,1123
  141. > #ifdef HAVE_UNIX_DOMAIN
  142. >   struct sockaddr_un server;
  143. >   int unix_domain = 0;
  144. > #endif HAVE_UNIX_DOMAIN
  145. 1095c1133,1140
  146. <     port = htons ((unsigned short) XINT (service));
  147. ---
  148. >     {
  149. > #ifdef HAVE_UNIX_DOMAIN
  150. >     if (XINT (service) == 0)
  151. >       unix_domain = 1;
  152. >     else
  153. > #endif HAVE_UNIX_DOMAIN
  154. >       port = htons ((unsigned short) XINT (service));
  155. >     }
  156. 1105,1107c1150,1161
  157. <   host_info = gethostbyname (XSTRING (host)->data);
  158. <   if (host_info == 0)
  159. <     error ("Unknown host \"%s\"", XSTRING(host)->data);
  160. ---
  161. > #ifdef HAVE_UNIX_DOMAIN
  162. >   if (unix_domain)
  163. >     {
  164. >     server.sun_family = AF_UNIX;
  165. >     strcpy (server.sun_path, XSTRING (host)->data);
  166. >     }
  167. >   else
  168. > #endif HAVE_UNIX_DOMAIN
  169. >     {
  170. >     host_info = gethostbyname (XSTRING (host)->data);
  171. >     if (host_info == 0)
  172. >       error ("Unknown host \"%s\"", XSTRING(host)->data);
  173. 1109,1112c1163,1167
  174. <   bzero (&address, sizeof address);
  175. <   bcopy (host_info->h_addr, (char *) &address.sin_addr, host_info->h_length);
  176. <   address.sin_family = host_info->h_addrtype;
  177. <   address.sin_port = port;
  178. ---
  179. >     bzero (&address, sizeof address);
  180. >     bcopy (host_info->h_addr, (char *) &address.sin_addr, host_info->h_length);
  181. >     address.sin_family = host_info->h_addrtype;
  182. >     address.sin_port = port;
  183. >     }
  184. 1114,1115c1169,1176
  185. <   s = socket (host_info->h_addrtype, SOCK_STREAM, 0);
  186. <   if (s < 0) 
  187. ---
  188. > #ifdef HAVE_UNIX_DOMAIN
  189. >   if (unix_domain)
  190. >     s = socket (AF_UNIX, SOCK_STREAM, 0);
  191. >   else
  192. > #endif HAVE_UNIX_DOMAIN
  193. >     s = socket (host_info->h_addrtype, SOCK_STREAM, 0);
  194. >   
  195. >   if (s < 0)
  196. 1118,1119c1179,1190
  197. <   if (connect (s, &address, sizeof address) == -1)
  198. <     error ("Host \"%s\" not responding", XSTRING (host)->data);
  199. ---
  200. > #ifdef HAVE_UNIX_DOMAIN
  201. >   if (unix_domain)
  202. >     {
  203. >     if (connect (s, &server, strlen (server.sun_path) + 2) < 0)
  204. >       error ("connect failed for socket: \"%s\"", XSTRING (host)->data);
  205. >     }
  206. >   else
  207. > #endif HAVE_UNIX_DOMAIN
  208. >     {
  209. >     if (connect (s, &address, sizeof address) == -1)
  210. >       error ("Host \"%s\" not responding", XSTRING (host)->data);
  211. >     }
  212. 1199c1270
  213. <   0, 1, 0,
  214. ---
  215. >   0, 2, 0,
  216. 1203,1205c1274,1277
  217. < from PROCESS.")
  218. <   (proc)
  219. <      register Lisp_Object proc;
  220. ---
  221. > from PROCESS.  Non-nil arg TIMEOUT means wait for that many seconds, -1\n\
  222. > return immediately.")
  223. >   (proc, timeout)
  224. >      register Lisp_Object proc, timeout;
  225. 1207,1208c1279,1285
  226. <   if (NULL (proc))
  227. <     wait_reading_process_input (-1, 0, 0);
  228. ---
  229. >   if (NULL (proc)) {
  230. >       if (XTYPE(timeout) == Lisp_Int)
  231. >         timeout = XINT(timeout);
  232. >       else
  233. >         timeout = -1;
  234. >       wait_reading_process_input (timeout, 0, 0);
  235. >     }
  236. 1210a1288,1291
  237. >       if (XTYPE(timeout) == Lisp_Int)
  238. >         timeout = XINT(timeout);
  239. >       else
  240. >         timeout = 0;
  241. 1212c1293
  242. <       wait_reading_process_input (0, XPROCESS (proc), 0);
  243. ---
  244. >       wait_reading_process_input (timeout, XPROCESS (proc), 0);
  245. 2169a2251
  246. >   defsubr (&Sprocess_kill_without_query_p);
  247. ============================= ./src/s-bsd4-3.h
  248. 77a78,84
  249. >  * Define HAVE_UNIX_DOMAIN is system supports 4.2-compatible UNIX
  250. >  * domain sockets.
  251. >  */
  252. > #define HAVE_UNIX_DOMAIN
  253. > /*
  254. ============================= ./src/s-bsd4-2.h
  255. 77a78,84
  256. >  * Define HAVE_UNIX_DOMAIN is system supports 4.2-compatible UNIX
  257. >  * domain sockets.
  258. >  */
  259. > #define HAVE_UNIX_DOMAIN
  260. > /*
  261. ============================= ./src/s-rtu.h
  262. 90a91,97
  263. >  * Define HAVE_UNIX_DOMAIN is system supports 4.2-compatible UNIX
  264. >  * domain sockets.
  265. >  */
  266. > #define HAVE_UNIX_DOMAIN
  267. > /*
  268. ============================= ./src/s-hpux.h
  269. 90a91,97
  270. >  * Define HAVE_UNIX_DOMAIN is system supports 4.2-compatible UNIX
  271. >  * domain sockets.
  272. >  */
  273. > #define HAVE_UNIX_DOMAIN
  274. > /*
  275. ============================= ./src/syntax.c
  276. 510a511
  277. >             case Squote:    /* DKL 5/23/89 */
  278. 1031a1033,1034
  279. > Lisp_Object Vparse_partial_sexp_result;
  280. 1036a1040
  281. >   Lisp_Object val1, val2, val3, val4, val5, val6, val7;
  282. 1054,1060c1058,1085
  283. <   return Fcons (make_number (state.depth),
  284. <        Fcons (state.prevlevelstart < 0 ? Qnil : make_number (state.prevlevelstart),
  285. <          Fcons (state.thislevelstart < 0 ? Qnil : make_number (state.thislevelstart),
  286. <            Fcons (state.instring >= 0 ? make_number (state.instring) : Qnil,
  287. <          Fcons (state.incomment ? Qt : Qnil,
  288. <            Fcons (state.quoted ? Qt : Qnil,
  289. <               Fcons (make_number (state.mindepth), Qnil)))))));
  290. ---
  291. >   val1 = make_number (state.depth);
  292. >   val2 = state.prevlevelstart < 0 ? Qnil : make_number (state.prevlevelstart);
  293. >   val3 = state.thislevelstart < 0 ? Qnil : make_number (state.thislevelstart);
  294. >   val4 = state.instring >= 0 ? make_number (state.instring) : Qnil;
  295. >   val5 = state.incomment ? Qt : Qnil;
  296. >   val6 = state.quoted ? Qt : Qnil;
  297. >   val7 = make_number (state.mindepth);
  298. >   if (NULL (Vparse_partial_sexp_result))
  299. >     return Fcons (val1,
  300. >          Fcons (val2, 
  301. >            Fcons (val3,
  302. >          Fcons (val4,
  303. >            Fcons (val5,
  304. >              Fcons (val6,
  305. >                Fcons (val7, Qnil)))))));
  306. >   else
  307. >     {
  308. >       Lisp_Object xx = Vparse_partial_sexp_result;
  309. >       Fsetcar(xx, val1), xx = Fcdr(xx);
  310. >       Fsetcar(xx, val2), xx = Fcdr(xx);
  311. >       Fsetcar(xx, val3), xx = Fcdr(xx);
  312. >       Fsetcar(xx, val4), xx = Fcdr(xx);
  313. >       Fsetcar(xx, val5), xx = Fcdr(xx);
  314. >       Fsetcar(xx, val6), xx = Fcdr(xx);
  315. >       Fsetcar(xx, val7), xx = Fcdr(xx);
  316. >       return Vparse_partial_sexp_result;
  317. >     }
  318. 1133a1159,1163
  319. >   Vparse_partial_sexp_result = Qnil;
  320. >   DEFVAR_LISP ("parse-partial-sexp-result", &Vparse_partial_sexp_result,
  321. >     "If non-nil, it should be a list of length 7.");
  322. ============================= ./src/ymakefile
  323. 135c135
  324. < CFLAGS= C_DEBUG_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM
  325. ---
  326. > CFLAGS= C_OPTIMIZE_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM
  327. 273c273
  328. <     ./temacs -batch -l inc-vers
  329. ---
  330. >     /* ./temacs -batch -l inc-vers */
  331. ============================= ./src/m-news800.h
  332. 74c74
  333. < #define SEGMENT_MASK (SEGSIZ - 1)
  334. ---
  335. > /* #define SEGMENT_MASK (SEGSIZ - 1) */
  336. 76,77c76
  337. < /* No sigmask defined anywhere else that I know of. */
  338. < #define sigmask(n) (1 << ((n) - 1))
  339. ---
  340. > /* the following is not needed on NEWS-OS Release 3.2 (4.3BSD compatible) */
  341. 78a78
  342. > /* #define sigmask(n) (1 << ((n) - 1)) */
  343. ============================= ./src/fileio.c
  344. 1365a1366,1380
  345. > DEFUN ("file-size", Ffile_size, Sfile_size, 1, 1, 0,
  346. >   "Return the size of FILE, as an integer.")
  347. >   (filename)
  348. >      Lisp_Object filename;
  349. > {
  350. >   Lisp_Object abspath;
  351. >   struct stat st;
  352. >   abspath = expand_and_dir_to_file (filename, bf_cur->directory);
  353. >   if (stat (XSTRING (abspath)->data, &st) < 0)
  354. >     return Qnil;
  355. >   return make_number (st.st_size);
  356. > }
  357. 2169a2185
  358. >   defsubr (&Sfile_size);
  359. ============================= ./src/x11term.c
  360. 87d86
  361. < #include <sys/time.h>
  362.