home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / e20313in.zip / emacs / 20.3.1 / emx / patches.emx < prev    next >
Text File  |  1996-08-19  |  139KB  |  4,716 lines
  1. diff -c emacs-19\lib-src\etags.c:1.1.1.33 emacs-19\lib-src\etags.c:1.45
  2. *** emacs-19\lib-src\etags.c:1.1.1.33    Sun Aug 18 23:21:48 1996
  3. --- emacs-19\lib-src\etags.c    Sun Aug 18 23:21:48 1996
  4. ***************
  5. *** 18,23 ****
  6. --- 18,25 ----
  7.   along with this program; if not, write to the Free Software Foundation,
  8.   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
  9.   
  10. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  11. + 
  12.   /*
  13.    * Authors:
  14.    *    Ctags originally by Ken Arnold.
  15. ***************
  16. *** 70,75 ****
  17. --- 72,81 ----
  18.   #include <sys/types.h>
  19.   #include <sys/stat.h>
  20.   
  21. + #ifdef EMX
  22. + #include <string.h>
  23. + #endif /* EMX */
  24. + 
  25.   #if !defined (S_ISREG) && defined (S_IFREG)
  26.   # define S_ISREG(m)    (((m) & S_IFMT) == S_IFREG)
  27.   #endif
  28. ***************
  29. *** 114,120 ****
  30.   #define    intoken(arg)    (_itk[arg])    /* T if char can be in token    */
  31.   #define    endtoken(arg)    (_etk[arg])    /* T if char ends tokens    */
  32.   
  33. ! #ifdef DOS_NT
  34.   # define absolutefn(fn) (fn[0] == '/' \
  35.                || (fn[1] == ':' && fn[2] == '/'))
  36.   #else
  37. --- 120,126 ----
  38.   #define    intoken(arg)    (_itk[arg])    /* T if char can be in token    */
  39.   #define    endtoken(arg)    (_etk[arg])    /* T if char ends tokens    */
  40.   
  41. ! #if defined (DOS_NT) || defined (EMX)
  42.   # define absolutefn(fn) (fn[0] == '/' \
  43.                || (fn[1] == ':' && fn[2] == '/'))
  44.   #else
  45. ***************
  46. *** 715,720 ****
  47. --- 721,730 ----
  48.   
  49.     progname = argv[0];
  50.   
  51. + #ifdef EMX
  52. +   _wildcard (&argc, &argv);
  53. + #endif /* EMX */
  54. + 
  55.     /* Allocate enough no matter what happens.  Overkill, but each one
  56.        is small. */
  57.     argbuffer = xnew (argc, argument);
  58. ***************
  59. *** 4332,4337 ****
  60. --- 4342,4357 ----
  61.   char *
  62.   etags_getcwd ()
  63.   {
  64. + #ifdef EMX
  65. +   char cwd[270];
  66. +   int i;
  67. + 
  68. +   getcwd (cwd, sizeof (cwd));
  69. +   i = strlen (cwd);
  70. +   if (i > 0 && cwd[i-1] == '/')
  71. +     cwd[i-1] = 0;
  72. +   return strdup (cwd);
  73. + #else /* not EMX */
  74.   #ifdef MSDOS
  75.     char *p, path[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS.  */
  76.   
  77. ***************
  78. *** 4370,4375 ****
  79. --- 4390,4396 ----
  80.     return path.buffer;
  81.   #endif /* not HAVE_GETCWD */
  82.   #endif /* not MSDOS */
  83. + #endif /* not EMX */
  84.   }
  85.   
  86.   /* Return a newly allocated string containing the filename
  87. diff -c emacs-19\lib-src\hexl.c:1.1.1.7 emacs-19\lib-src\hexl.c:1.22
  88. *** emacs-19\lib-src\hexl.c:1.1.1.7    Sun Aug 18 23:21:48 1996
  89. --- emacs-19\lib-src\hexl.c    Sun Aug 18 23:21:48 1996
  90. ***************
  91. *** 1,3 ****
  92. --- 1,5 ----
  93. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  94. + 
  95.   #include <stdio.h>
  96.   #include <ctype.h>
  97.   #ifdef DOS_NT
  98. ***************
  99. *** 35,40 ****
  100. --- 37,47 ----
  101.   
  102.     progname = *argv++; --argc;
  103.   
  104. + #ifdef EMX
  105. +     setvbuf (stdin, NULL, _IOFBF, BUFSIZ);
  106. +     setvbuf (stdout, NULL, _IOFBF, BUFSIZ);
  107. + #endif /* EMX */
  108. + 
  109.     /*
  110.      ** -hex        hex dump
  111.      ** -oct        Octal dump
  112. ***************
  113. *** 148,153 ****
  114. --- 155,163 ----
  115.         _setmode (fileno (stdout), O_BINARY);
  116.   #endif
  117.   #endif
  118. + #ifdef EMX
  119. +       _fsetmode (stdout, "b");
  120. + #endif /* EMX */
  121.         for (;;)
  122.           {
  123.             register int i, c, d;
  124. ***************
  125. *** 197,202 ****
  126. --- 207,215 ----
  127.         _setmode (fileno (fp), O_BINARY);
  128.   #endif
  129.   #endif
  130. + #ifdef EMX
  131. +       _fsetmode (fp, "b");
  132. + #endif /* EMX */
  133.         address = 0;
  134.         string[0] = ' ';
  135.         string[17] = '\0';
  136. diff -c emacs-19\lib-src\make-docfile.c:1.1.1.16 emacs-19\lib-src\make-docfile.c:1.32
  137. *** emacs-19\lib-src\make-docfile.c:1.1.1.16    Sun Aug 18 23:21:48 1996
  138. --- emacs-19\lib-src\make-docfile.c    Sun Aug 18 23:21:50 1996
  139. ***************
  140. *** 18,23 ****
  141. --- 18,25 ----
  142.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  143.   Boston, MA 02111-1307, USA.  */
  144.   
  145. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  146. + 
  147.   /* The arguments given to this program are all the C and Lisp source files
  148.    of GNU Emacs.  .elc and .el and .c files are allowed.
  149.    A .o file can also be specified; the .c file it was made from is used.
  150. ***************
  151. *** 45,50 ****
  152. --- 47,56 ----
  153.   #include <direct.h>
  154.   #endif /* WINDOWSNT */
  155.   
  156. + #ifdef EMX
  157. + #define READ_TEXT "rt"
  158. + #define READ_BINARY "rb"
  159. + #else /* not EMX */
  160.   #ifdef DOS_NT
  161.   #define READ_TEXT "rt"
  162.   #define READ_BINARY "rb"
  163. ***************
  164. *** 52,57 ****
  165. --- 58,64 ----
  166.   #define READ_TEXT "r"
  167.   #define READ_BINARY "r"
  168.   #endif /* not DOS_NT */
  169. + #endif /* not EMX */
  170.   
  171.   int scan_file ();
  172.   int scan_lisp_file ();
  173. ***************
  174. *** 131,136 ****
  175. --- 138,146 ----
  176.     _fmode = O_BINARY;
  177.     _setmode (fileno (stdout), O_BINARY);
  178.   #endif /* WINDOWSNT */
  179. + #ifdef EMX
  180. +   _wildcard (&argc, &argv);
  181. + #endif /* EMX */
  182.   
  183.     /* If first two args are -o FILE, output to FILE.  */
  184.     i = 1;
  185. ***************
  186. *** 152,157 ****
  187. --- 162,171 ----
  188.   
  189.     if (outfile == 0)
  190.       fatal ("No output file specified", "");
  191. + 
  192. + #ifdef EMX
  193. +   _fsetmode (outfile, "b");
  194. + #endif /* EMX */
  195.   
  196.     first_infile = i;
  197.     for (; i < argc; i++)
  198. diff -c emacs-19\lib-src\profile.c:1.1.1.7 emacs-19\lib-src\profile.c:1.17
  199. *** emacs-19\lib-src\profile.c:1.1.1.7    Sun Aug 18 23:21:50 1996
  200. --- emacs-19\lib-src\profile.c    Sun Aug 18 23:21:50 1996
  201. ***************
  202. *** 20,25 ****
  203. --- 20,26 ----
  204.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  205.   Boston, MA 02111-1307, USA.  */
  206.   
  207. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  208.   
  209.   /**
  210.    **  To be run as an emacs process. Input string that starts with:
  211. ***************
  212. *** 83,88 ****
  213. --- 84,92 ----
  214.   main ()
  215.   {
  216.     int c;
  217. + #ifdef EMX
  218. +   setvbuf (stdout, NULL, _IOLBF, BUFSIZ);
  219. + #endif
  220.     while ((c = getchar ()) != EOF)
  221.       {
  222.         switch (c)
  223. diff -c emacs-19\lisp\ange-ftp.el:1.1.1.33 emacs-19\lisp\ange-ftp.el:1.13
  224. *** emacs-19\lisp\ange-ftp.el:1.1.1.33    Sun Aug 18 23:22:10 1996
  225. --- emacs-19\lisp\ange-ftp.el    Sun Aug 18 23:22:10 1996
  226. ***************
  227. *** 1,5 ****
  228. --- 1,7 ----
  229.   ;;; ange-ftp.el --- transparent FTP support for GNU Emacs
  230.   
  231. + ;;; Modified for emx by Eberhard Mattes, Aug 1996
  232. + 
  233.   ;; Copyright (C) 1989,90,91,92,93,94,95,96  Free Software Foundation, Inc.
  234.   
  235.   ;; Author: Andy Norman (ange@hplb.hpl.hp.com)
  236. ***************
  237. *** 2854,2860 ****
  238.         ;; If name starts with //, preserve that, for apollo system.
  239.         (if (not (string-match "^//" name))
  240.             (progn
  241. !         (setq name (ange-ftp-real-expand-file-name name))
  242.   
  243.           (if (string-match "^//" name)
  244.               (setq name (substring name 1)))))
  245. --- 2856,2862 ----
  246.         ;; If name starts with //, preserve that, for apollo system.
  247.         (if (not (string-match "^//" name))
  248.             (progn
  249. !         (setq name (ange-ftp-remote-expand-file-name name))
  250.   
  251.           (if (string-match "^//" name)
  252.               (setq name (substring name 1)))))
  253. ***************
  254. *** 2863,2871 ****
  255.         (ange-ftp-replace-name-component n name))
  256.         
  257.         ;; non-ange-ftp name.  Just expand normally.
  258. !       (if (eq (string-to-char n) ?/)
  259.         (ange-ftp-real-expand-file-name n)
  260. !     (ange-ftp-real-expand-file-name
  261.        (ange-ftp-real-file-name-nondirectory n)
  262.        (ange-ftp-real-file-name-directory n))))))
  263.   
  264. --- 2865,2873 ----
  265.         (ange-ftp-replace-name-component n name))
  266.         
  267.         ;; non-ange-ftp name.  Just expand normally.
  268. !       (if (file-name-absolute-p n)
  269.         (ange-ftp-real-expand-file-name n)
  270. !     (ange-ftp-remote-expand-file-name
  271.        (ange-ftp-real-file-name-nondirectory n)
  272.        (ange-ftp-real-file-name-directory n))))))
  273.   
  274. ***************
  275. *** 2879,2885 ****
  276.                 (setq name (substring name (1- (match-end 0))))))))
  277.       (cond ((eq (string-to-char name) ?~)
  278.          (ange-ftp-real-expand-file-name name))
  279. !       ((eq (string-to-char name) ?/)
  280.          (ange-ftp-canonize-filename name))
  281.         ((zerop (length name))
  282.          (ange-ftp-canonize-filename (or default default-directory)))
  283. --- 2881,2887 ----
  284.                 (setq name (substring name (1- (match-end 0))))))))
  285.       (cond ((eq (string-to-char name) ?~)
  286.          (ange-ftp-real-expand-file-name name))
  287. !       ((file-name-absolute-p name)
  288.          (ange-ftp-canonize-filename name))
  289.         ((zerop (length name))
  290.          (ange-ftp-canonize-filename (or default default-directory)))
  291. ***************
  292. *** 3957,3962 ****
  293. --- 3959,3968 ----
  294.                 inhibit-file-name-handlers))))
  295.       (inhibit-file-name-operation operation))
  296.       (apply operation args)))
  297. + 
  298. + (defun ange-ftp-remote-expand-file-name (name &optional default)
  299. +   (let ((remote-expand-file-name t))
  300. +     (ange-ftp-real-expand-file-name name default)))
  301.   
  302.   (defun ange-ftp-real-file-name-directory (&rest args)
  303.     (ange-ftp-run-real-handler 'file-name-directory args))
  304. diff -c emacs-19\lisp\compile.el:1.1.1.33 emacs-19\lisp\compile.el:1.41
  305. *** emacs-19\lisp\compile.el:1.1.1.33    Sun Aug 18 23:22:12 1996
  306. --- emacs-19\lisp\compile.el    Sun Aug 18 23:22:12 1996
  307. ***************
  308. *** 1,5 ****
  309. --- 1,7 ----
  310.   ;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
  311.   
  312. + ;;; Modified for emx by Eberhard Mattes, Aug 1996
  313. + 
  314.   ;; Copyright (C) 1985, 86, 87, 93, 94, 1995, 1996 Free Software Foundation, Inc.
  315.   
  316.   ;; Author: Roland McGrath <roland@prep.ai.mit.edu>
  317. ***************
  318. *** 442,447 ****
  319. --- 444,450 ----
  320.       ;; Start the compilation.
  321.       (if (fboundp 'start-process)
  322.           (let* ((process-environment (cons "EMACS=t" process-environment))
  323. +            (process-connection-type nil) ; emx
  324.              (proc (start-process-shell-command (downcase mode-name)
  325.                                 outbuf
  326.                                 command)))
  327. diff -c emacs-19\lisp\dired-aux.el:1.1.1.24 emacs-19\lisp\dired-aux.el:1.14
  328. *** emacs-19\lisp\dired-aux.el:1.1.1.24    Sun Aug 18 23:22:12 1996
  329. --- emacs-19\lisp\dired-aux.el    Sun Aug 18 23:22:12 1996
  330. ***************
  331. *** 1,5 ****
  332. --- 1,7 ----
  333.   ;;; dired-aux.el --- less commonly used parts of dired  -*-byte-compile-dynamic: t;-*-
  334.   
  335. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  336. + 
  337.   ;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
  338.   
  339.   ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>.
  340. ***************
  341. *** 117,123 ****
  342.   (defun dired-do-chgrp (&optional arg)
  343.     "Change the group of the marked (or next ARG) files."
  344.     (interactive "P")
  345. !   (if (memq system-type '(ms-dos windows-nt))
  346.         (error "chgrp not supported on this system."))
  347.     (dired-do-chxxx "Group" "chgrp" 'chgrp arg))
  348.   
  349. --- 119,125 ----
  350.   (defun dired-do-chgrp (&optional arg)
  351.     "Change the group of the marked (or next ARG) files."
  352.     (interactive "P")
  353. !   (if (memq system-type '(ms-dos windows-nt emx))
  354.         (error "chgrp not supported on this system."))
  355.     (dired-do-chxxx "Group" "chgrp" 'chgrp arg))
  356.   
  357. ***************
  358. *** 125,131 ****
  359.   (defun dired-do-chown (&optional arg)
  360.     "Change the owner of the marked (or next ARG) files."
  361.     (interactive "P")
  362. !   (if (memq system-type '(ms-dos windows-nt))
  363.         (error "chown not supported on this system."))
  364.     (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
  365.   
  366. --- 127,133 ----
  367.   (defun dired-do-chown (&optional arg)
  368.     "Change the owner of the marked (or next ARG) files."
  369.     (interactive "P")
  370. !   (if (memq system-type '(ms-dos windows-nt emx))
  371.         (error "chown not supported on this system."))
  372.     (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
  373.   
  374. diff -c emacs-19\lisp\facemenu.el:1.1.1.13 emacs-19\lisp\facemenu.el:1.17
  375. *** emacs-19\lisp\facemenu.el:1.1.1.13    Sun Aug 18 23:22:14 1996
  376. --- emacs-19\lisp\facemenu.el    Sun Aug 18 23:22:14 1996
  377. ***************
  378. *** 1,6 ****
  379. --- 1,7 ----
  380.   ;;; facemenu.el --- create a face menu for interactively adding fonts to text
  381.   
  382.   ;; Copyright (c) 1994, 1995, 1996 Free Software Foundation, Inc.
  383. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  384.   
  385.   ;; Author: Boris Goldowsky <boris@gnu.ai.mit.edu>
  386.   ;; Keywords: faces
  387. ***************
  388. *** 491,497 ****
  389.   color names mean.  It returns nil if the colors differ or if it can't
  390.   determine the correct answer."
  391.     (cond ((equal a b) t)
  392. !     ((and (or (eq window-system 'x) (eq window-system 'win32))
  393.             (equal (x-color-values a) (x-color-values b))))
  394.       ((eq window-system 'pc)
  395.        (and (x-color-defined-p a) (x-color-defined-p b)
  396. --- 492,498 ----
  397.   color names mean.  It returns nil if the colors differ or if it can't
  398.   determine the correct answer."
  399.     (cond ((equal a b) t)
  400. !     ((and (memq window-system '(x win32 pm))
  401.             (equal (x-color-values a) (x-color-values b))))
  402.       ((eq window-system 'pc)
  403.        (and (x-color-defined-p a) (x-color-defined-p b)
  404. diff -c emacs-19\lisp\faces.el:1.1.1.31 emacs-19\lisp\faces.el:1.47
  405. *** emacs-19\lisp\faces.el:1.1.1.31    Sun Aug 18 23:22:14 1996
  406. --- emacs-19\lisp\faces.el    Sun Aug 18 23:22:14 1996
  407. ***************
  408. *** 1,6 ****
  409. --- 1,7 ----
  410.   ;;; faces.el --- Lisp interface to the c "face" structure
  411.   
  412.   ;; Copyright (C) 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
  413. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  414.   
  415.   ;; This file is part of GNU Emacs.
  416.   
  417. ***************
  418. *** 365,371 ****
  419.           (setq frames (cdr frames)))
  420.         (setq global-face-data (cons (cons name face) global-face-data)))
  421.       ;; when making a face after frames already exist
  422. !     (if (or (eq window-system 'x) (eq window-system 'win32))
  423.           (make-face-x-resource-internal face))
  424.       ;; add to menu
  425.       (if (fboundp 'facemenu-add-new-face)
  426. --- 366,372 ----
  427.           (setq frames (cdr frames)))
  428.         (setq global-face-data (cons (cons name face) global-face-data)))
  429.       ;; when making a face after frames already exist
  430. !     (if (memq window-system '(x win32 pm))
  431.           (make-face-x-resource-internal face))
  432.       ;; add to menu
  433.       (if (fboundp 'facemenu-add-new-face)
  434. ***************
  435. *** 379,385 ****
  436.     (cond ((null frame)
  437.        (let ((frames (frame-list)))
  438.          (while frames
  439. !          (if (or (eq (framep (car frames)) 'x) (eq (framep (car frames)) 'win32))
  440.            (make-face-x-resource-internal (face-name face)
  441.                           (car frames) set-anyway))
  442.            (setq frames (cdr frames)))))
  443. --- 380,386 ----
  444.     (cond ((null frame)
  445.        (let ((frames (frame-list)))
  446.          (while frames
  447. !          (if (memq (framep (car frames)) '(x win32 pm))
  448.            (make-face-x-resource-internal (face-name face)
  449.                           (car frames) set-anyway))
  450.            (setq frames (cdr frames)))))
  451. ***************
  452. *** 1259,1265 ****
  453.         (setq colors (cdr colors)))))))
  454.   
  455.   ;; If we are already using x-window frames, initialize faces for them.
  456. ! (if (or (eq (framep (selected-frame)) 'x) (eq (framep (selected-frame)) 'win32))
  457.       (face-initialize))
  458.   
  459.   (provide 'faces)
  460. --- 1260,1266 ----
  461.         (setq colors (cdr colors)))))))
  462.   
  463.   ;; If we are already using x-window frames, initialize faces for them.
  464. ! (if (memq (framep (selected-frame)) '(x win32 pm))
  465.       (face-initialize))
  466.   
  467.   (provide 'faces)
  468. diff -c emacs-19\lisp\files.el:1.1.1.40 emacs-19\lisp\files.el:1.52
  469. *** emacs-19\lisp\files.el:1.1.1.40    Sun Aug 18 23:22:16 1996
  470. --- emacs-19\lisp\files.el    Sun Aug 18 23:22:16 1996
  471. ***************
  472. *** 1,5 ****
  473. --- 1,7 ----
  474.   ;;; files.el --- file input and output commands for Emacs
  475.   
  476. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  477. + 
  478.   ;; Copyright (C) 1985, 86, 87, 92, 93,
  479.   ;;         94, 95, 1996 Free Software Foundation, Inc.
  480.   
  481. ***************
  482. *** 659,666 ****
  483.                  (= (aref filename 0) ?/)))
  484.            ;; MS-DOS root directories can come with a drive letter;
  485.            ;; Novell Netware allows drive letters beyond `Z:'.
  486. !          (not (and (or (eq system-type 'ms-dos)
  487. !                (eq system-type 'windows-nt))
  488.                  (save-match-data
  489.                (string-match "^[a-zA-`]:/$" filename)))))
  490.       (setq filename
  491. --- 661,667 ----
  492.                  (= (aref filename 0) ?/)))
  493.            ;; MS-DOS root directories can come with a drive letter;
  494.            ;; Novell Netware allows drive letters beyond `Z:'.
  495. !          (not (and (memq system-type '(ms-dos windows-nt emx))
  496.                  (save-match-data
  497.                (string-match "^[a-zA-`]:/$" filename)))))
  498.       (setq filename
  499. ***************
  500. *** 821,826 ****
  501. --- 822,833 ----
  502.                             0 (match-beginning 0))))
  503.            (not (member logical find-file-not-true-dirname-list)))
  504.              (setq buffer-file-name buffer-file-truename))
  505. +       ;; On OS/2, we want to store the file's extended attributes in
  506. +       ;; `extended-attributes'.
  507. +       (and (eq system-type 'emx)
  508. +            (condition-case ()
  509. +            (setq extended-attributes (get-ea-list filename))
  510. +          (error nil)))
  511.         (if find-file-visit-truename
  512.             (setq buffer-file-name
  513.               (setq filename
  514. ***************
  515. *** 1896,1901 ****
  516. --- 1903,1913 ----
  517.         ;; If the auto-save file was recent before this command,
  518.         ;; delete it now.
  519.         (delete-auto-save-file-if-necessary recent-save)
  520. +       ;; Write extended attributes
  521. +       (and (eq system-type 'emx)
  522. +            (condition-case ()
  523. +            (put-ea-list buffer-file-name extended-attributes t t)
  524. +          (error nil)))
  525.         ;; Support VC `implicit' locking.
  526.         (vc-after-save)
  527.         (run-hooks 'after-save-hook))
  528. diff -c emacs-19\lisp\hexl.el:1.1.1.21 emacs-19\lisp\hexl.el:1.24
  529. *** emacs-19\lisp\hexl.el:1.1.1.21    Sun Aug 18 23:22:18 1996
  530. --- emacs-19\lisp\hexl.el    Sun Aug 18 23:22:18 1996
  531. ***************
  532. *** 1,5 ****
  533. --- 1,7 ----
  534.   ;;; hexl.el --- edit a file in a hex dump format using the hexl filter.
  535.   
  536. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  537. + 
  538.   ;; Copyright (C) 1989, 1994 Free Software Foundation, Inc.
  539.   
  540.   ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
  541. ***************
  542. *** 256,262 ****
  543.     "Edit file FILENAME in hexl-mode.
  544.   Switch to a buffer visiting file FILENAME, creating one in none exists."
  545.     (interactive "fFilename: ")
  546. !   (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
  547.         (find-file-binary filename)
  548.       (find-file filename))
  549.     (if (not (eq major-mode 'hexl-mode))
  550. --- 258,264 ----
  551.     "Edit file FILENAME in hexl-mode.
  552.   Switch to a buffer visiting file FILENAME, creating one in none exists."
  553.     (interactive "fFilename: ")
  554. !   (if (memq system-type '(ms-dos windows-nt emx))
  555.         (find-file-binary filename)
  556.       (find-file filename))
  557.     (if (not (eq major-mode 'hexl-mode))
  558. diff -c emacs-19\lisp\hippie-exp.el:1.1.1.7 emacs-19\lisp\hippie-exp.el:1.2
  559. *** emacs-19\lisp\hippie-exp.el:1.1.1.7    Sun Aug 18 23:22:18 1996
  560. --- emacs-19\lisp\hippie-exp.el    Sun Aug 18 23:22:18 1996
  561. ***************
  562. *** 1,5 ****
  563. --- 1,7 ----
  564.   ;;; hippie-exp.el --- expand text trying various ways to find its expansion.
  565.   
  566. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  567. + 
  568.   ;; Copyright (C) 1992 Free Software Foundation, Inc.
  569.   
  570.   ;; Author: Anders Holst <aho@sans.kth.se>
  571. ***************
  572. *** 445,451 ****
  573.   (defvar he-file-name-chars
  574.     (cond ((memq system-type '(vax-vms axp-vms))
  575.        "-a-zA-Z0-9_/.,~^#$+=:\\[\\]")
  576. !     ((memq system-type '(ms-dos windows-nt))
  577.        "-a-zA-Z0-9_/.,~^#$+=:\\\\")
  578.       (t                ;; More strange file formats ?
  579.        "-a-zA-Z0-9_/.,~^#$+="))
  580. --- 447,453 ----
  581.   (defvar he-file-name-chars
  582.     (cond ((memq system-type '(vax-vms axp-vms))
  583.        "-a-zA-Z0-9_/.,~^#$+=:\\[\\]")
  584. !     ((memq system-type '(ms-dos windows-nt emx))
  585.        "-a-zA-Z0-9_/.,~^#$+=:\\\\")
  586.       (t                ;; More strange file formats ?
  587.        "-a-zA-Z0-9_/.,~^#$+="))
  588. ***************
  589. *** 493,499 ****
  590.             (string= (substring name-part 0 2) "[."))
  591.            (concat (substring dir-part 0 -1) (substring name-part 1))
  592.          (concat dir-part name-part)))
  593. !     ((memq system-type '(ms-dos ms-windows))
  594.        (if (and (string-match "\\\\" dir-part)
  595.             (not (string-match "/" dir-part))
  596.             (= (aref name-part (1- (length name-part))) ?/))
  597. --- 495,501 ----
  598.             (string= (substring name-part 0 2) "[."))
  599.            (concat (substring dir-part 0 -1) (substring name-part 1))
  600.          (concat dir-part name-part)))
  601. !     ((memq system-type '(ms-dos ms-windows emx))
  602.        (if (and (string-match "\\\\" dir-part)
  603.             (not (string-match "/" dir-part))
  604.             (= (aref name-part (1- (length name-part))) ?/))
  605. diff -c emacs-19\lisp\info.el:1.1.1.35 emacs-19\lisp\info.el:1.47
  606. *** emacs-19\lisp\info.el:1.1.1.35    Sun Aug 18 23:22:18 1996
  607. --- emacs-19\lisp\info.el    Sun Aug 18 23:22:18 1996
  608. ***************
  609. *** 1,5 ****
  610. --- 1,7 ----
  611.   ;;; info.el --- info package for Emacs.
  612.   
  613. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  614. + 
  615.   ;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc.
  616.   
  617.   ;; Maintainer: FSF
  618. ***************
  619. *** 76,82 ****
  620.             (not (file-exists-p alternative))
  621.             ;; On DOS/NT, we use movable executables always,
  622.             ;; and we must always find the Info dir at run time.
  623. !           (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
  624.             nil
  625.           ;; Use invocation-directory for Info only if we used it for
  626.           ;; exec-directory also.
  627. --- 78,84 ----
  628.             (not (file-exists-p alternative))
  629.             ;; On DOS/NT, we use movable executables always,
  630.             ;; and we must always find the Info dir at run time.
  631. !           (if (memq system-type '(ms-dos windows-nt emx))
  632.             nil
  633.           ;; Use invocation-directory for Info only if we used it for
  634.           ;; exec-directory also.
  635. ***************
  636. *** 128,148 ****
  637.     "Non-nil if Emacs was started solely as an Info browser.")
  638.   
  639.   (defvar Info-suffix-list
  640. !   (if (eq system-type 'ms-dos)
  641. !       '( (".gz"      . "gunzip")
  642. !      (".z"       . "gunzip")
  643. !      (".inf"     . nil)
  644. !      (""         . nil))
  645. !     '( (".info.Z"  . "uncompress")
  646. !        (".info.Y"  . "unyabba")
  647. !        (".info.gz" . "gunzip")
  648. !        (".info.z"  . "gunzip")
  649. !        (".info"    . nil)
  650. !        (".Z"       . "uncompress")
  651. !        (".Y"       . "unyabba")
  652. !        (".gz"      . "gunzip")
  653. !        (".z"       . "gunzip")
  654. !        (""         . nil)))
  655.     "List of file name suffixes and associated decoding commands.
  656.   Each entry should be (SUFFIX . STRING); the file is given to
  657.   the command as standard input.  If STRING is nil, no decoding is done.
  658. --- 130,164 ----
  659.     "Non-nil if Emacs was started solely as an Info browser.")
  660.   
  661.   (defvar Info-suffix-list
  662. !   (cond ((eq system-type 'ms-dos)
  663. !          '( (".gz"      . "gunzip")
  664. !             (".z"       . "gunzip")
  665. !             (".inf"     . nil)
  666. !             (""         . nil)))
  667. !         ((eq system-type 'emx)
  668. !          '( (".info.Z"  . "gunzip")
  669. !             (".info.gz" . "gunzip")
  670. !             (".info.z"  . "gunzip")
  671. !             (".info"    . nil)
  672. !             (".inf.Z"   . "gunzip")
  673. !             (".inf.gz"  . "gunzip")
  674. !             (".inf.z"   . "gunzip")
  675. !             (".inf"     . nil)
  676. !             (".Z"       . "gunzip")
  677. !             (".z"       . "gunzip")
  678. !             (".gz"      . "gunzip")
  679. !             (""         . nil)))
  680. !         (t
  681. !          '( (".info.Z"  . "uncompress")
  682. !             (".info.Y"  . "unyabba")
  683. !             (".info.gz" . "gunzip")
  684. !             (".info.z"  . "gunzip")
  685. !             (".info"    . nil)
  686. !             (".Z"       . "uncompress")
  687. !             (".Y"       . "unyabba")
  688. !             (".gz"      . "gunzip")
  689. !             (".z"       . "gunzip")
  690. !             (""         . nil))))
  691.     "List of file name suffixes and associated decoding commands.
  692.   Each entry should be (SUFFIX . STRING); the file is given to
  693.   the command as standard input.  If STRING is nil, no decoding is done.
  694. ***************
  695. *** 1615,1621 ****
  696.     (make-local-variable 'Info-tag-table-marker)
  697.     (make-local-variable 'Info-history)
  698.     (make-local-variable 'Info-index-alternatives)
  699. !   (if (memq (framep (selected-frame)) '(x pc))
  700.         (progn
  701.       (make-face 'info-node)
  702.       (make-face 'info-menu-5)
  703. --- 1631,1637 ----
  704.     (make-local-variable 'Info-tag-table-marker)
  705.     (make-local-variable 'Info-history)
  706.     (make-local-variable 'Info-index-alternatives)
  707. !   (if (memq (framep (selected-frame)) '(x pc pm))
  708.         (progn
  709.       (make-face 'info-node)
  710.       (make-face 'info-menu-5)
  711. diff -c emacs-19\lisp\jka-compr.el:1.1.1.13 emacs-19\lisp\jka-compr.el:1.8
  712. *** emacs-19\lisp\jka-compr.el:1.1.1.13    Sun Aug 18 23:22:18 1996
  713. --- emacs-19\lisp\jka-compr.el    Sun Aug 18 23:22:18 1996
  714. ***************
  715. *** 1,6 ****
  716. --- 1,7 ----
  717.   ;;; jka-compr.el --- reading/writing/loading compressed files
  718.   
  719.   ;; Copyright (C) 1993, 1994  Free Software Foundation, Inc.
  720. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  721.   
  722.   ;; Author: jka@ece.cmu.edu (Jay K. Adams)
  723.   ;; Keywords: data
  724. ***************
  725. *** 467,472 ****
  726. --- 468,474 ----
  727.             (notfound nil)
  728.             (local-copy
  729.              (jka-compr-run-real-handler 'file-local-copy (list filename)))
  730. +           (binary-process-output binary-process-output)
  731.             local-file
  732.             size start)
  733.   
  734. ***************
  735. *** 475,480 ****
  736. --- 477,494 ----
  737.         (and
  738.          visit
  739.          (setq buffer-file-name filename))
  740. + 
  741. +       (and (eq system-type 'emx)
  742. +            visit
  743. +            (emx-binary-mode-p
  744. +         (if (jka-compr-info-strip-extension info)
  745. +             (save-match-data
  746. +               (substring filename 0
  747. +                  (string-match (jka-compr-info-regexp info)
  748. +                            filename)))
  749. +           filename))
  750. +            (setq binary-process-output t
  751. +              emx-binary-mode t))
  752.   
  753.         (unwind-protect        ; to make sure local-copy gets deleted
  754.   
  755. diff -c emacs-19\lisp\loadup.el:1.1.1.16 emacs-19\lisp\loadup.el:1.34
  756. *** emacs-19\lisp\loadup.el:1.1.1.16    Sun Aug 18 23:22:24 1996
  757. --- emacs-19\lisp\loadup.el    Sun Aug 18 23:22:24 1996
  758. ***************
  759. *** 1,5 ****
  760. --- 1,7 ----
  761.   ;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
  762.   
  763. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  764. + 
  765.   ;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
  766.   
  767.   ;; Maintainer: FSF
  768. ***************
  769. *** 124,129 ****
  770. --- 126,135 ----
  771.         (garbage-collect)
  772.         (load "disp-table") ; needed to setup ibm-pc char set, see internal.el
  773.         (garbage-collect)))
  774. + (if (eq system-type 'emx)
  775. +     (progn
  776. +       (garbage-collect)
  777. +       (load "emx-patch")))
  778.   (if (fboundp 'atan)    ; preload some constants and 
  779.       (progn        ; floating pt. functions if 
  780.         (garbage-collect)    ; we have float support.
  781. ***************
  782. *** 152,157 ****
  783. --- 158,166 ----
  784.   ;; based on the executables that now exist.
  785.   (if (and (or (equal (nth 3 command-line-args) "dump")
  786.            (equal (nth 4 command-line-args) "dump"))
  787. +      (not (and (eq system-type 'emx)
  788. +            (setq emacs-version (concat emacs-version "."
  789. +                            emx-emacs-version))))
  790.        (not (eq system-type 'ms-dos)))
  791.       (let* ((base (concat "emacs-" emacs-version "."))
  792.          (files (file-name-all-completions base default-directory))
  793. ***************
  794. *** 177,183 ****
  795.       (setq name (concat (downcase (substring name 0 (match-beginning 0)))
  796.                  "-"
  797.                  (substring name (match-end 0)))))
  798. !       (if (memq system-type '(ms-dos windows-nt))
  799.         (setq name (expand-file-name
  800.                 (if (fboundp 'x-create-frame) "DOC-X" "DOC") "../etc"))
  801.       (setq name (concat (expand-file-name "../etc/DOC-") name))
  802. --- 186,192 ----
  803.       (setq name (concat (downcase (substring name 0 (match-beginning 0)))
  804.                  "-"
  805.                  (substring name (match-end 0)))))
  806. !       (if (memq system-type '(ms-dos windows-nt emx))
  807.         (setq name (expand-file-name
  808.                 (if (fboundp 'x-create-frame) "DOC-X" "DOC") "../etc"))
  809.       (setq name (concat (expand-file-name "../etc/DOC-") name))
  810. ***************
  811. *** 212,218 ****
  812.                    (substring name (match-end 0)))))
  813.       (if (eq system-type 'ms-dos)
  814.           (message "Dumping under the name emacs")
  815. !       (message "Dumping under names emacs and %s" name)))
  816.         (condition-case ()
  817.         (delete-file "emacs")
  818.       (file-error nil))
  819. --- 221,231 ----
  820.                    (substring name (match-end 0)))))
  821.       (if (eq system-type 'ms-dos)
  822.           (message "Dumping under the name emacs")
  823. !       (if (eq system-type 'emx)
  824. !           (message "Dumping under the name %s"
  825. !                (if (fboundp 'x-create-frame)
  826. !                "emacsx" "emacs"))
  827. !         (message "Dumping under names emacs and %s" name))))
  828.         (condition-case ()
  829.         (delete-file "emacs")
  830.       (file-error nil))
  831. ***************
  832. *** 220,229 ****
  833.         ;; confused people installing Emacs (they'd install the file
  834.         ;; under the name `xemacs'), and it's inconsistent with every
  835.         ;; other GNU product's build process.
  836. !       (dump-emacs "emacs" "temacs")
  837.         (message "%d pure bytes used" pure-bytes-used)
  838.         ;; Recompute NAME now, so that it isn't set when we dump.
  839. !       (if (not (memq system-type '(ms-dos windows-nt)))
  840.         (let ((name (concat "emacs-" emacs-version)))
  841.           (while (string-match "[^-+_.a-zA-Z0-9]+" name)
  842.             (setq name (concat (downcase (substring name 0 (match-beginning 0)))
  843. --- 233,245 ----
  844.         ;; confused people installing Emacs (they'd install the file
  845.         ;; under the name `xemacs'), and it's inconsistent with every
  846.         ;; other GNU product's build process.
  847. !       (if (and (eq system-type 'emx)
  848. !            (fboundp 'x-create-frame))
  849. !       (dump-emacs "emacsx" "temacsx")
  850. !     (dump-emacs "emacs" "temacs"))
  851.         (message "%d pure bytes used" pure-bytes-used)
  852.         ;; Recompute NAME now, so that it isn't set when we dump.
  853. !       (if (not (memq system-type '(ms-dos windows-nt emx)))
  854.         (let ((name (concat "emacs-" emacs-version)))
  855.           (while (string-match "[^-+_.a-zA-Z0-9]+" name)
  856.             (setq name (concat (downcase (substring name 0 (match-beginning 0)))
  857. diff -c emacs-19\lisp\menu-bar.el:1.1.1.38 emacs-19\lisp\menu-bar.el:1.49
  858. *** emacs-19\lisp\menu-bar.el:1.1.1.38    Sun Aug 18 23:22:24 1996
  859. --- emacs-19\lisp\menu-bar.el    Sun Aug 18 23:22:24 1996
  860. ***************
  861. *** 1,6 ****
  862. --- 1,7 ----
  863.   ;;; menu-bar.el --- define a default menu bar.
  864.   
  865.   ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
  866. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  867.   
  868.   ;; Author: RMS
  869.   ;; Keywords: internal
  870. ***************
  871. *** 449,455 ****
  872.   
  873.   (defun menu-bar-update-buffers-1 (elt)
  874.     (cons (format
  875. !      (format "%%%ds  %%s%%s  %%s" menu-bar-update-buffers-maxbuf)
  876.        (cdr elt)
  877.        (if (buffer-modified-p (car elt))
  878.            "*" " ")
  879. --- 450,458 ----
  880.   
  881.   (defun menu-bar-update-buffers-1 (elt)
  882.     (cons (format
  883. !          (if (eq window-system 'pm)
  884. !              "%s\t%s%s  %s"
  885. !            (format "%%%ds  %%s%%s  %%s" menu-bar-update-buffers-maxbuf))
  886.        (cdr elt)
  887.        (if (buffer-modified-p (car elt))
  888.            "*" " ")
  889. ***************
  890. *** 528,533 ****
  891. --- 531,538 ----
  892.                   (setq maxlen (length (car (car alist))))))
  893.                (setq tail (cdr tail)))
  894.                  (setq alist (nreverse alist))
  895. +                (if (eq window-system 'pm)
  896. +               (setq maxlen 0))
  897.                  ;; Make the menu item for list-buffers
  898.                  ;; or reuse the one we already have.
  899.                  ;; The advantage in reusing one
  900. diff -c emacs-19\lisp\mouse.el:1.1.1.37 emacs-19\lisp\mouse.el:1.20
  901. *** emacs-19\lisp\mouse.el:1.1.1.37    Sun Aug 18 23:22:24 1996
  902. --- emacs-19\lisp\mouse.el    Sun Aug 18 23:22:24 1996
  903. ***************
  904. *** 2,7 ****
  905. --- 2,9 ----
  906.   
  907.   ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
  908.   
  909. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  910. + 
  911.   ;; Maintainer: FSF
  912.   ;; Keywords: hardware
  913.   
  914. ***************
  915. *** 402,410 ****
  916.       ;; If mark is highlighted, no need to bounce the cursor.
  917.       ;; On X, we highlight while dragging, thus once again no need to bounce.
  918.       (or transient-mark-mode
  919. !     (eq (framep (selected-frame)) 'x)
  920. !     (eq (framep (selected-frame)) 'pc)
  921. !     (eq (framep (selected-frame)) 'win32)
  922.       (sit-for 1))
  923.       (push-mark)
  924.       (set-mark (point))
  925. --- 404,410 ----
  926.       ;; If mark is highlighted, no need to bounce the cursor.
  927.       ;; On X, we highlight while dragging, thus once again no need to bounce.
  928.       (or transient-mark-mode
  929. !     (memq (framep (selected-frame)) '(x pc win32 pm))
  930.       (sit-for 1))
  931.       (push-mark)
  932.       (set-mark (point))
  933. diff -c emacs-19\lisp\server.el:1.1.1.20 emacs-19\lisp\server.el:1.30
  934. *** emacs-19\lisp\server.el:1.1.1.20    Sun Aug 18 23:22:26 1996
  935. --- emacs-19\lisp\server.el    Sun Aug 18 23:22:26 1996
  936. ***************
  937. *** 2,7 ****
  938. --- 2,9 ----
  939.   
  940.   ;; Copyright (C) 1986, 1987, 1992, 1994, 1995 Free Software Foundation, Inc.
  941.   
  942. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  943. + 
  944.   ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
  945.   ;; Keywords: processes
  946.   
  947. ***************
  948. *** 77,82 ****
  949. --- 79,87 ----
  950.   (defvar server-program (expand-file-name "emacsserver" exec-directory)
  951.     "*The program to use as the edit server.")
  952.   
  953. + (defvar server-request-hook nil
  954. +   "*List of hooks to call when processing a request for the Emacs server.")
  955. + 
  956.   (defvar server-visit-hook nil
  957.     "*List of hooks to call when visiting a file for the Emacs server.")
  958.   
  959. ***************
  960. *** 211,223 ****
  961.                 (cons (list arg lineno)
  962.                   files))
  963.               (setq lineno 1))))
  964. !           (server-visit-files files client)
  965. !           ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
  966. !           (setq server-clients (cons client server-clients))
  967. !           (server-switch-buffer (nth 1 client))
  968. !           (run-hooks 'server-switch-hook)
  969. !           (message (substitute-command-keys
  970. !             "When done with a buffer, type \\[server-edit]")))))))
  971.     ;; Save for later any partial line that remains.
  972.     (setq server-previous-string string))
  973.   
  974. --- 216,231 ----
  975.                 (cons (list arg lineno)
  976.                   files))
  977.               (setq lineno 1))))
  978. !           (run-hooks 'server-request-hook)
  979. !           (if (null files)
  980. !           nil
  981. !         (server-visit-files files client)
  982. !         ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
  983. !         (setq server-clients (cons client server-clients))
  984. !         (server-switch-buffer (nth 1 client))
  985. !         (run-hooks 'server-switch-hook)
  986. !         (message (substitute-command-keys
  987. !               "When done with a buffer, type \\[server-edit]."))))))))
  988.     ;; Save for later any partial line that remains.
  989.     (setq server-previous-string string))
  990.   
  991. diff -c emacs-19\lisp\startup.el:1.1.1.32 emacs-19\lisp\startup.el:1.28
  992. *** emacs-19\lisp\startup.el:1.1.1.32    Sun Aug 18 23:22:26 1996
  993. --- emacs-19\lisp\startup.el    Sun Aug 18 23:22:26 1996
  994. ***************
  995. *** 1,5 ****
  996. --- 1,7 ----
  997.   ;;; startup.el --- process Emacs shell arguments
  998.   
  999. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  1000. + 
  1001.   ;; Copyright (C) 1985, 86, 92, 94, 95, 1996 Free Software Foundation, Inc.
  1002.   
  1003.   ;; Maintainer: FSF
  1004. ***************
  1005. *** 378,384 ****
  1006.       (and window-setup-hook
  1007.            (run-hooks 'window-setup-hook))
  1008.       (or menubar-bindings-done
  1009. !         (if (or (eq window-system 'x) (eq window-system 'win32))
  1010.           (precompute-menubar-bindings)))))))
  1011.   
  1012.   ;; Precompute the keyboard equivalents in the menu bar items.
  1013. --- 380,386 ----
  1014.       (and window-setup-hook
  1015.            (run-hooks 'window-setup-hook))
  1016.       (or menubar-bindings-done
  1017. !         (if (memq window-system '(x win32 pm))
  1018.           (precompute-menubar-bindings)))))))
  1019.   
  1020.   ;; Precompute the keyboard equivalents in the menu bar items.
  1021. ***************
  1022. *** 535,541 ****
  1023.     (if (fboundp 'frame-initialize)
  1024.         (frame-initialize))
  1025.     ;; If frame was created with a menu bar, set menu-bar-mode on.
  1026. !   (if (or (not (or (eq window-system 'x) (eq window-system 'win32)))
  1027.         (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))
  1028.         (menu-bar-mode t))
  1029.   
  1030. --- 537,543 ----
  1031.     (if (fboundp 'frame-initialize)
  1032.         (frame-initialize))
  1033.     ;; If frame was created with a menu bar, set menu-bar-mode on.
  1034. !   (if (or (not (memq window-system '(x win32 pm)))
  1035.         (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))
  1036.         (menu-bar-mode t))
  1037.   
  1038. ***************
  1039. *** 687,693 ****
  1040.            (setq window-setup-hook nil)
  1041.            ;; Do this now to avoid an annoying delay if the user
  1042.            ;; clicks the menu bar during the sit-for.
  1043. !          (if (or (eq window-system 'x) (eq window-system 'win32))
  1044.            (precompute-menubar-bindings))
  1045.            (setq menubar-bindings-done t)
  1046.            (unwind-protect
  1047. --- 689,695 ----
  1048.            (setq window-setup-hook nil)
  1049.            ;; Do this now to avoid an annoying delay if the user
  1050.            ;; clicks the menu bar during the sit-for.
  1051. !          (if (memq window-system '(x win32 pm))
  1052.            (precompute-menubar-bindings))
  1053.            (setq menubar-bindings-done t)
  1054.            (unwind-protect
  1055. diff -c emacs-19\lisp\subr.el:1.1.1.33 emacs-19\lisp\subr.el:1.12
  1056. *** emacs-19\lisp\subr.el:1.1.1.33    Sun Aug 18 23:22:28 1996
  1057. --- emacs-19\lisp\subr.el    Sun Aug 18 23:22:28 1996
  1058. ***************
  1059. *** 1,6 ****
  1060. --- 1,7 ----
  1061.   ;;; subr.el --- basic lisp subroutines for Emacs
  1062.   
  1063.   ;; Copyright (C) 1985, 1986, 1992, 1994, 1995 Free Software Foundation, Inc.
  1064. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  1065.   
  1066.   ;; This file is part of GNU Emacs.
  1067.   
  1068. ***************
  1069. *** 771,777 ****
  1070.     (if (eq system-type 'ms-dos)
  1071.         ;; MS-DOS shells don't have quoting, so don't do any.
  1072.         argument
  1073. !     (if (eq system-type 'windows-nt)
  1074.       (concat "\"" argument "\"")
  1075.         ;; Quote everything except POSIX filename characters.
  1076.         ;; This should be safe enough even for really weird shells.
  1077. --- 772,778 ----
  1078.     (if (eq system-type 'ms-dos)
  1079.         ;; MS-DOS shells don't have quoting, so don't do any.
  1080.         argument
  1081. !     (if (memq system-type '(windows-nt emx))
  1082.       (concat "\"" argument "\"")
  1083.         ;; Quote everything except POSIX filename characters.
  1084.         ;; This should be safe enough even for really weird shells.
  1085. diff -c emacs-19\lisp\tar-mode.el:1.1.1.22 emacs-19\lisp\tar-mode.el:1.11
  1086. *** emacs-19\lisp\tar-mode.el:1.1.1.22    Sun Aug 18 23:22:28 1996
  1087. --- emacs-19\lisp\tar-mode.el    Sun Aug 18 23:22:28 1996
  1088. ***************
  1089. *** 1,6 ****
  1090. --- 1,7 ----
  1091.   ;;; tar-mode.el --- simple editing of tar files from GNU emacs
  1092.   
  1093.   ;; Copyright (C) 1990, 1991, 1993, 1994, 1995 Free Software Foundation, Inc.
  1094. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  1095.   
  1096.   ;; Author: Jamie Zawinski <jwz@lucid.com>
  1097.   ;; Created: 04 Apr 1990
  1098. ***************
  1099. *** 725,730 ****
  1100. --- 726,741 ----
  1101.           (set-buffer buffer)
  1102.           (insert-buffer-substring tar-buffer start end)
  1103.           (goto-char 0)
  1104. +         (if (eq system-type 'emx)
  1105. +             (progn
  1106. +               (setq emx-binary-mode (emx-binary-mode-p name))
  1107. +               (or emx-binary-mode
  1108. +               (save-excursion
  1109. +                 (if (not (search-forward "\r\n" nil t))
  1110. +                 (setq emx-binary-mode t)
  1111. +                   (replace-match "\n" t t)
  1112. +                   (while (search-forward "\r\n" nil t)
  1113. +                 (replace-match "\n" t t)))))))
  1114.           (setq buffer-file-name
  1115.                 (expand-file-name (concat tarname ":" name)))
  1116.           (setq buffer-file-truename
  1117. ***************
  1118. *** 1071,1077 ****
  1119.     (save-excursion
  1120.     (let ((subfile (current-buffer))
  1121.       (subfile-size (buffer-size))
  1122. !     (descriptor tar-superior-descriptor))
  1123.       (set-buffer tar-superior-buffer)
  1124.       (let* ((tokens (tar-desc-tokens descriptor))
  1125.          (start (tar-desc-data-start descriptor))
  1126. --- 1082,1091 ----
  1127.     (save-excursion
  1128.     (let ((subfile (current-buffer))
  1129.       (subfile-size (buffer-size))
  1130. !     (descriptor tar-superior-descriptor)
  1131. !     binary)
  1132. !     (if (eq system-type 'emx)
  1133. !     (setq binary emx-binary-mode))
  1134.       (set-buffer tar-superior-buffer)
  1135.       (let* ((tokens (tar-desc-tokens descriptor))
  1136.          (start (tar-desc-data-start descriptor))
  1137. ***************
  1138. *** 1092,1097 ****
  1139. --- 1106,1120 ----
  1140.         ;; insert the new data...
  1141.         (goto-char data-start)
  1142.         (insert-buffer subfile)
  1143. +       (and (eq system-type 'emx)
  1144. +            (not binary)
  1145. +            (not (emx-binary-mode-p name))
  1146. +            (save-excursion
  1147. +          (let ((end (make-marker)))
  1148. +            (set-marker end (+ data-start subfile-size))
  1149. +            (while (search-forward "\n" end t)
  1150. +              (replace-match "\r\n" t t))
  1151. +            (setq subfile-size (- end data-start)))))
  1152.         ;;
  1153.         ;; pad the new data out to a multiple of 512...
  1154.         (let ((subfile-size-pad (ash (ash (+ subfile-size 511) -9) 9)))
  1155. diff -c emacs-19\lisp\vc.el:1.1.1.34 emacs-19\lisp\vc.el:1.33
  1156. *** emacs-19\lisp\vc.el:1.1.1.34    Sun Aug 18 23:22:30 1996
  1157. --- emacs-19\lisp\vc.el    Sun Aug 18 23:22:30 1996
  1158. ***************
  1159. *** 1,5 ****
  1160. --- 1,7 ----
  1161.   ;;; vc.el --- drive a version-control system from within Emacs
  1162.   
  1163. + ;; Modified for emx by Eberhard Mattes, Aug 1996
  1164. + 
  1165.   ;; Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc.
  1166.   
  1167.   ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
  1168. ***************
  1169. *** 194,199 ****
  1170. --- 196,203 ----
  1171.   (defvar vc-comment-ring-index nil)
  1172.   (defvar vc-last-comment-match nil)
  1173.   
  1174. + (defvar vc-exec-suffix (if (eq system-type 'emx) ".exe"))
  1175. + 
  1176.   ;; Back-portability to Emacs 18
  1177.   
  1178.   (defun file-executable-p-18 (f)
  1179. ***************
  1180. *** 369,375 ****
  1181.        (function 
  1182.         (lambda (s)
  1183.           (if s
  1184. !         (let ((full (concat s "/" name)))
  1185.             (if (file-executable-p full)
  1186.                 (progn
  1187.               (setq vc-binary-assoc
  1188. --- 373,379 ----
  1189.        (function 
  1190.         (lambda (s)
  1191.           (if s
  1192. !         (let ((full (concat s "/" name vc-exec-suffix)))
  1193.             (if (file-executable-p full)
  1194.                 (progn
  1195.               (setq vc-binary-assoc
  1196. diff -c emacs-19\src\Makefile.in:1.1.1.9 emacs-19\src\Makefile.in:1.16
  1197. *** emacs-19\src\Makefile.in:1.1.1.9    Sun Aug 18 23:22:42 1996
  1198. --- emacs-19\src\Makefile.in    Sun Aug 18 23:22:42 1996
  1199. ***************
  1200. *** 18,23 ****
  1201. --- 18,25 ----
  1202.   # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1203.   # Boston, MA 02111-1307, USA.
  1204.   
  1205. + # Modified for emx by Eberhard Mattes, Aug 1996
  1206. + 
  1207.   # Here are the things that we expect ../configure to edit.
  1208.   srcdir=@srcdir@
  1209.   VPATH=@srcdir@
  1210. ***************
  1211. *** 289,295 ****
  1212. --- 291,301 ----
  1213.   #ifdef HAVE_MENUS
  1214.   
  1215.   /* Include xmenu.o in the list of X object files.  */
  1216. + #ifdef HAVE_PM
  1217. + XOBJ= pmterm.o pmfns.o pmselect.o pmfaces.o xfaces.o
  1218. + #else
  1219.   XOBJ= xterm.o xfns.o xfaces.o xselect.o xrdb.o
  1220. + #endif
  1221.   
  1222.   /* The X Menu stuff is present in the X10 distribution, but missing
  1223.      from X11.  If we have X10, just use the installed library;
  1224. ***************
  1225. *** 488,493 ****
  1226. --- 494,505 ----
  1227.   #define MSDOS_OBJ
  1228.   #endif
  1229.   
  1230. + #ifdef EMX
  1231. + #define EMX_OBJ emxdep.o
  1232. + #else
  1233. + #define EMX_OBJ
  1234. + #endif
  1235. + 
  1236.   
  1237.   /* lastfile must follow all files
  1238.      whose initialized data areas should be dumped as pure by dump-emacs.  */
  1239. ***************
  1240. *** 502,514 ****
  1241.       abbrev.o syntax.o UNEXEC mocklisp.o bytecode.o \
  1242.       process.o callproc.o \
  1243.       region-cache.o \
  1244. !     doprnt.o strftime.o MKTIME_OBJ GETLOADAVG_OBJ MSDOS_OBJ
  1245.   
  1246.   /* Object files used on some machine or other.
  1247.      These go in the DOC file on all machines
  1248.      in case they are needed there.  */
  1249.   SOME_MACHINE_OBJECTS = sunfns.o dosfns.o msdos.o intervals.o textprop.o \
  1250.     xterm.o xfns.o xfaces.o xmenu.o xselect.o xrdb.o
  1251.   
  1252.   
  1253.   #ifdef TERMINFO
  1254. --- 514,536 ----
  1255.       abbrev.o syntax.o UNEXEC mocklisp.o bytecode.o \
  1256.       process.o callproc.o \
  1257.       region-cache.o \
  1258. !     doprnt.o strftime.o MKTIME_OBJ GETLOADAVG_OBJ MSDOS_OBJ EMX_OBJ
  1259.   
  1260.   /* Object files used on some machine or other.
  1261.      These go in the DOC file on all machines
  1262.      in case they are needed there.  */
  1263. + #ifdef EMX
  1264. + #ifdef HAVE_PM
  1265. + SOME_MACHINE_OBJECTS = emxdep.o intervals.o textprop.o \
  1266. +   pmfaces.o pmfns.o pmselect.o pmterm.o xfaces.o xmenu.o
  1267. + #else
  1268. + SOME_MACHINE_OBJECTS = emxdep.o intervals.o textprop.o \
  1269. +   xterm.o xfns.o xfaces.o xmenu.o xselect.o xrdb.o
  1270. + #endif
  1271. + #else
  1272.   SOME_MACHINE_OBJECTS = sunfns.o dosfns.o msdos.o intervals.o textprop.o \
  1273.     xterm.o xfns.o xfaces.o xmenu.o xselect.o xrdb.o
  1274. + #endif
  1275.   
  1276.   
  1277.   #ifdef TERMINFO
  1278. ***************
  1279. *** 597,602 ****
  1280. --- 619,630 ----
  1281.   #define VMS_SUPPORT
  1282.   #endif
  1283.   
  1284. + #ifdef EMX
  1285. + #define EMX_SUPPORT ${lispsource}emx-patch.elc ${lispsource}emx-funcs.elc ${lispsource}emx-keys.el
  1286. + #else /* not EMX */
  1287. + #define EMX_SUPPORT
  1288. + #endif /* not EMX */
  1289. + 
  1290.   #ifdef MSDOS
  1291.   #define MSDOS_SUPPORT ${lispsource}ls-lisp.elc ${lispsource}disp-table.elc ${lispsource}dos-fns.elc
  1292.   #else
  1293. ***************
  1294. *** 651,656 ****
  1295. --- 679,685 ----
  1296.       ${lispsource}vc-hooks.elc \
  1297.       ${lispsource}ediff-hook.elc \
  1298.       VMS_SUPPORT \
  1299. +     EMX_SUPPORT \
  1300.       MSDOS_SUPPORT \
  1301.       WINNT_SUPPORT \
  1302.       ${lispsource}window.elc \
  1303. diff -c emacs-19\src\buffer.c:1.1.1.36 emacs-19\src\buffer.c:1.49
  1304. *** emacs-19\src\buffer.c:1.1.1.36    Sun Aug 18 23:22:44 1996
  1305. --- emacs-19\src\buffer.c    Sun Aug 18 23:22:44 1996
  1306. ***************
  1307. *** 19,24 ****
  1308. --- 19,25 ----
  1309.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1310.   Boston, MA 02111-1307, USA.  */
  1311.   
  1312. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1313.   
  1314.   #include <sys/types.h>
  1315.   #include <sys/stat.h>
  1316. ***************
  1317. *** 454,459 ****
  1318. --- 455,464 ----
  1319.   reset_buffer (b)
  1320.        register struct buffer *b;
  1321.   {
  1322. + #ifdef EMX
  1323. +   b->emx_binary_mode = Qnil;
  1324. +   b->extended_attributes = Qnil;
  1325. + #endif /* EMX */
  1326.     b->filename = Qnil;
  1327.     b->file_truename = Qnil;
  1328.     b->directory = (current_buffer) ? current_buffer->directory : Qnil;
  1329. ***************
  1330. *** 3385,3390 ****
  1331. --- 3390,3399 ----
  1332.   #ifdef DOS_NT
  1333.     buffer_defaults.buffer_file_type = Qnil; /* TEXT */
  1334.   #endif
  1335. + #ifdef EMX
  1336. +   buffer_defaults.emx_binary_mode = Qnil;
  1337. +   buffer_defaults.extended_attributes = Qnil;
  1338. + #endif /* EMX */
  1339.     XSETFASTINT (buffer_defaults.fill_column, 70);
  1340.     XSETFASTINT (buffer_defaults.left_margin, 0);
  1341.     buffer_defaults.cache_long_line_scans = Qnil;
  1342. ***************
  1343. *** 3414,3419 ****
  1344. --- 3423,3432 ----
  1345.     XSETINT (buffer_local_flags.file_truename, -1);
  1346.     XSETINT (buffer_local_flags.invisibility_spec, -1);
  1347.     XSETINT (buffer_local_flags.file_format, -1);
  1348. + #ifdef EMX
  1349. +   XSETINT (buffer_local_flags.emx_binary_mode, -1);
  1350. +   XSETINT (buffer_local_flags.extended_attributes, -1);
  1351. + #endif /* EMX */
  1352.   
  1353.     XSETFASTINT (buffer_local_flags.mode_line_format, 1);
  1354.     XSETFASTINT (buffer_local_flags.abbrev_mode, 2);
  1355. ***************
  1356. *** 3474,3479 ****
  1357. --- 3487,3493 ----
  1358.   
  1359.     Fset_buffer (Fget_buffer_create (build_string ("*scratch*")));
  1360.   
  1361. + #ifndef EMX
  1362.     /* If PWD is accurate, use it instead of calling getwd.  This is faster
  1363.        when PWD is right, and may avoid a fatal error.  */
  1364.     if ((pwd = getenv ("PWD")) != 0 && IS_DIRECTORY_SEP (*pwd)
  1365. ***************
  1366. *** 3485,3490 ****
  1367. --- 3499,3509 ----
  1368.       strcpy (buf, pwd);
  1369.     else if (getwd (buf) == 0)
  1370.       fatal ("`getwd' failed: %s\n", buf);
  1371. + #else /* EMX */
  1372. +   if (_getcwd2 (buf, MAXPATHLEN) == 0)
  1373. +     fatal ("`_getcwd2' failed\n");
  1374. +   _nls_strlwr (buf);
  1375. + #endif /* EMX */
  1376.   
  1377.   #ifndef VMS
  1378.     /* Maybe this should really use some standard subroutine
  1379. ***************
  1380. *** 3985,3990 ****
  1381. --- 4004,4022 ----
  1382.     DEFVAR_LISP ("kill-buffer-query-functions", &Vkill_buffer_query_functions,
  1383.       "List of functions called with no args to query before killing a buffer.");
  1384.     Vkill_buffer_query_functions = Qnil;
  1385. + 
  1386. + #ifdef EMX
  1387. +   DEFVAR_PER_BUFFER ("emx-binary-mode", ¤t_buffer->emx_binary_mode, Qnil,
  1388. +     "*Non-nil means read and write files in `binary mode'.\n\
  1389. + nil means use `text mode'.  This variable is emx-specific.\n\
  1390. + Automatically becomes buffer-local when set in any fashion.");
  1391. + 
  1392. +   DEFVAR_PER_BUFFER ("extended-attributes",
  1393. +                      ¤t_buffer->extended_attributes, Qnil,
  1394. +     "Extended attributes of buffer visited by current buffer.\n\
  1395. + This variable is emx-specific.  Automatically becomes buffer-local\n\
  1396. + when set in any fashion.");
  1397. + #endif /* EMX */
  1398.   
  1399.     defsubr (&Sbuffer_live_p);
  1400.     defsubr (&Sbuffer_list);
  1401. diff -c emacs-19\src\buffer.h:1.1.1.12 emacs-19\src\buffer.h:1.18
  1402. *** emacs-19\src\buffer.h:1.1.1.12    Sun Aug 18 23:22:44 1996
  1403. --- emacs-19\src\buffer.h    Sun Aug 18 23:22:44 1996
  1404. ***************
  1405. *** 18,23 ****
  1406. --- 18,25 ----
  1407.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1408.   Boston, MA 02111-1307, USA.  */
  1409.   
  1410. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1411. + 
  1412.   
  1413.   #ifdef USE_TEXT_PROPERTIES
  1414.   #define SET_PT(position) (set_point ((position), current_buffer))
  1415. ***************
  1416. *** 308,313 ****
  1417. --- 310,321 ----
  1418.       /* nil: text, t: binary.
  1419.          This value is meaningful only on certain operating systems.  */
  1420.       Lisp_Object buffer_file_type;
  1421. + #ifdef EMX
  1422. +     /* nil: text mode, t: binary mode.  */
  1423. +     Lisp_Object emx_binary_mode;
  1424. +     /* Extended attributes.  */
  1425. +     Lisp_Object extended_attributes;
  1426. + #endif /* EMX */
  1427.   
  1428.       /* Case table for case-conversion in this buffer.
  1429.          This char-table maps each char into its lower-case version.  */
  1430. diff -c emacs-19\src\callproc.c:1.1.1.27 emacs-19\src\callproc.c:1.52
  1431. *** emacs-19\src\callproc.c:1.1.1.27    Sun Aug 18 23:22:46 1996
  1432. --- emacs-19\src\callproc.c    Sun Aug 18 23:22:46 1996
  1433. ***************
  1434. *** 18,23 ****
  1435. --- 18,24 ----
  1436.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1437.   Boston, MA 02111-1307, USA.  */
  1438.   
  1439. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1440.   
  1441.   #include <signal.h>
  1442.   #include <errno.h>
  1443. ***************
  1444. *** 84,89 ****
  1445. --- 85,97 ----
  1446.   
  1447.   #define max(a, b) ((a) > (b) ? (a) : (b))
  1448.   
  1449. + #ifdef EMX
  1450. + extern Lisp_Object find_program_name_handler ();
  1451. + extern Lisp_Object Qprogram_name_handler_alist;
  1452. + extern Lisp_Object Vprogram_name_handler_alist;
  1453. + static Lisp_Object Qcall_process;
  1454. + #endif /* EMX */
  1455. + 
  1456.   #ifdef DOS_NT
  1457.   /* When we are starting external processes we need to know whether they
  1458.      take binary input (no conversion) or text input (\n is converted to
  1459. ***************
  1460. *** 220,225 ****
  1461. --- 228,247 ----
  1462.   #endif
  1463.     CHECK_STRING (args[0], 0);
  1464.   
  1465. + #ifdef EMX
  1466. +   {
  1467. +     Lisp_Object handler;
  1468. + 
  1469. +     handler = find_program_name_handler (args[0]);
  1470. +     if (!NILP (handler))
  1471. +       return call3 (handler,
  1472. +                     Fcons (Qcall_process, Flist (3, args + 1)),
  1473. +                     args[0],
  1474. +                     nargs >= 5 ? Flist (nargs - 4, args + 4) : Qnil);
  1475. +   }
  1476. +   check_process_priority ();
  1477. + #endif /* EMX */
  1478. + 
  1479.     error_file = Qt;
  1480.   
  1481.   #ifndef subprocesses
  1482. ***************
  1483. *** 363,368 ****
  1484. --- 385,393 ----
  1485.       {
  1486.   #ifndef MSDOS
  1487.         pipe (fd);
  1488. + #ifdef EMX
  1489. +       emx_proc_output_pipe (fd[0]);
  1490. + #endif /* EMX */
  1491.   #endif
  1492.   #if 0
  1493.         /* Replaced by close_process_descs */
  1494. ***************
  1495. *** 450,455 ****
  1496. --- 475,485 ----
  1497.   #ifdef WINDOWSNT
  1498.       pid = child_setup (filefd, fd1, fd_error, new_argv, 0, current_dir);
  1499.   #else  /* not WINDOWSNT */
  1500. + #ifdef EMX
  1501. +     if (fd[0] >= 0)
  1502. +       fcntl (fd[0], F_SETFD, 1);
  1503. +     pid = emx_child_setup (filefd, fd1, fd_error, new_argv, 0, current_dir);
  1504. + #else /* not EMX */
  1505.       pid = vfork ();
  1506.   
  1507.       if (pid == 0)
  1508. ***************
  1509. *** 463,468 ****
  1510. --- 493,499 ----
  1511.   #endif /* USG */
  1512.       child_setup (filefd, fd1, fd_error, new_argv, 0, current_dir);
  1513.         }
  1514. + #endif /* not EMX */
  1515.   #endif /* not WINDOWSNT */
  1516.   
  1517.       /* The MSDOS case did this already.  */
  1518. ***************
  1519. *** 483,489 ****
  1520. --- 514,524 ----
  1521.       {
  1522.         if (fd[0] >= 0)
  1523.       close (fd[0]);
  1524. + #ifndef EMX
  1525.         report_file_error ("Doing vfork", Qnil);
  1526. + #else /* EMX */
  1527. +       report_file_error ("Running process", Qnil);
  1528. + #endif
  1529.       }
  1530.   
  1531.     if (INTEGERP (buffer))
  1532. ***************
  1533. *** 600,608 ****
  1534. --- 635,649 ----
  1535.   delete_temp_file (name)
  1536.        Lisp_Object name;
  1537.   {
  1538. + #ifndef EMX
  1539.     /* Use Fdelete_file (indirectly) because that runs a file name handler.
  1540.        We did that when writing the file, so we should do so when deleting.  */
  1541.     internal_delete_file (name);
  1542. + #else /* EMX */
  1543. +   /* TODO: call file name handler, see above. */
  1544. +   if (unlink (XSTRING (name)->data) != 0 && errno == EACCES)
  1545. +     emx_async_delete_add (XSTRING (name)->data);
  1546. + #endif /* EMX */
  1547.   }
  1548.   
  1549.   DEFUN ("call-process-region", Fcall_process_region, Scall_process_region,
  1550. ***************
  1551. *** 635,641 ****
  1552. --- 676,686 ----
  1553.   #ifdef DOS_NT
  1554.     char *tempfile;
  1555.   #else
  1556. + #ifndef EMX
  1557.     char tempfile[20];
  1558. + #else /* EMX */
  1559. +   char tempfile[260];
  1560. + #endif /* EMX */
  1561.   #endif
  1562.     int count = specpdl_ptr - specpdl;
  1563.   #ifdef DOS_NT
  1564. ***************
  1565. *** 661,671 ****
  1566. --- 706,728 ----
  1567.   #endif
  1568.   #else /* not DOS_NT */
  1569.   
  1570. + #ifdef EMX
  1571. +   extern char *tempnam ();
  1572. +   char *t = tempnam ("/tmp", "em");
  1573. +   if (t)
  1574. +     {
  1575. +       strcpy (tempfile, t);
  1576. +       free (t);
  1577. +     }
  1578. +   else
  1579. +     strcpy (tempfile, "/tmp/emXXXXXX");
  1580. + #else /* not EMX */
  1581.   #ifdef VMS
  1582.     strcpy (tempfile, "tmp:emacsXXXXXX.");
  1583.   #else
  1584.     strcpy (tempfile, "/tmp/emacsXXXXXX");
  1585.   #endif
  1586. + #endif /* not EMX */
  1587.   #endif /* not DOS_NT */
  1588.   
  1589.     mktemp (tempfile);
  1590. ***************
  1591. *** 693,698 ****
  1592. --- 750,756 ----
  1593.   }
  1594.   
  1595.   #ifndef VMS /* VMS version is in vmsproc.c.  */
  1596. + #ifndef EMX /* emx version is in emxdep.c */
  1597.   
  1598.   /* This is the last thing run in a newly forked inferior
  1599.      either synchronous or asynchronous.
  1600. ***************
  1601. *** 934,939 ****
  1602. --- 992,999 ----
  1603.       }
  1604.   }
  1605.   
  1606. + #endif /* not EMX */
  1607. + 
  1608.   static int
  1609.   getenv_internal (var, varlen, value, valuelen)
  1610.        char *var;
  1611. ***************
  1612. *** 1037,1044 ****
  1613. --- 1097,1109 ----
  1614.       {
  1615.         /* Add to the path the lib-src subdir of the installation dir.  */
  1616.         Lisp_Object tem;
  1617. + #ifdef EMX
  1618. +       tem = Fexpand_file_name (build_string ("bin"),
  1619. +                    Vinstallation_directory);
  1620. + #else /* not EMX */
  1621.         tem = Fexpand_file_name (build_string ("lib-src"),
  1622.                      Vinstallation_directory);
  1623. + #endif /* not EMX */
  1624.         if (NILP (Fmember (tem, Vexec_path)))
  1625.       {
  1626.   #ifndef DOS_NT
  1627. ***************
  1628. *** 1051,1059 ****
  1629. --- 1116,1132 ----
  1630.         /* Maybe use ../etc as well as ../lib-src.  */
  1631.         if (data_dir == 0)
  1632.       {
  1633. + #ifdef EMX
  1634. +       tem = Fexpand_file_name (build_string ("data"),
  1635. +                    Vinstallation_directory);
  1636. + #else /* not EMX */
  1637.         tem = Fexpand_file_name (build_string ("etc"),
  1638.                      Vinstallation_directory);
  1639. + #endif /* not EMX */
  1640.         Vdoc_directory = Ffile_name_as_directory (tem);
  1641. + #ifdef EMX
  1642. +       Vdata_directory = Vdoc_directory;
  1643. + #endif /* EMX */
  1644.       }
  1645.       }
  1646.   
  1647. ***************
  1648. *** 1122,1127 ****
  1649. --- 1195,1204 ----
  1650.   
  1651.   syms_of_callproc ()
  1652.   {
  1653. + #ifdef EMX
  1654. +   Qcall_process = intern ("call-process");
  1655. +   staticpro (&Qcall_process);
  1656. + #endif /* EMX */
  1657.   #ifdef DOS_NT
  1658.     Qbuffer_file_type = intern ("buffer-file-type");
  1659.     staticpro (&Qbuffer_file_type);
  1660. diff -c emacs-19\src\cmds.c:1.1.1.22 emacs-19\src\cmds.c:1.19
  1661. *** emacs-19\src\cmds.c:1.1.1.22    Sun Aug 18 23:22:46 1996
  1662. --- emacs-19\src\cmds.c    Sun Aug 18 23:22:46 1996
  1663. ***************
  1664. *** 18,23 ****
  1665. --- 18,24 ----
  1666.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1667.   Boston, MA 02111-1307, USA.  */
  1668.   
  1669. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1670.   
  1671.   #include <config.h>
  1672.   #include "lisp.h"
  1673. ***************
  1674. *** 422,427 ****
  1675. --- 423,432 ----
  1676.     for (n = 0200; n < 0240; n++)
  1677.       initial_define_key (global_map, n, "self-insert-command");
  1678.   #endif
  1679. + #ifdef EMX
  1680. +   for (n = 0200; n < 0240; n++)
  1681. +     initial_define_key (global_map, n, "self-insert-command");
  1682. + #endif /* EMX */
  1683.     for (n = 0240; n < 0400; n++)
  1684.       initial_define_key (global_map, n, "self-insert-command");
  1685.   
  1686. diff -c emacs-19\src\dired.c:1.1.1.19 emacs-19\src\dired.c:1.30
  1687. *** emacs-19\src\dired.c:1.1.1.19    Sun Aug 18 23:22:46 1996
  1688. --- emacs-19\src\dired.c    Sun Aug 18 23:22:46 1996
  1689. ***************
  1690. *** 18,23 ****
  1691. --- 18,24 ----
  1692.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1693.   Boston, MA 02111-1307, USA.  */
  1694.   
  1695. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1696.   
  1697.   #include <config.h>
  1698.   
  1699. ***************
  1700. *** 368,377 ****
  1701. --- 369,383 ----
  1702.                   XSTRING (file)->size))
  1703.           continue;
  1704.   
  1705. + #ifdef EMX
  1706. +           /* Speed hack. */
  1707. +       directoryp = (dp->d_attr & 0x10);
  1708. + #else /* not EMX */
  1709.             if (file_name_completion_stat (dirname, dp, &st) < 0)
  1710.               continue;
  1711.   
  1712.             directoryp = ((st.st_mode & S_IFMT) == S_IFDIR);
  1713. + #endif /* not EMX */
  1714.         tem = Qnil;
  1715.             if (directoryp)
  1716.           {
  1717. ***************
  1718. *** 646,651 ****
  1719. --- 652,660 ----
  1720.     if (lstat (XSTRING (filename)->data, &s) < 0)
  1721.       return Qnil;
  1722.   
  1723. + #ifdef EMX
  1724. +   s.st_uid = getuid ();
  1725. + #endif /* not EMX */
  1726.     switch (s.st_mode & S_IFMT)
  1727.       {
  1728.       default:
  1729. diff -c emacs-19\src\dispextern.h:1.1.1.10 emacs-19\src\dispextern.h:1.27
  1730. *** emacs-19\src\dispextern.h:1.1.1.10    Sun Aug 18 23:22:46 1996
  1731. --- emacs-19\src\dispextern.h    Sun Aug 18 23:22:46 1996
  1732. ***************
  1733. *** 18,23 ****
  1734. --- 18,25 ----
  1735.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1736.   Boston, MA 02111-1307, USA.  */
  1737.   
  1738. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1739. + 
  1740.   #ifndef _DISPEXTERN_H_
  1741.   #define _DISPEXTERN_H_
  1742.   
  1743. ***************
  1744. *** 26,32 ****
  1745. --- 28,39 ----
  1746.   extern int display_completed;
  1747.   
  1748.   #ifdef HAVE_X_WINDOWS
  1749. + #ifndef HAVE_PM
  1750.   #include <X11/Xlib.h>
  1751. + #else /* HAVE_PM */
  1752. + #include "pmlib.h"
  1753. + #endif /* HAVE_PM */
  1754. + 
  1755.   #endif
  1756.   
  1757.   #ifdef MSDOS
  1758. diff -c emacs-19\src\dispnew.c:1.1.1.35 emacs-19\src\dispnew.c:1.51
  1759. *** emacs-19\src\dispnew.c:1.1.1.35    Sun Aug 18 23:22:46 1996
  1760. --- emacs-19\src\dispnew.c    Sun Aug 18 23:22:46 1996
  1761. ***************
  1762. *** 18,23 ****
  1763. --- 18,24 ----
  1764.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1765.   Boston, MA 02111-1307, USA.  */
  1766.   
  1767. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1768.   
  1769.   #include <signal.h>
  1770.   
  1771. ***************
  1772. *** 46,54 ****
  1773. --- 47,63 ----
  1774.   #include "syssignal.h"
  1775.   
  1776.   #ifdef HAVE_X_WINDOWS
  1777. + #ifndef HAVE_PM
  1778.   #include "xterm.h"
  1779. + #else /* HAVE_PM */
  1780. + #include "pmterm.h"
  1781. + #endif /* HAVE_PM */
  1782.   #endif    /* HAVE_X_WINDOWS */
  1783.   
  1784. + #ifdef EMX
  1785. + extern void emx_resize_vio (int *pheight, int *pwidth);
  1786. + #endif /* EMX */
  1787. + 
  1788.   #ifdef HAVE_NTGUI
  1789.   #include "w32term.h"
  1790.   #endif /* HAVE_NTGUI */
  1791. ***************
  1792. *** 104,109 ****
  1793. --- 113,122 ----
  1794.   
  1795.   int baud_rate;
  1796.   
  1797. + /* Minimum length of a run of matching characters to be skipped in output. */
  1798. + 
  1799. + int min_skip_run = 1;
  1800. + 
  1801.   /* nil or a symbol naming the window system under which emacs is
  1802.      running ('x is the only current possibility).  */
  1803.   
  1804. ***************
  1805. *** 562,567 ****
  1806. --- 575,589 ----
  1807.   
  1808.   /* Like bcopy except never gets confused by overlap.  */
  1809.   
  1810. + #ifdef EMX
  1811. + void
  1812. + safe_bcopy (from, to, size)
  1813. +      char *from, *to;
  1814. +      int size;
  1815. + {
  1816. +   bcopy (from, to, size);
  1817. + }
  1818. + #else /* not EMX */
  1819.   void
  1820.   safe_bcopy (from, to, size)
  1821.        char *from, *to;
  1822. ***************
  1823. *** 614,619 ****
  1824. --- 636,642 ----
  1825.       }
  1826.       }
  1827.   }     
  1828. + #endif /* not EMX */
  1829.   
  1830.   /* Rotate a vector of SIZE bytes right, by DISTANCE bytes.
  1831.      DISTANCE may be negative.  */
  1832. ***************
  1833. *** 1672,1678 ****
  1834.     /* If there's no i/d char, quickly do the best we can without it.  */
  1835.     if (!char_ins_del_ok)
  1836.       {
  1837. !       int i,j;
  1838.   
  1839.   #if 0
  1840.         if (FRAME_X_P (frame))
  1841. --- 1695,1701 ----
  1842.     /* If there's no i/d char, quickly do the best we can without it.  */
  1843.     if (!char_ins_del_ok)
  1844.       {
  1845. !       int i,j,k,more;
  1846.   
  1847.   #if 0
  1848.         if (FRAME_X_P (frame))
  1849. ***************
  1850. *** 1698,1706 ****
  1851.         if (i >= olen || nbody[i] != obody[i])    /* A non-matching char. */
  1852.           {
  1853.             cursor_to (vpos, i);
  1854. !           for (j = 1; (i + j < nlen &&
  1855. !                (i + j >= olen || nbody[i+j] != obody[i+j]));
  1856. !            j++);
  1857.   
  1858.             /* Output this run of non-matching chars.  */ 
  1859.             write_glyphs (nbody + i, j);
  1860. --- 1721,1745 ----
  1861.         if (i >= olen || nbody[i] != obody[i])    /* A non-matching char. */
  1862.           {
  1863.             cursor_to (vpos, i);
  1864. !               j = 1;
  1865. !               do
  1866. !                 {
  1867. !                   more = 0;
  1868. !                   while (i + j < nlen
  1869. !                          && (i + j >= olen || nbody[i+j] != obody[i+j]))
  1870. !                     j++;
  1871. !                   /* Include matching chars in the run unless there
  1872. !                      are min_skip_run or more consecutive matching chars
  1873. !                      or no non-matching chars follow. */
  1874. !                   for (k = j; (i + k < nlen &&
  1875. !                                !(i + k >= olen || nbody[i+k] != obody[i+k]));
  1876. !                        k++);
  1877. !                   if (k != j && k - j < min_skip_run
  1878. !                       && (i + k >= olen || nbody[i+k] != obody[i+k]))
  1879. !                     {
  1880. !                       j = k; more = 1;
  1881. !                     }
  1882. !                 } while (more);
  1883.   
  1884.             /* Output this run of non-matching chars.  */ 
  1885.             write_glyphs (nbody + i, j);
  1886. ***************
  1887. *** 2140,2145 ****
  1888. --- 2179,2190 ----
  1889.     /* Round up to the smallest acceptable size.  */
  1890.     check_frame_size (frame, &newheight, &newwidth);
  1891.   
  1892. + #ifdef EMX
  1893. +   /* Try to resize the VIO window. */
  1894. +   if (FRAME_TERMCAP_P (frame) && !pretend)
  1895. +     emx_resize_vio (&newheight, &newwidth);
  1896. + #endif /* EMX */
  1897. + 
  1898.     /* If we're not changing the frame size, quit now.  */
  1899.     if (newheight == FRAME_HEIGHT (frame)
  1900.         && newwidth == FRAME_WIDTH (frame))
  1901. ***************
  1902. *** 2490,2495 ****
  1903. --- 2535,2547 ----
  1904.        try to use X, and die with an error message if that doesn't work.  */
  1905.   
  1906.   #ifdef HAVE_X_WINDOWS
  1907. + #ifdef HAVE_PM
  1908. +   if (!inhibit_window_system && display_arg)
  1909. +     {
  1910. +       Vwindow_system = intern ("pm");
  1911. +       return;
  1912. +     }
  1913. + #else /* not HAVE_PM */
  1914.     if (! display_arg)
  1915.       {
  1916.         char *display;
  1917. ***************
  1918. *** 2501,2506 ****
  1919. --- 2553,2559 ----
  1920.   
  1921.         display_arg = (display != 0 && *display != 0);
  1922.       }
  1923. + #endif /* not HAVE_PM */
  1924.   
  1925.     if (!inhibit_window_system && display_arg)
  1926.       {
  1927. ***************
  1928. *** 2640,2645 ****
  1929. --- 2693,2702 ----
  1930.       "Display table to use for buffers that specify none.\n\
  1931.   See `buffer-display-table' for more information.");
  1932.     Vstandard_display_table = Qnil;
  1933. + 
  1934. +   DEFVAR_INT ("min-skip-run", &min_skip_run,
  1935. +     "Minimum run length required for skipping matching characters in output.\n\
  1936. + This is used for tuning output.");
  1937.   
  1938.     /* Initialize `window-system', unless init_display already decided it.  */
  1939.   #ifdef CANNOT_DUMP
  1940. diff -c emacs-19\src\doc.c:1.1.1.18 emacs-19\src\doc.c:1.28
  1941. *** emacs-19\src\doc.c:1.1.1.18    Sun Aug 18 23:22:48 1996
  1942. --- emacs-19\src\doc.c    Sun Aug 18 23:22:48 1996
  1943. ***************
  1944. *** 18,23 ****
  1945. --- 18,24 ----
  1946.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1947.   Boston, MA 02111-1307, USA.  */
  1948.   
  1949. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1950.   
  1951.   #include <config.h>
  1952.   
  1953. ***************
  1954. *** 135,141 ****
  1955. --- 136,146 ----
  1956.         name = (char *) XSTRING (file)->data;
  1957.       }
  1958.   
  1959. + #ifdef EMX
  1960. +   fd = open (name, O_RDONLY | O_BINARY, 0);
  1961. + #else /* not EMX */
  1962.     fd = open (name, O_RDONLY, 0);
  1963. + #endif /* not EMX */
  1964.     if (fd < 0)
  1965.       {
  1966.   #ifndef CANNOT_DUMP
  1967. ***************
  1968. *** 456,462 ****
  1969. --- 461,471 ----
  1970.   #endif /* VMS4_4 */
  1971.   #endif /* VMS */
  1972.   
  1973. + #ifdef EMX
  1974. +   fd = open (name, O_RDONLY | O_BINARY, 0);
  1975. + #else /* not EMX */
  1976.     fd = open (name, O_RDONLY, 0);
  1977. + #endif /* not EMX */
  1978.     if (fd < 0)
  1979.       report_file_error ("Opening doc string file",
  1980.                  Fcons (build_string (name), Qnil));
  1981. diff -c emacs-19\src\editfns.c:1.1.1.36 emacs-19\src\editfns.c:1.39
  1982. *** emacs-19\src\editfns.c:1.1.1.36    Sun Aug 18 23:22:48 1996
  1983. --- emacs-19\src\editfns.c    Sun Aug 18 23:22:48 1996
  1984. ***************
  1985. *** 18,23 ****
  1986. --- 18,24 ----
  1987.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  1988.   Boston, MA 02111-1307, USA.  */
  1989.   
  1990. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  1991.   
  1992.   #include <sys/types.h>
  1993.   
  1994. ***************
  1995. *** 107,113 ****
  1996. --- 108,120 ----
  1997.     if (NILP (tem))
  1998.       pw = (struct passwd *) getpwnam (XSTRING (Vuser_login_name)->data);
  1999.     
  2000. + #ifndef EMX
  2001.     p = (unsigned char *) (pw ? USER_FULL_NAME : "unknown");
  2002. + #else /* EMX */
  2003. +   p = (unsigned char *) getenv("USERFULLNAME");
  2004. +   if (!p)
  2005. +     p = (unsigned char *) (pw ? USER_FULL_NAME : "unknown");
  2006. + #endif /* EMX */
  2007.     q = (unsigned char *) index (p, ',');
  2008.     Vuser_full_name = make_string (p, q ? q - p : strlen (p));
  2009.     
  2010. diff -c emacs-19\src\emacs.c:1.1.1.34 emacs-19\src\emacs.c:1.66
  2011. *** emacs-19\src\emacs.c:1.1.1.34    Sun Aug 18 23:22:48 1996
  2012. --- emacs-19\src\emacs.c    Sun Aug 18 23:22:48 1996
  2013. ***************
  2014. *** 18,23 ****
  2015. --- 18,24 ----
  2016.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  2017.   Boston, MA 02111-1307, USA.  */
  2018.   
  2019. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  2020.   
  2021.   #include <signal.h>
  2022.   #include <errno.h>
  2023. ***************
  2024. *** 166,171 ****
  2025. --- 167,186 ----
  2026.         shut_down_emacs (sig, 0, Qnil);
  2027.       }
  2028.   
  2029. + #ifdef EMX
  2030. + 
  2031. +   /* Simply returning will cause a core dump for fatal signals; that's
  2032. +      what we want.  If we called kill(), the core dump would not be
  2033. +      very helpful, because the stack backtrace would not work (we are
  2034. +      in a signal handler!).  On the other hand, SIGKILL is sent by
  2035. +      another process and we don't want to continue after delivery of
  2036. +      SIGKILL. */
  2037. + #ifndef POSIX_SIGNALS
  2038. +   signal (fatal_error_code, SIG_ACK);
  2039. + #endif
  2040. +   if (fatal_error_code != SIGKILL && fatal_error_code != SIGTERM)
  2041. +     return;
  2042. + #endif /* EMX */
  2043.   #ifdef VMS
  2044.     LIB$STOP (SS$_ABORT);
  2045.   #else
  2046. ***************
  2047. *** 180,185 ****
  2048. --- 195,213 ----
  2049.   #endif /* not VMS */
  2050.   }
  2051.   
  2052. + #ifdef EMX
  2053. + SIGTYPE
  2054. + break_signal (sig)
  2055. +      int sig;
  2056. + {
  2057. + #ifndef POSIX_SIGNALS
  2058. +   signal (sig, SIG_ACK);
  2059. + #endif
  2060. +   Vquit_flag = Qt;
  2061. +   raise (SIGINT);
  2062. + }
  2063. + #endif /* EMX */
  2064. + 
  2065.   #ifdef SIGDANGER
  2066.   
  2067.   /* Handler for SIGDANGER.  */
  2068. ***************
  2069. *** 244,249 ****
  2070. --- 272,284 ----
  2071.            not including lisp and info.  */
  2072.         tem = Fexpand_file_name (build_string ("lib-src"), dir);
  2073.         lib_src_exists = Ffile_exists_p (tem);
  2074. + #ifdef EMX
  2075. +       if (NILP (lib_src_exists))
  2076. +         {
  2077. +           tem = Fexpand_file_name (build_string ("bin"), dir);
  2078. +           lib_src_exists = Ffile_exists_p (tem);
  2079. +         }
  2080. + #endif /* EMX */
  2081.         if (!NILP (lib_src_exists))
  2082.           {
  2083.             tem = Fexpand_file_name (build_string ("etc"), dir);
  2084. ***************
  2085. *** 259,264 ****
  2086. --- 294,306 ----
  2087.         /* See if dir's parent contains those subdirs.  */
  2088.         tem = Fexpand_file_name (build_string ("../lib-src"), dir);
  2089.         lib_src_exists = Ffile_exists_p (tem);
  2090. + #ifdef EMX
  2091. +       if (NILP (lib_src_exists))
  2092. +         {
  2093. +           tem = Fexpand_file_name (build_string ("../bin"), dir);
  2094. +           lib_src_exists = Ffile_exists_p (tem);
  2095. +         }
  2096. + #endif /* EMX */
  2097.         if (!NILP (lib_src_exists))
  2098.           {
  2099.             tem = Fexpand_file_name (build_string ("../etc"), dir);
  2100. ***************
  2101. *** 430,435 ****
  2102. --- 472,482 ----
  2103.     extern int errno;
  2104.     extern sys_nerr;
  2105.   
  2106. + #ifdef EMX
  2107. +   /* Expand wildcards on the command line. */
  2108. +   _wildcard (&argc, &argv);
  2109. + #endif /* EMX */
  2110. + 
  2111.   #ifdef LINUX_SBRK_BUG
  2112.     __sbrk (1);
  2113.   #endif
  2114. ***************
  2115. *** 478,483 ****
  2116. --- 525,535 ----
  2117.     }
  2118.   #endif /* NeXT */
  2119.   
  2120. + #ifdef EMX
  2121. +   emx_setup ();
  2122. +   _nls_init ();                 /* Call before emx_exec_name! */
  2123. +   emx_exec_name (&argv[0]);
  2124. + #endif /* EMX */
  2125.   #ifdef VMS
  2126.     /* If -map specified, map the data file in */
  2127.     {
  2128. ***************
  2129. *** 607,612 ****
  2130. --- 659,669 ----
  2131.         exit (0);
  2132.       }
  2133.   
  2134. + #ifdef HAVE_PM
  2135. +   if (argmatch (argv, argc, "-pm", "--pm", 4, NULL, &skip_args))
  2136. +     display_arg = 1;
  2137. + #endif /* HAVE_PM */
  2138. + 
  2139.   #ifdef HAVE_X_WINDOWS
  2140.     /* Stupid kludge to catch command-line display spec.  We can't
  2141.        handle this argument entirely in window system dependent code
  2142. ***************
  2143. *** 649,654 ****
  2144. --- 706,721 ----
  2145.     }
  2146.   #endif
  2147.   
  2148. + #ifdef EMX
  2149. +   if (!display_arg || inhibit_window_system)
  2150. +     {
  2151. +       static char pid[40];
  2152. + 
  2153. +       sprintf (pid, "EMACS_PID=%d", getpid ());
  2154. +       putenv (pid);
  2155. +     }
  2156. + #endif /* EMX */
  2157. + 
  2158.     if (! noninteractive)
  2159.       {
  2160.   #ifdef BSD_PGRPS
  2161. ***************
  2162. *** 758,763 ****
  2163. --- 825,833 ----
  2164.         signal (SIGSOUND, fatal_error_signal);
  2165.         signal (SIGMSG, fatal_error_signal);
  2166.   #endif /* AIX */
  2167. + #ifdef EMX
  2168. +       signal (SIGBREAK, break_signal);
  2169. + #endif /* EMX */
  2170.       }
  2171.   
  2172.     noninteractive1 = noninteractive;
  2173. ***************
  2174. *** 1027,1032 ****
  2175. --- 1097,1105 ----
  2176.     { "-t", "--terminal", 90, 1 },
  2177.     { "-d", "--display", 80, 1 },
  2178.     { "-display", 0, 80, 1 },
  2179. + #ifdef HAVE_PM
  2180. +   { "-pm", "--pm", 80, 0 },
  2181. + #endif /* HAVE_PM */
  2182.     { "-nw", "--no-windows", 70, 0 },
  2183.     { "-batch", "--batch", 60, 0 },
  2184.     { "-q", "--no-init-file", 50, 0 },
  2185. ***************
  2186. *** 1310,1315 ****
  2187. --- 1383,1402 ----
  2188.   #endif /* HAVE_X_WINDOWS */
  2189.   #endif
  2190.   
  2191. + #ifdef HAVE_PM
  2192. + /* Under OS/2, however, pmemacs.exe is better than the Presentation
  2193. +    Manager at closing multiple windows at once. */
  2194. + #ifdef HAVE_X_WINDOWS
  2195. +   /* It's not safe to call intern here.  Maybe we are crashing.  */
  2196. +   if (!noninteractive && SYMBOLP (Vwindow_system)
  2197. +       && XSYMBOL (Vwindow_system)->name->size == 2
  2198. +       && XSYMBOL (Vwindow_system)->name->data[0] == 'p'
  2199. +       && XSYMBOL (Vwindow_system)->name->data[1] == 'm'
  2200. +       && ! no_x)
  2201. +     pm_shutdown ();
  2202. + #endif /* HAVE_X_WINDOWS */
  2203. + #endif /* HAVE_PM */
  2204. + 
  2205.   #ifdef SIGIO
  2206.     /* There is a tendency for a SIGIO signal to arrive within exit,
  2207.        and cause a SIGHUP because the input descriptor is already closed.  */
  2208. ***************
  2209. *** 1437,1442 ****
  2210. --- 1524,1540 ----
  2211.       path = (char *) getenv (evarname);
  2212.     else
  2213.       path = 0;
  2214. + #ifdef EMX
  2215. +   if (path)
  2216. +     {
  2217. +       char *p = path;
  2218. +       path = alloca (strlen (p) + 1);
  2219. +       strcpy (path, p);
  2220. +       for (p = path; *p != 0; ++p)
  2221. +         if (*p == '\\')
  2222. +           *p = '/';
  2223. +     }
  2224. + #endif /* EMX */
  2225.     if (!path)
  2226.       path = defalt;
  2227.     lpath = Qnil;
  2228. diff -c emacs-19\src\fileio.c:1.1.1.35 emacs-19\src\fileio.c:1.72
  2229. *** emacs-19\src\fileio.c:1.1.1.35    Sun Aug 18 23:22:50 1996
  2230. --- emacs-19\src\fileio.c    Sun Aug 18 23:22:50 1996
  2231. ***************
  2232. *** 18,23 ****
  2233. --- 18,25 ----
  2234.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  2235.   Boston, MA 02111-1307, USA.  */
  2236.   
  2237. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  2238. + 
  2239.   #include <config.h>
  2240.   
  2241.   #include <sys/types.h>
  2242. ***************
  2243. *** 130,135 ****
  2244. --- 132,156 ----
  2245.   #endif
  2246.   #endif
  2247.   
  2248. + #ifdef EMX
  2249. + #include <stdlib.h>
  2250. + #include <fcntl.h>
  2251. + #include <sys/ead.h>
  2252. + extern Lisp_Object Femx_binary_mode_p ();
  2253. + extern Lisp_Object emx_expand_file_name ();
  2254. + extern Lisp_Object emx_get_original_case_string ();
  2255. + static unsigned long emx_size (Lisp_Object, Lisp_Object, Lisp_Object, int);
  2256. + void emx_fix_longname (const char *fname);
  2257. + void emx_fix_ead_longname (_ead ead, const char *fname);
  2258. + extern int fb_start (int fd, off_t *size);
  2259. + extern int fb_close ();
  2260. + extern long fb_lseek ();
  2261. + extern int fb_read ();
  2262. + #define close(a)        fb_close (a)
  2263. + #define lseek(a,b,c)    fb_lseek (a, b, c)
  2264. + #define read(a,b,c)     fb_read (a, b, c)
  2265. + #endif /* EMX */
  2266. + 
  2267.   #ifndef O_WRONLY
  2268.   #define O_WRONLY 1
  2269.   #endif
  2270. ***************
  2271. *** 687,693 ****
  2272.   #else
  2273.     if (slen > 1
  2274.         && IS_DIRECTORY_SEP (dst[slen - 1])
  2275. ! #ifdef DOS_NT
  2276.         && !IS_ANY_SEP (dst[slen - 2])
  2277.   #endif
  2278.         )
  2279. --- 708,714 ----
  2280.   #else
  2281.     if (slen > 1
  2282.         && IS_DIRECTORY_SEP (dst[slen - 1])
  2283. ! #if defined (DOS_NT) || defined (EMX)
  2284.         && !IS_ANY_SEP (dst[slen - 2])
  2285.   #endif
  2286.         )
  2287. ***************
  2288. *** 745,750 ****
  2289. --- 766,805 ----
  2290.        Lisp_Object prefix;
  2291.   {
  2292.     Lisp_Object val;
  2293. + #ifdef EMX
  2294. +   char drv_name[3], fsname[64], *p, *q;
  2295. +   int i, drive;
  2296. + 
  2297. +   /* Check if PREFIX is on an HPFS drive. */
  2298. + 
  2299. +   CHECK_STRING (prefix, 0);
  2300. +   p = XSTRING (prefix)->data;
  2301. +   drive = _fngetdrive (p);
  2302. +   if (drive == 0)
  2303. +     drive = _getdrive ();
  2304. +   drv_name[0] = (char)drive;
  2305. +   drv_name[1] = ':';
  2306. +   drv_name[2] = 0;
  2307. +   if (_filesys (drv_name, fsname, sizeof (fsname)) != 0
  2308. +       || strcmp (fsname, "HPFS") != 0)
  2309. +     {
  2310. +       /* It's not on an HPFS drive.  Keep only the first two
  2311. +          characters of the last component of PREFIX to restrict the
  2312. +          length of the last component to 8 characters.  */
  2313. + 
  2314. +       q = p;
  2315. +       while (*p != 0)
  2316. +         {
  2317. +           if (IS_DIRECTORY_SEP (*p) || *p == ':')
  2318. +             q = p + 1;
  2319. +           ++p;
  2320. +         }
  2321. +       p = XSTRING (prefix)->data;
  2322. +       i = q - p;
  2323. +       if (XSTRING (prefix)->size - i > 2)
  2324. +         prefix = make_string (XSTRING (prefix)->data, i + 2);
  2325. +     }
  2326. + #endif /* EMX */
  2327.   #ifdef MSDOS
  2328.     /* Don't use too many characters of the restricted 8+3 DOS
  2329.        filename space.  */
  2330. ***************
  2331. *** 860,865 ****
  2332. --- 915,931 ----
  2333.     name = FILE_SYSTEM_CASE (name);
  2334.   #endif
  2335.   
  2336. + #ifdef EMX
  2337. +   {
  2338. +     Lisp_Object tem;
  2339. +     tem = emx_expand_file_name (name,
  2340. +                                 (!NILP (default_directory) ? default_directory
  2341. +                                  : current_buffer->directory));
  2342. +     if (!NILP (tem))
  2343. +       return tem;
  2344. +   }
  2345. + #endif /* EMX */
  2346. + 
  2347.     nm = XSTRING (name)->data;
  2348.   
  2349.   #ifdef DOS_NT
  2350. ***************
  2351. *** 1782,1787 ****
  2352. --- 1848,1859 ----
  2353.   
  2354.     for (p = nm; p != endp; p++)
  2355.       {
  2356. + #ifdef EMX
  2357. +       if (p != nm && IS_DIRECTORY_SEP (p[-1])
  2358. +           && (p[0] == '~'
  2359. +               || _fngetdrive (p)
  2360. +               || (IS_DIRECTORY_SEP (p[0]) && p - 1 != nm)))
  2361. + #else /* not EMX */
  2362.         if ((p[0] == '~'
  2363.   #if defined (APOLLO) || defined (WINDOWSNT)
  2364.          /* // at start of file name is meaningful in Apollo and
  2365. ***************
  2366. *** 1797,1802 ****
  2367. --- 1869,1875 ----
  2368.             || p[-1] == ':' || p[-1] == ']' || p[-1] == '>'
  2369.   #endif /* VMS */
  2370.             || IS_DIRECTORY_SEP (p[-1])))
  2371. + #endif /* not EMX */
  2372.       {
  2373.         nm = p;
  2374.         substituted = 1;
  2375. ***************
  2376. *** 1922,1927 ****
  2377. --- 1995,2006 ----
  2378.     /* If /~ or // appears, discard everything through first slash. */
  2379.   
  2380.     for (p = xnm; p != x; p++)
  2381. + #ifdef EMX
  2382. +     if (p != xnm && IS_DIRECTORY_SEP (p[-1])
  2383. +         && (p[0] == '~'
  2384. +             || _fngetdrive (p)
  2385. +             || (IS_DIRECTORY_SEP (p[0]) && p - 1 != xnm)))
  2386. + #else /* not EMX */
  2387.       if ((p[0] == '~'
  2388.   #if defined (APOLLO) || defined (WINDOWSNT)
  2389.        || (IS_DIRECTORY_SEP (p[0]) && p - 1 != xnm)
  2390. ***************
  2391. *** 1930,1935 ****
  2392. --- 2009,2015 ----
  2393.   #endif /* not (APOLLO || WINDOWSNT) */
  2394.        )
  2395.       && p != nm && IS_DIRECTORY_SEP (p[-1]))
  2396. + #endif /* not EMX */
  2397.         xnm = p;
  2398.   #ifdef DOS_NT
  2399.       else if (IS_DRIVE (p[0]) && p[1] == ':'
  2400. ***************
  2401. *** 2061,2066 ****
  2402. --- 2141,2151 ----
  2403.       RETURN_UNGCPRO (call5 (handler, Qcopy_file, file, newname,
  2404.                  ok_if_already_exists, keep_date));
  2405.   
  2406. + #ifdef EMX
  2407. +   file = emx_get_original_case_string (file);
  2408. +   newname = emx_get_original_case_string (newname);
  2409. + #endif /* EMX */
  2410. + 
  2411.     if (NILP (ok_if_already_exists)
  2412.         || INTEGERP (ok_if_already_exists))
  2413.       barf_or_query_if_file_exists (newname, "copy to it",
  2414. ***************
  2415. *** 2071,2076 ****
  2416. --- 2156,2164 ----
  2417.     ifd = open (XSTRING (file)->data, O_RDONLY);
  2418.     if (ifd < 0)
  2419.       report_file_error ("Opening input file", Fcons (file, Qnil));
  2420. + #ifdef EMX
  2421. +   setmode (ifd, O_BINARY);
  2422. + #endif /* EMX */
  2423.   
  2424.     record_unwind_protect (close_file_unwind, make_number (ifd));
  2425.   
  2426. ***************
  2427. *** 2106,2117 ****
  2428. --- 2194,2211 ----
  2429.     /* Create the copy file with the same record format as the input file */
  2430.     ofd = sys_creat (XSTRING (newname)->data, 0666, ifd);
  2431.   #else
  2432. + #ifdef EMX
  2433. +   ofd = open (XSTRING (newname)->data,
  2434. +               O_WRONLY | O_TRUNC | O_CREAT | O_BINARY | O_SIZE, 0666,
  2435. +               (unsigned long)(input_file_statable_p ? st.st_size : 0));
  2436. + #else /* not EMX */
  2437.   #ifdef MSDOS
  2438.     /* System's default file type was set to binary by _fmode in emacs.c.  */
  2439.     ofd = creat (XSTRING (newname)->data, S_IREAD | S_IWRITE);
  2440.   #else /* not MSDOS */
  2441.     ofd = creat (XSTRING (newname)->data, 0666);
  2442.   #endif /* not MSDOS */
  2443. + #endif /* not EMX */
  2444.   #endif /* VMS */
  2445.     if (ofd < 0)
  2446.       report_file_error ("Opening output file", Fcons (newname, Qnil));
  2447. ***************
  2448. *** 2153,2158 ****
  2449. --- 2247,2269 ----
  2450.   #endif /* MSDOS */
  2451.       }
  2452.   
  2453. + #ifdef EMX
  2454. +   /* Copy extended attributes.  */
  2455. +   if (_osmode == OS2_MODE)
  2456. +     {
  2457. +       _ead ead = _ead_create ();
  2458. +       if (ead != NULL)
  2459. +         {
  2460. +           if (_ead_read (ead, NULL, ifd, 0) == 0)
  2461. +             {
  2462. +               emx_fix_ead_longname (ead, XSTRING (newname)->data);
  2463. +               _ead_write (ead, XSTRING (newname)->data, -1, 0);
  2464. +             }
  2465. +           _ead_destroy (ead);
  2466. +         }
  2467. +     }
  2468. + #endif /* EMX */
  2469. + 
  2470.     close (ifd);
  2471.   
  2472.     /* Discard the unwind protects.  */
  2473. ***************
  2474. *** 2264,2269 ****
  2475. --- 2375,2384 ----
  2476.   #endif
  2477.     Lisp_Object handler;
  2478.     struct gcpro gcpro1, gcpro2;
  2479. + #ifdef EMX
  2480. +   Lisp_Object file1, newname1;
  2481. +   int rc;
  2482. + #endif /* EMX */
  2483.   
  2484.     GCPRO2 (file, newname);
  2485.     CHECK_STRING (file, 0);
  2486. ***************
  2487. *** 2282,2295 ****
  2488. --- 2397,2427 ----
  2489.   
  2490.     if (NILP (ok_if_already_exists)
  2491.         || INTEGERP (ok_if_already_exists))
  2492. + #ifdef EMX
  2493. +     if (NILP (Fstring_equal (file, newname)))
  2494. + #endif /* EMX */
  2495.       barf_or_query_if_file_exists (newname, "rename to it",
  2496.                     INTEGERP (ok_if_already_exists), 0);
  2497. + #ifdef EMX
  2498. +   file1 = file; newname1 = newname;
  2499. +   file = emx_get_original_case_string (file);
  2500. +   newname = emx_get_original_case_string (newname);
  2501. +   rc = rename (XSTRING (file)->data, XSTRING (newname)->data);
  2502. +   if (rc < 0 && (errno == EEXIST || errno == EACCES)
  2503. +       && NILP (Fstring_equal (file1, newname1)))
  2504. +     {
  2505. +       remove (XSTRING (newname)->data);
  2506. +       rc = rename (XSTRING (file)->data, XSTRING (newname)->data);
  2507. +     }
  2508. +   if (rc < 0)
  2509. + #else /* not EMX */
  2510.   #ifndef BSD4_1
  2511.     if (0 > rename (XSTRING (file)->data, XSTRING (newname)->data))
  2512.   #else
  2513.     if (0 > link (XSTRING (file)->data, XSTRING (newname)->data)
  2514.         || 0 > unlink (XSTRING (file)->data))
  2515.   #endif
  2516. + #endif /* not EMX */
  2517.       {
  2518.         if (errno == EXDEV)
  2519.       {
  2520. ***************
  2521. *** 2310,2315 ****
  2522. --- 2442,2451 ----
  2523.       report_file_error ("Renaming", Flist (2, &file));
  2524.   #endif
  2525.       }
  2526. + #ifdef EMX
  2527. +   else if (_osmode == OS2_MODE)
  2528. +     emx_fix_longname (XSTRING (newname)->data);
  2529. + #endif /* EMX */
  2530.     UNGCPRO;
  2531.     return Qnil;
  2532.   }
  2533. ***************
  2534. *** 2516,2521 ****
  2535. --- 2652,2661 ----
  2536.   #ifdef DOS_NT
  2537.         || (IS_DRIVE (*ptr) && ptr[1] == ':' && IS_DIRECTORY_SEP (ptr[2]))
  2538.   #endif
  2539. + #ifdef EMX
  2540. +       || *ptr == '\\'
  2541. +       || (_fngetdrive (ptr) && IS_DIRECTORY_SEP (ptr[2]))
  2542. + #endif /* EMX */
  2543.         )
  2544.       return Qt;
  2545.     else
  2546. ***************
  2547. *** 2528,2533 ****
  2548. --- 2668,2679 ----
  2549.   check_executable (filename)
  2550.        char *filename;
  2551.   {
  2552. + #ifdef EMX
  2553. +   struct stat st;
  2554. +   if (stat (filename, &st) < 0)
  2555. +     return 0;
  2556. +   return (st.st_mode & S_IXUSR) ? 1 : 0;
  2557. + #else /* not EMX */
  2558.   #ifdef DOS_NT
  2559.     int len = strlen (filename);
  2560.     char *suffix;
  2561. ***************
  2562. *** 2554,2559 ****
  2563. --- 2700,2706 ----
  2564.     return (access (filename, 1) >= 0);
  2565.   #endif
  2566.   #endif /* not DOS_NT */
  2567. + #endif /* not EMX */
  2568.   }
  2569.   
  2570.   /* Return nonzero if file FILENAME exists and can be written.  */
  2571. ***************
  2572. *** 2644,2649 ****
  2573. --- 2791,2800 ----
  2574.     if (!NILP (handler))
  2575.       return call2 (handler, Qfile_readable_p, absname);
  2576.   
  2577. + #ifdef EMX
  2578. +   /* Cannot open directories with open().  */
  2579. +   return (access (XSTRING (absname)->data, 4) >= 0) ? Qt : Qnil;
  2580. + #else /* not EMX */
  2581.   #ifdef DOS_NT
  2582.     /* Under MS-DOS and Windows, open does not work for directories.  */
  2583.     if (access (XSTRING (absname)->data, 0) == 0)
  2584. ***************
  2585. *** 2656,2661 ****
  2586. --- 2807,2813 ----
  2587.     close (desc);
  2588.     return Qt;
  2589.   #endif /* not DOS_NT */
  2590. + #endif /* not EMX */
  2591.   }
  2592.   
  2593.   /* Having this before file-symlink-p mysteriously caused it to be forgotten
  2594. ***************
  2595. *** 3050,3055 ****
  2596. --- 3202,3214 ----
  2597.       if ((fd = open (XSTRING (filename)->data, O_RDONLY)) < 0)
  2598.         goto badopen;
  2599.   
  2600. + #ifdef EMX
  2601. +   if (NILP (current_buffer->emx_binary_mode))
  2602. +     current_buffer->emx_binary_mode = Femx_binary_mode_p (filename);
  2603. +   if (!NILP (current_buffer->emx_binary_mode))
  2604. +     setmode (fd, O_BINARY);
  2605. + #endif /* EMX */
  2606. + 
  2607.     /* Replacement should preserve point as it preserves markers.  */
  2608.     if (!NILP (replace))
  2609.       record_unwind_protect (restore_point_unwind, Fpoint_marker ());
  2610. ***************
  2611. *** 3093,3098 ****
  2612. --- 3252,3263 ----
  2613.         del_range_1 (BEGV, ZV, 0);
  2614.       }
  2615.   #else /* not DOS_NT */
  2616. + #ifdef EMX
  2617. +   if (!NILP (replace) && NILP (current_buffer->emx_binary_mode)
  2618. +       && fb_start (fd, &st.st_size) != 0)
  2619. +     error ("IO error reading %s: %s",
  2620. +        XSTRING (filename)->data, strerror (errno));
  2621. + #endif /* EMX */
  2622.     if (!NILP (replace))
  2623.       {
  2624.         unsigned char buffer[1 << 14];
  2625. ***************
  2626. *** 3416,3421 ****
  2627. --- 3581,3590 ----
  2628.     int visiting, quietly;
  2629.     struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
  2630.     struct buffer *given_buffer;
  2631. + #ifdef EMX
  2632. +   int binary;
  2633. +   unsigned long size;
  2634. + #endif /* EMX */
  2635.   #ifdef DOS_NT
  2636.     int buffer_file_type
  2637.       = NILP (current_buffer->buffer_file_type) ? O_TEXT : O_BINARY;
  2638. ***************
  2639. *** 3491,3496 ****
  2640. --- 3660,3671 ----
  2641.       lock_file (lockname);
  2642.   #endif /* CLASH_DETECTION */
  2643.   
  2644. + #ifdef EMX
  2645. +   binary = ((!STRINGP (start) && !NILP (current_buffer->emx_binary_mode))
  2646. +             || !NILP (Femx_binary_mode_p (filename)));
  2647. +   filename = emx_get_original_case_string (filename);
  2648. + #endif /* EMX */
  2649. + 
  2650.     fn = XSTRING (filename)->data;
  2651.     desc = -1;
  2652.     if (!NILP (append))
  2653. ***************
  2654. *** 3547,3552 ****
  2655. --- 3722,3736 ----
  2656.         desc = creat (fn, 0666);
  2657.         }
  2658.   #else /* not VMS */
  2659. + #ifdef EMX
  2660. +   {
  2661. +     /* Set initial file size to avoid fragmentation. */
  2662. +     size = emx_size (start, end, annotations, binary);
  2663. +     desc = open (fn, O_WRONLY | O_TRUNC | O_CREAT | O_SIZE,
  2664. +                  auto_saving ? auto_save_mode_bits : 0666, size);
  2665. +     append = Qnil;
  2666. +   }
  2667. + #else /* not EMX */
  2668.   #ifdef DOS_NT
  2669.     desc = open (fn,
  2670.              O_WRONLY | O_TRUNC | O_CREAT | buffer_file_type,
  2671. ***************
  2672. *** 3554,3559 ****
  2673. --- 3738,3744 ----
  2674.   #else  /* not DOS_NT */
  2675.     desc = creat (fn, auto_saving ? auto_save_mode_bits : 0666);
  2676.   #endif /* not DOS_NT */
  2677. + #endif /* not EMX */
  2678.   #endif /* not VMS */
  2679.   
  2680.     UNGCPRO;
  2681. ***************
  2682. *** 3567,3572 ****
  2683. --- 3752,3761 ----
  2684.   #endif /* CLASH_DETECTION */
  2685.         report_file_error ("Opening output file", Fcons (filename, Qnil));
  2686.       }
  2687. + #ifdef EMX
  2688. +   if (binary)
  2689. +     setmode (desc, O_BINARY);
  2690. + #endif /* EMX */
  2691.   
  2692.     record_unwind_protect (close_file_unwind, make_number (desc));
  2693.   
  2694. ***************
  2695. *** 3877,3882 ****
  2696. --- 4066,4140 ----
  2697.     return 0;
  2698.   }
  2699.   
  2700. + #ifdef EMX
  2701. + static unsigned long
  2702. + a_size (addr, len, pos, annot, binary)
  2703. +      register char *addr;
  2704. +      register int len;
  2705. +      int pos;
  2706. +      Lisp_Object *annot;
  2707. +      int binary;
  2708. + {
  2709. +   unsigned long size;
  2710. +   int i;
  2711. + 
  2712. +   size = len;
  2713. +   if (!binary)
  2714. +     {
  2715. +       if (!EQ (current_buffer->selective_display, Qt))
  2716. +         {
  2717. +           for (i = 0; i < len; ++i)
  2718. +             if (addr[i] == '\n')
  2719. +               ++size;
  2720. +         }
  2721. +       else
  2722. +         for (i = 0; i < len; ++i)
  2723. +           if (addr[i] == '\n' || addr[i] == '\015')
  2724. +             ++size;
  2725. +     }
  2726. +   /* TODO: annotations */
  2727. +   return size;
  2728. + }
  2729. + 
  2730. + 
  2731. + static unsigned long
  2732. + emx_size (start, end, annotations, binary)
  2733. +      Lisp_Object start, end, annotations;
  2734. +      int binary;
  2735. + {
  2736. +   unsigned long size;
  2737. +   struct gcpro gcpro1;
  2738. +   int start1, end1, tem;
  2739. + 
  2740. +   /* START and END are already protected. */
  2741. +   GCPRO1 (annotations);
  2742. + 
  2743. +   if (STRINGP (start))
  2744. +     size = a_size (XSTRING (start)->data, XSTRING (start)->size, 0,
  2745. +                    &annotations, binary);
  2746. +   else if (XINT (start) != XINT (end))
  2747. +     {
  2748. +       start1 = XINT (start);
  2749. +       end1 = XINT (end);
  2750. +       size = 0;
  2751. +       if (XINT (start) < GPT)
  2752. +         size += a_size (&FETCH_CHAR (start1), min (GPT, end1) - start1, start1,
  2753. +                         &annotations, binary);
  2754. +       if (XINT (end) > GPT)
  2755. +     {
  2756. +       tem = max (start1, GPT);
  2757. +           size += a_size (&FETCH_CHAR (tem), end1 - tem, tem,
  2758. +                           &annotations, binary);
  2759. +     }
  2760. +     }
  2761. +   else
  2762. +     size = a_size ("", 0, XINT (start), &annotations, binary);
  2763. + 
  2764. +   UNGCPRO;
  2765. +   return size;
  2766. + }
  2767. + #endif /* EMX */
  2768. + 
  2769.   DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime,
  2770.     Sverify_visited_file_modtime, 1, 1, 0,
  2771.     "Return t if last mod time of BUF's visited file matches what BUF records.\n\
  2772. ***************
  2773. *** 3999,4008 ****
  2774. --- 4257,4273 ----
  2775.     else
  2776.       auto_save_mode_bits = 0666;
  2777.   
  2778. + #ifndef EMX
  2779.     return
  2780. + #endif /* EMX */
  2781.       Fwrite_region (Qnil, Qnil,
  2782.              current_buffer->auto_save_file_name,
  2783.              Qnil, Qlambda, Qnil);
  2784. + #ifdef EMX
  2785. +   Fput_ea_list (Fexpand_file_name (current_buffer->auto_save_file_name, Qnil),
  2786. +                 current_buffer->extended_attributes, Qt);
  2787. +   return Qnil;
  2788. + #endif /* EMX */
  2789.   }
  2790.   
  2791.   static Lisp_Object
  2792. ***************
  2793. *** 4058,4063 ****
  2794. --- 4323,4331 ----
  2795.       {
  2796.         Lisp_Object listfile;
  2797.         listfile = Fexpand_file_name (Vauto_save_list_file_name, Qnil);
  2798. + #ifdef EMX
  2799. +       listfile = emx_get_original_case_string (listfile);
  2800. + #endif /* EMX */
  2801.   #ifdef DOS_NT
  2802.         listdesc = open (XSTRING (listfile)->data,
  2803.                  O_WRONLY | O_TRUNC | O_CREAT | O_TEXT,
  2804. diff -c emacs-19\src\frame.c:1.1.1.33 emacs-19\src\frame.c:1.42
  2805. *** emacs-19\src\frame.c:1.1.1.33    Sun Aug 18 23:22:50 1996
  2806. --- emacs-19\src\frame.c    Sun Aug 18 23:22:50 1996
  2807. ***************
  2808. *** 18,23 ****
  2809. --- 18,25 ----
  2810.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  2811.   Boston, MA 02111-1307, USA.  */
  2812.   
  2813. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  2814. + 
  2815.   #include <config.h>
  2816.   
  2817.   #include <stdio.h>
  2818. ***************
  2819. *** 83,88 ****
  2820. --- 85,94 ----
  2821.   Lisp_Object Qbuffer_predicate;
  2822.   Lisp_Object Qtitle;
  2823.   
  2824. + #ifdef HAVE_PM
  2825. + Lisp_Object Qpm;
  2826. + #endif /* HAVE_PM */
  2827. + 
  2828.   Lisp_Object Vterminal_frame;
  2829.   Lisp_Object Vdefault_frame_alist;
  2830.   
  2831. ***************
  2832. *** 125,130 ****
  2833. --- 131,141 ----
  2834.     Qtitle = intern ("title");
  2835.     staticpro (&Qtitle);
  2836.   
  2837. + #ifdef HAVE_PM
  2838. +   Qpm = intern ("pm");
  2839. +   staticpro (&Qpm);
  2840. + #endif /* HAVE_PM */
  2841. + 
  2842.     DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,
  2843.       "Alist of default values for frame creation.\n\
  2844.   These may be set in your init file, like this:\n\
  2845. ***************
  2846. *** 212,217 ****
  2847. --- 223,229 ----
  2848.     "Return non-nil if OBJECT is a frame.\n\
  2849.   Value is t for a termcap frame (a character-only terminal),\n\
  2850.   `x' for an Emacs frame that is really an X window,\n\
  2851. + `pm' for an Emacs frame that is really a Presentation Manager window,\n\
  2852.   `pc' for a direct-write MS-DOS frame.\n\
  2853.   See also `frame-live-p'.")
  2854.     (object)
  2855. ***************
  2856. *** 224,230 ****
  2857. --- 236,246 ----
  2858.       case output_termcap:
  2859.         return Qt;
  2860.       case output_x_window:
  2861. + #ifdef HAVE_PM
  2862. +       return Qpm;
  2863. + #else /* not HAVE_PM */
  2864.         return Qx;
  2865. + #endif /* not HAVE_PM */
  2866.       case output_win32:
  2867.         return Qwin32;
  2868.       case output_msdos_raw:
  2869. diff -c emacs-19\src\keyboard.c:1.1.1.48 emacs-19\src\keyboard.c:1.85
  2870. *** emacs-19\src\keyboard.c:1.1.1.48    Sun Aug 18 23:22:54 1996
  2871. --- emacs-19\src\keyboard.c    Sun Aug 18 23:22:54 1996
  2872. ***************
  2873. *** 18,23 ****
  2874. --- 18,25 ----
  2875.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  2876.   Boston, MA 02111-1307, USA.  */
  2877.   
  2878. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  2879. + 
  2880.   /* Allow config.h to undefine symbols found here.  */
  2881.   #include <signal.h>
  2882.   
  2883. ***************
  2884. *** 54,60 ****
  2885. --- 56,66 ----
  2886.   
  2887.   /* This is to get the definitions of the XK_ symbols.  */
  2888.   #ifdef HAVE_X_WINDOWS
  2889. + #ifdef HAVE_PM
  2890. + #include "pmterm.h"
  2891. + #else /* not HAVE_PM */
  2892.   #include "xterm.h"
  2893. + #endif /* not HAVE_PM */
  2894.   #endif
  2895.   
  2896.   #ifdef HAVE_NTGUI
  2897. ***************
  2898. *** 519,525 ****
  2899. --- 525,535 ----
  2900.   /* If we support a window system, turn on the code to poll periodically
  2901.      to detect C-g.  It isn't actually used when doing interrupt input.  */
  2902.   #ifdef HAVE_WINDOW_SYSTEM
  2903. + /* pmemacs sends SIGINT to Emacs when C-g is hit.  We don't have to
  2904. +    poll. */
  2905. + #ifndef HAVE_PM
  2906.   #define POLL_FOR_INPUT
  2907. + #endif /* not HAVE_PM */
  2908.   #endif
  2909.   
  2910.   /* Non-nil enables Column Number mode.  */
  2911. ***************
  2912. *** 2305,2310 ****
  2913. --- 2315,2323 ----
  2914.     do_mouse_tracking = old_value;
  2915.     if (NILP (old_value))
  2916.       {
  2917. + #ifdef HAVE_PM
  2918. +       pm_mouse_tracking (0);
  2919. + #endif /* HAVE_PM */
  2920.         /* Redisplay may have been preempted because there was input
  2921.        available, and it assumes it will be called again after the
  2922.        input has been processed.  If the only input available was
  2923. ***************
  2924. *** 2331,2338 ****
  2925. --- 2344,2365 ----
  2926.   
  2927.     record_unwind_protect (tracking_off, do_mouse_tracking);
  2928.   
  2929. + #ifdef HAVE_PM
  2930. +   if (NILP (do_mouse_tracking))
  2931. +     {
  2932. +       Lisp_Object tail, frame;
  2933. + 
  2934. +       FOR_EACH_FRAME (tail, frame)
  2935. +         XFRAME (frame)->mouse_moved = 0;
  2936. +     }
  2937. + #endif /* HAVE_PM */
  2938. + 
  2939.     do_mouse_tracking = Qt;
  2940.   
  2941. + #ifdef HAVE_PM
  2942. +   pm_mouse_tracking (1);
  2943. + #endif /* HAVE_PM */
  2944. + 
  2945.     val = Fprogn (args);
  2946.     return unbind_to (count, val);
  2947.   }
  2948. ***************
  2949. *** 3548,3553 ****
  2950. --- 3575,3583 ----
  2951.   static char *lispy_mouse_names[] =
  2952.   {
  2953.     "mouse-1", "mouse-2", "mouse-3", "mouse-4", "mouse-5"
  2954. + #ifdef HAVE_PM
  2955. +   , "drop-file", "drop-color"
  2956. + #endif /* HAVE_PM */
  2957.   };
  2958.   
  2959.   /* Scroll bar parts.  */
  2960. ***************
  2961. *** 3805,3810 ****
  2962. --- 3835,3857 ----
  2963.   
  2964.       start_pos_ptr = &XVECTOR (button_down_location)->contents[button];
  2965.   
  2966. + #ifdef HAVE_PM
  2967. +         if (event->modifiers == 0)
  2968. +           {
  2969. +             Lisp_Object head;
  2970. + 
  2971. +             head = modify_event_symbol (button,
  2972. +                                         event->modifiers,
  2973. +                                         Qmouse_click, Qnil,
  2974. +                                         lispy_mouse_names, &mouse_syms,
  2975. +                                         (sizeof (lispy_mouse_names)
  2976. +                                          / sizeof (lispy_mouse_names[0])));
  2977. +         return Fcons (head,
  2978. +               Fcons (position,
  2979. +                  Qnil));
  2980. +           }
  2981. + #endif /* HAVE_PM */
  2982. + 
  2983.       start_pos = *start_pos_ptr;
  2984.       *start_pos_ptr = Qnil;
  2985.   
  2986. ***************
  2987. *** 4971,4976 ****
  2988. --- 5018,5027 ----
  2989.   void
  2990.   reinvoke_input_signal ()
  2991.   {
  2992. + #ifdef HAVE_PM
  2993. +   while (read_avail_input (1) > 0)
  2994. +     ;
  2995. + #endif /* HAVE_PM */
  2996.   #ifdef SIGIO
  2997.     kill (getpid (), SIGIO);
  2998.   #endif
  2999. ***************
  3000. *** 7365,7370 ****
  3001. --- 7416,7428 ----
  3002.     /* Must preserve main program's value of errno.  */
  3003.     int old_errno = errno;
  3004.   
  3005. + #ifdef EMX
  3006. +   /* Under emx with non-POSIX signals, a signal is blocked until
  3007. +      acknowledged. */
  3008. + #ifndef POSIX_SIGNALS
  3009. +   signal (SIGINT, SIG_ACK);
  3010. + #endif
  3011. + #else /* not EMX */
  3012.   #ifdef USG
  3013.     if (!read_socket_hook && NILP (Vwindow_system))
  3014.       {
  3015. ***************
  3016. *** 7374,7379 ****
  3017. --- 7432,7438 ----
  3018.         signal (SIGQUIT, interrupt_signal);
  3019.       }
  3020.   #endif /* USG */
  3021. + #endif /* not EMX */
  3022.   
  3023.     cancel_echoing ();
  3024.   
  3025. ***************
  3026. *** 7406,7411 ****
  3027. --- 7465,7474 ----
  3028.         printf ("you can continue or abort.\n");
  3029.   #endif /* not VMS */
  3030.   #endif /* not SIGTSTP */
  3031. + #ifdef EMX
  3032. +       /* Still required??? */
  3033. +       Vquit_flag = Qnil;
  3034. + #endif */ EMX */
  3035.   #ifdef MSDOS
  3036.         /* We must remain inside the screen area when the internal terminal
  3037.        is used.  Note that [Enter] is not echoed by dos.  */
  3038. ***************
  3039. *** 7705,7711 ****
  3040. --- 7768,7781 ----
  3041.   
  3042.     kbd_buffer_frame_or_window
  3043.       = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil);
  3044. + 
  3045. + #ifdef HAVE_PM
  3046. +   /* Use SIGINT even if window-system is non-nil; pmemacs sends SIGINT
  3047. +      when C-g is typed.  */
  3048. +   if (!noninteractive && !read_socket_hook)
  3049. + #else /* not HAVE_PM */
  3050.     if (!noninteractive && !read_socket_hook && NILP (Vwindow_system))
  3051. + #endif /* not HAVE_PM */
  3052.       {
  3053.         signal (SIGINT, interrupt_signal);
  3054.   #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
  3055. diff -c emacs-19\src\lread.c:1.1.1.32 emacs-19\src\lread.c:1.46
  3056. *** emacs-19\src\lread.c:1.1.1.32    Sun Aug 18 23:22:56 1996
  3057. --- emacs-19\src\lread.c    Sun Aug 18 23:22:56 1996
  3058. ***************
  3059. *** 19,24 ****
  3060. --- 19,25 ----
  3061.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  3062.   Boston, MA 02111-1307, USA.  */
  3063.   
  3064. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3065.   
  3066.   #include <config.h>
  3067.   #include <stdio.h>
  3068. ***************
  3069. *** 92,97 ****
  3070. --- 93,103 ----
  3071.   /* This is used to build the load history. */
  3072.   Lisp_Object Vcurrent_load_list;
  3073.   
  3074. + #ifdef EMX
  3075. + /* Try replacing `-' with `_' in `load' if this is non-zero. */
  3076. + int emx_cdrom_load;
  3077. + #endif /* EMX */
  3078. + 
  3079.   /* Name of file actually being read by `load'.  */
  3080.   Lisp_Object Vload_file_name;
  3081.   
  3082. ***************
  3083. *** 412,417 ****
  3084. --- 418,444 ----
  3085.         GCPRO1 (file);
  3086.         fd = openp (Vload_path, file, !NILP (nosuffix) ? "" : ".elc:.el:",
  3087.             &found, 0);
  3088. + #ifdef EMX
  3089. +       /* If the file was not found and emx-cdrom-load is non-nil, try
  3090. +          again, replacing `-' with `_'. */
  3091. +       if (fd < 0 && emx_cdrom_load)
  3092. +         {
  3093. +           int len = XSTRING (file)->size;
  3094. +           char *new_file = alloca (len + 1);
  3095. +           int i, ok = 0;
  3096. + 
  3097. +           memcpy (new_file, XSTRING (file)->data, len);
  3098. +           new_file[len] = 0;
  3099. +           for (i = 0; i < len; ++i)
  3100. +             if (new_file[i] == '-')
  3101. +               {
  3102. +                 new_file[i] = '_'; ok = 1;
  3103. +               }
  3104. +           if (ok)
  3105. +             fd = openp (Vload_path, build_string (new_file),
  3106. +                         !NILP (nosuffix) ? "" : ".elc:.el:", &found, 0);
  3107. +         }
  3108. + #endif /* EMX */
  3109.         UNGCPRO;
  3110.       }
  3111.   
  3112. ***************
  3113. *** 2426,2431 ****
  3114. --- 2453,2464 ----
  3115.     DEFVAR_LISP ("current-load-list", &Vcurrent_load_list,
  3116.       "Used for internal purposes by `load'.");
  3117.     Vcurrent_load_list = Qnil;
  3118. + 
  3119. + #ifdef EMX
  3120. +   DEFVAR_BOOL ("emx-cdrom-load", &emx_cdrom_load,
  3121. +     "*Non-nil if `load' should try again if the file is not found,\n\
  3122. + replacing `-' with `_' in the file name.");
  3123. + #endif /* EMX */
  3124.   
  3125.     DEFVAR_LISP ("load-read-function", &Vload_read_function,
  3126.       "Function used by `load' and `eval-region' for reading expressions.\n\
  3127. diff -c emacs-19\src\process.c:1.1.1.41 emacs-19\src\process.c:1.70
  3128. *** emacs-19\src\process.c:1.1.1.41    Sun Aug 18 23:22:58 1996
  3129. --- emacs-19\src\process.c    Sun Aug 18 23:22:58 1996
  3130. ***************
  3131. *** 19,24 ****
  3132. --- 19,25 ----
  3133.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  3134.   Boston, MA 02111-1307, USA.  */
  3135.   
  3136. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3137.   
  3138.   #include <signal.h>
  3139.   
  3140. ***************
  3141. *** 44,49 ****
  3142. --- 45,54 ----
  3143.   #include <unistd.h>
  3144.   #endif
  3145.   
  3146. + #ifdef EMX
  3147. + #include <stdlib.h>
  3148. + #endif /* EMX */
  3149. + 
  3150.   #ifdef WINDOWSNT
  3151.   #include <stdlib.h>
  3152.   #include <fcntl.h>
  3153. ***************
  3154. *** 104,109 ****
  3155. --- 109,121 ----
  3156.   #include "commands.h"
  3157.   #include "frame.h"
  3158.   
  3159. + #ifdef EMX
  3160. + extern Lisp_Object find_program_name_handler ();
  3161. + extern Lisp_Object Qprogram_name_handler_alist;
  3162. + extern Lisp_Object Vprogram_name_handler_alist;
  3163. + static Lisp_Object Qstart_process;
  3164. + #endif /* EMX */
  3165. + 
  3166.   Lisp_Object Qprocessp;
  3167.   Lisp_Object Qrun, Qstop, Qsignal, Qopen, Qclosed;
  3168.   Lisp_Object Qlast_nonmenu_event;
  3169. ***************
  3170. *** 213,219 ****
  3171. --- 225,233 ----
  3172.   /* If we support a window system, turn on the code to poll periodically
  3173.      to detect C-g.  It isn't actually used when doing interrupt input.  */
  3174.   #ifdef HAVE_WINDOW_SYSTEM
  3175. + #ifndef HAVE_PM
  3176.   #define POLL_FOR_INPUT
  3177. + #endif /* not HAVE_PM */
  3178.   #endif
  3179.   
  3180.   /* Mask of bits indicating the descriptors that we wait for input on.  */
  3181. ***************
  3182. *** 389,394 ****
  3183. --- 403,413 ----
  3184.        end of the ptys.  */
  3185.     int failed_count = 0;
  3186.   
  3187. + #ifdef EMX
  3188. +   if (_osmode != OS2_MODE || _emx_rev < 37)
  3189. +     return -1;
  3190. + #endif /* EMX */
  3191. + 
  3192.   #ifdef PTY_ITERATION
  3193.     PTY_ITERATION
  3194.   #else
  3195. ***************
  3196. *** 413,418 ****
  3197. --- 432,438 ----
  3198.       if (fstat (fd, &stb) < 0)
  3199.         return -1;
  3200.   #else /* not IRIS */
  3201. + #ifndef EMX
  3202.       if (stat (pty_name, &stb) < 0)
  3203.         {
  3204.           failed_count++;
  3205. ***************
  3206. *** 421,426 ****
  3207. --- 441,447 ----
  3208.         }
  3209.       else
  3210.         failed_count = 0;
  3211. + #endif /* not EMX */
  3212.   #ifdef O_NONBLOCK
  3213.       fd = open (pty_name, O_RDWR | O_NONBLOCK, 0);
  3214.   #else
  3215. ***************
  3216. *** 438,443 ****
  3217. --- 459,465 ----
  3218.   #else
  3219.               sprintf (pty_name, "/dev/tty%c%x", c, i);
  3220.   #endif /* no PTY_TTY_NAME_SPRINTF */
  3221. + #ifndef EMX
  3222.   #ifndef UNIPLUS
  3223.           if (access (pty_name, 6) != 0)
  3224.             {
  3225. ***************
  3226. *** 449,454 ****
  3227. --- 471,477 ----
  3228.   #endif /* IRIS */
  3229.             }
  3230.   #endif /* not UNIPLUS */
  3231. + #endif /* not EMX */
  3232.           setup_pty (fd);
  3233.           return fd;
  3234.         }
  3235. ***************
  3236. *** 1026,1031 ****
  3237. --- 1049,1072 ----
  3238.     register int i;
  3239.     int count = specpdl_ptr - specpdl;
  3240.   
  3241. + #ifdef EMX
  3242. +   {
  3243. +     Lisp_Object handler;
  3244. + 
  3245. +     emx_setup_start_process (); /* Calls specbind() */
  3246. +     handler = find_program_name_handler (args[2]);
  3247. +     if (!NILP (handler))
  3248. +       return unbind_to (count,
  3249. +                         call3 (handler,
  3250. +                                Fcons (Qstart_process, Flist (2, args + 0)),
  3251. +                                args[2],
  3252. +                                Flist (nargs - 3, args + 3)));
  3253. +   }
  3254. +   if (_osmode == DOS_MODE)
  3255. +     error ("start-process not supported under MS-DOS");
  3256. +   check_process_priority ();
  3257. + #endif /* EMX */
  3258. + 
  3259.     buffer = args[1];
  3260.     if (!NILP (buffer))
  3261.       buffer = Fget_buffer_create (buffer);
  3262. ***************
  3263. *** 1046,1051 ****
  3264. --- 1087,1096 ----
  3265.   
  3266.       GCPRO2 (buffer, current_dir);
  3267.   
  3268. + #ifdef EMX
  3269. +     current_dir = Fexpand_file_name (current_dir, Qnil);
  3270. + #endif /* EMX */
  3271. + 
  3272.       current_dir 
  3273.         = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir),
  3274.                   Qnil);
  3275. ***************
  3276. *** 1088,1096 ****
  3277. --- 1133,1145 ----
  3278.     new_argv = (unsigned char **) alloca ((nargs - 1) * sizeof (char *));
  3279.   
  3280.     /* If program file name is not absolute, search our path for it */
  3281. + #ifdef EMX
  3282. +   if (!_fnisabs (XSTRING (program)->data))
  3283. + #else /* not EMX */
  3284.     if (!IS_DIRECTORY_SEP (XSTRING (program)->data[0])
  3285.         && !(XSTRING (program)->size > 1
  3286.          && IS_DEVICE_SEP (XSTRING (program)->data[1])))
  3287. + #endif /* not EMX */
  3288.       {
  3289.         struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
  3290.   
  3291. ***************
  3292. *** 1227,1232 ****
  3293. --- 1276,1286 ----
  3294.   
  3295.     if (inchannel >= 0)
  3296.       {
  3297. + #ifdef EMX
  3298. +       /* Make another descriptor for the pty, to be able to use
  3299. +          different O_BINARY settings for reading and writing.  */
  3300. +       outchannel = dup (inchannel);
  3301. + #endif 
  3302.   #ifndef USG 
  3303.         /* On USG systems it does not work to open the pty's tty here
  3304.              and then close and reopen it in the child.  */
  3305. ***************
  3306. *** 1264,1269 ****
  3307. --- 1318,1328 ----
  3308.       }
  3309.   #endif /* not SKTPAIR */
  3310.   
  3311. + #ifdef EMX
  3312. +   emx_proc_output_pipe (inchannel);
  3313. +   emx_proc_input_pipe (outchannel);
  3314. + #endif /* EMX */
  3315. + 
  3316.   #if 0
  3317.     /* Replaced by close_process_descs */
  3318.     set_exclusive_use (inchannel);
  3319. ***************
  3320. *** 1481,1486 ****
  3321. --- 1540,1549 ----
  3322.   #endif
  3323.   #endif /* HAVE_PTYS */
  3324.   
  3325. + #ifdef EMX
  3326. +     pid = emx_child_setup (xforkin, xforkout, xforkout,
  3327. +                                new_argv, 1, current_dir);
  3328. + #else /*  not EMX */
  3329.       signal (SIGINT, SIG_DFL);
  3330.       signal (SIGQUIT, SIG_DFL);
  3331.   
  3332. ***************
  3333. *** 1512,1517 ****
  3334. --- 1575,1581 ----
  3335.       child_setup (xforkin, xforkout, xforkout,
  3336.                new_argv, 1, current_dir);
  3337.   #endif /* not WINDOWSNT */
  3338. + #endif /* not EMX */
  3339.         }
  3340.       environ = save_environ;
  3341.     }
  3342. ***************
  3343. *** 1590,1596 ****
  3344. --- 1654,1664 ----
  3345.   
  3346.     /* Now generate the error if vfork failed.  */
  3347.     if (pid < 0)
  3348. + #ifndef EMX
  3349.       report_file_error ("Doing vfork", Qnil);
  3350. + #else /* EMX */
  3351. +     report_file_error ("Starting process", Qnil);
  3352. + #endif /* EMX */
  3353.   }
  3354.   #endif /* not VMS */
  3355.   
  3356. ***************
  3357. *** 1862,1867 ****
  3358. --- 1930,1936 ----
  3359.   {
  3360.   #ifndef WINDOWSNT
  3361.     int i;
  3362. + #ifndef EMX
  3363.     for (i = 0; i < MAXDESC; i++)
  3364.       {
  3365.         Lisp_Object process;
  3366. ***************
  3367. *** 1876,1881 ****
  3368. --- 1945,1954 ----
  3369.           close (out);
  3370.       }
  3371.       }
  3372. + #else /* EMX */
  3373. +       for (i = 3; i < MAXDESC; i++)
  3374. +         fcntl (i, F_SETFD, 1);
  3375. + #endif /* EMX */
  3376.   #endif
  3377.   }
  3378.   
  3379. ***************
  3380. *** 2475,2480 ****
  3381. --- 2548,2557 ----
  3382.       }
  3383.   #else /* not VMS */
  3384.   
  3385. + #ifdef EMX
  3386. +   fcntl (channel, F_SETFL, O_NDELAY);
  3387. + #endif /* EMX */
  3388. + 
  3389.     if (proc_buffered_char[channel] < 0)
  3390.       nchars = read (channel, chars, sizeof (chars));
  3391.     else
  3392. ***************
  3393. *** 3454,3468 ****
  3394. --- 3531,3552 ----
  3395.           EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
  3396.       }
  3397.   
  3398. + #ifdef EMX
  3399. +       emx_async_delete_now ();
  3400. + #endif /* EMX */
  3401.         /* On some systems, we must return right away.
  3402.        If any more processes want to signal us, we will
  3403.        get another signal.
  3404.        Otherwise (on systems that have WNOHANG), loop around
  3405.        to use up all the processes that have something to tell us.  */
  3406. + #if defined (EMX) && !defined (POSIX_SIGNALS)
  3407. +       signal (signo, SIG_ACK);
  3408. + #else /* not EMX, or POSIX_SIGNALS */
  3409.   #if defined (USG) && ! (defined (HPUX) && defined (WNOHANG)) || defined (WINDOWSNT)
  3410.   #ifdef USG
  3411.         signal (signo, sigchld_handler);
  3412.   #endif
  3413. + #endif /* not EMX, or POSIX_SIGNALS*/
  3414.         errno = old_errno;
  3415.         return;
  3416.   #endif /* USG, but not HPUX with WNOHANG */
  3417. ***************
  3418. *** 3728,3733 ****
  3419. --- 3812,3821 ----
  3420.   
  3421.   syms_of_process ()
  3422.   {
  3423. + #ifdef EMX
  3424. +   Qstart_process = intern ("start-process");
  3425. +   staticpro (&Qstart_process);
  3426. + #endif /* EMX */
  3427.   #ifdef HAVE_SOCKETS
  3428.     stream_process = intern ("stream");
  3429.   #endif
  3430. diff -c emacs-19\src\sysdep.c:1.1.1.35 emacs-19\src\sysdep.c:1.49
  3431. *** emacs-19\src\sysdep.c:1.1.1.35    Sun Aug 18 23:23:00 1996
  3432. --- emacs-19\src\sysdep.c    Sun Aug 18 23:23:00 1996
  3433. ***************
  3434. *** 18,23 ****
  3435. --- 18,24 ----
  3436.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  3437.   Boston, MA 02111-1307, USA.  */
  3438.   
  3439. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3440.   
  3441.   #include <signal.h>
  3442.   #include <setjmp.h>
  3443. ***************
  3444. *** 545,550 ****
  3445. --- 546,554 ----
  3446.     s.main.c_cc[VTIME] = 0;    /* wait forever for at least 1 character  */
  3447.   #endif
  3448.   
  3449. + #ifdef EMX
  3450. +   s.main.c_lflag |= IDEFAULT;   /* Disable termio */
  3451. + #endif /* EMX */
  3452.     s.main.c_lflag |= ICANON;    /* Enable erase/kill and eof processing */
  3453.     s.main.c_cc[VEOF] = 04;    /* insure that EOF is Control-D */
  3454.     s.main.c_cc[VERASE] = CDISABLE;    /* disable erase processing */
  3455. ***************
  3456. *** 678,688 ****
  3457. --- 682,696 ----
  3458.   
  3459.   #else /* No SIGTSTP or USG_JOBCTRL */
  3460.   
  3461. + #ifdef EMX
  3462. +   system ("");
  3463. + #else /* not EMX */
  3464.   /* On a system where suspending is not implemented,
  3465.      instead fork a subshell and let it talk directly to the terminal
  3466.      while we wait.  */
  3467.     sys_subshell ();
  3468.   
  3469. + #endif /* not EMX */
  3470.   #endif /* no USG_JOBCTRL */
  3471.   #endif /* no SIGTSTP */
  3472.   #endif /* not VMS */
  3473. ***************
  3474. *** 1277,1282 ****
  3475. --- 1285,1294 ----
  3476.         tty.main.c_iflag &= ~ISTRIP;    /* don't strip 8th bit on input */
  3477.   #endif
  3478.         tty.main.c_lflag &= ~ECHO;    /* Disable echo */
  3479. + #ifdef EMX
  3480. +       tty.main.c_iflag |= IDELETE;      /* Backspace key should send DEL */
  3481. +       tty.main.c_lflag &= ~IDEFAULT;    /* Enable termio */
  3482. + #endif /* EMX */
  3483.         tty.main.c_lflag &= ~ICANON;    /* Disable erase/kill processing */
  3484.   #ifdef IEXTEN
  3485.         tty.main.c_lflag &= ~IEXTEN;    /* Disable other editing characters.  */
  3486. ***************
  3487. *** 1497,1502 ****
  3488. --- 1509,1519 ----
  3489.   #else
  3490.     setbuf (stdout, _sobuf);
  3491.   #endif
  3492. + 
  3493. + #ifdef EMX
  3494. +   _fsetmode (stdout, "b");
  3495. + #endif /* EMX */
  3496. + 
  3497.   #ifdef HAVE_WINDOW_SYSTEM
  3498.     /* Emacs' window system on MSDOG uses the `internal terminal' and therefore
  3499.        needs the initialization code below.  */
  3500. ***************
  3501. *** 1581,1589 ****
  3502. --- 1598,1613 ----
  3503.   #ifdef MSDOS
  3504.     *widthp = ScreenCols ();
  3505.     *heightp = ScreenRows ();
  3506. + 
  3507. + #else
  3508. + #ifdef EMX
  3509. +   int sz[2];
  3510. +   _scrsize (sz);
  3511. +   *widthp = sz[0]; *heightp = sz[1];
  3512.   #else /* system doesn't know size */
  3513.     *widthp = 0;
  3514.     *heightp = 0;
  3515. + #endif /* not EMX */
  3516.   #endif
  3517.   
  3518.   #endif /* not VMS */
  3519. ***************
  3520. *** 2181,2186 ****
  3521. --- 2205,2211 ----
  3522.         hostname = (char *) alloca (hostname_size);
  3523.       }
  3524.   #ifdef HAVE_SOCKETS
  3525. + #ifndef EMX
  3526.     /* Turn the hostname into the official, fully-qualified hostname.
  3527.        Don't do this if we're going to dump; this can confuse system
  3528.        libraries on some machines and make the dumped emacs core dump. */
  3529. ***************
  3530. *** 2232,2237 ****
  3531. --- 2257,2263 ----
  3532.   #endif
  3533.       }
  3534.       }
  3535. + #endif /* not EMX */
  3536.   #endif /* HAVE_SOCKETS */
  3537.     Vsystem_name = build_string (hostname);
  3538.   #endif /* HAVE_GETHOSTNAME */
  3539. diff -c emacs-19\src\syssignal.h:1.1.1.14 emacs-19\src\syssignal.h:1.9
  3540. *** emacs-19\src\syssignal.h:1.1.1.14    Sun Aug 18 23:23:00 1996
  3541. --- emacs-19\src\syssignal.h    Sun Aug 18 23:23:00 1996
  3542. ***************
  3543. *** 18,23 ****
  3544. --- 18,25 ----
  3545.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  3546.   Boston, MA 02111-1307, USA.  */
  3547.   
  3548. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3549. + 
  3550.   #ifdef POSIX_SIGNALS
  3551.   
  3552.   /* Don't #include <signal.h>.  That header should always be #included
  3553. ***************
  3554. *** 142,148 ****
  3555. --- 144,154 ----
  3556.   #ifdef WINDOWSNT
  3557.   #define EMACS_KILLPG(gid, signo) (kill (gid, signo))
  3558.   #else
  3559. + #ifdef EMX
  3560. + #define EMACS_KILLPG(gid, signo) emx_killpg ((gid), (signo))
  3561. + #else /* not EMX */
  3562.   #define EMACS_KILLPG(gid, signo) (kill   (-(gid), (signo)))
  3563. + #endif /* not EMX */
  3564.   #endif
  3565.   #endif
  3566.   
  3567. diff -c emacs-19\src\term.c:1.1.1.20 emacs-19\src\term.c:1.28
  3568. *** emacs-19\src\term.c:1.1.1.20    Sun Aug 18 23:23:00 1996
  3569. --- emacs-19\src\term.c    Sun Aug 18 23:23:00 1996
  3570. ***************
  3571. *** 18,23 ****
  3572. --- 18,24 ----
  3573.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  3574.   Boston, MA 02111-1307, USA.  */
  3575.   
  3576. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3577.   
  3578.   #include <config.h>
  3579.   #include <stdio.h>
  3580. ***************
  3581. *** 344,349 ****
  3582. --- 345,353 ----
  3583.     OUTPUT_IF (TS_end_keypad_mode);
  3584.     OUTPUT_IF (TS_end_visual_mode);
  3585.     OUTPUT_IF (TS_end_termcap_modes);
  3586. + #ifdef EMX
  3587. +   _fsetmode (stdout, "t");
  3588. + #endif /* EMX */
  3589.     /* Output raw CR so kernel can track the cursor hpos.  */
  3590.     /* But on magic-cookie terminals this can erase an end-standout marker and
  3591.        cause the rest of the frame to be in standout, so move down first.  */
  3592. diff -c emacs-19\src\termcap.c:1.1.1.13 emacs-19\src\termcap.c:1.27
  3593. *** emacs-19\src\termcap.c:1.1.1.13    Sun Aug 18 23:23:02 1996
  3594. --- emacs-19\src\termcap.c    Sun Aug 18 23:23:02 1996
  3595. ***************
  3596. *** 16,21 ****
  3597. --- 16,23 ----
  3598.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  3599.   Boston, MA 02111-1307, USA.  */
  3600.   
  3601. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3602. + 
  3603.   /* Emacs config.h may rename various library functions such as malloc.  */
  3604.   #ifdef HAVE_CONFIG_H
  3605.   #include <config.h>
  3606. ***************
  3607. *** 365,370 ****
  3608. --- 367,377 ----
  3609.   static int compare_contin ();
  3610.   static int name_match ();
  3611.   
  3612. + #ifdef EMX
  3613. + 
  3614. + #define valid_filename_p(fn) (IS_DIRECTORY_SEP (*(fn)) || _fngetdrive (fn))
  3615. + 
  3616. + #else /* not EMX */
  3617.   #ifdef VMS
  3618.   
  3619.   #include <rmsdef.h>
  3620. ***************
  3621. *** 404,409 ****
  3622. --- 411,417 ----
  3623.   #endif
  3624.   
  3625.   #endif /* !VMS */
  3626. + #endif /* not EMX */
  3627.   
  3628.   /* Find the termcap entry data for terminal type NAME
  3629.      and store it in the block that BP points to.
  3630. diff -c emacs-19\src\termhooks.h:1.1.1.16 emacs-19\src\termhooks.h:1.30
  3631. *** emacs-19\src\termhooks.h:1.1.1.16    Sun Aug 18 23:23:02 1996
  3632. --- emacs-19\src\termhooks.h    Sun Aug 18 23:23:02 1996
  3633. ***************
  3634. *** 19,24 ****
  3635. --- 19,26 ----
  3636.   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  3637.   Boston, MA 02111-1307, USA.  */
  3638.   
  3639. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3640. + 
  3641.   
  3642.   /* Miscellanea.   */
  3643.   
  3644. ***************
  3645. *** 307,313 ****
  3646. --- 309,319 ----
  3647.   
  3648.   /* This is used in keyboard.c, to tell how many buttons we will need
  3649.      to track the positions of.  */
  3650. + #ifdef HAVE_PM
  3651. + #define NUM_MOUSE_BUTTONS (5+2)
  3652. + #else /* not HAVE_PM */
  3653.   #define NUM_MOUSE_BUTTONS (5)
  3654. + #endif /* not HAVE_PM */
  3655.   
  3656.   /* Bits in the modifiers member of the input_event structure.
  3657.      Note that reorder_modifiers assumes that the bits are in canonical
  3658. diff -c emacs-19\src\xfaces.c:1.1.1.30 emacs-19\src\xfaces.c:1.60
  3659. *** emacs-19\src\xfaces.c:1.1.1.30    Sun Aug 18 23:23:04 1996
  3660. --- emacs-19\src\xfaces.c    Sun Aug 18 23:23:04 1996
  3661. ***************
  3662. *** 20,25 ****
  3663. --- 20,27 ----
  3664.   
  3665.   /* This is derived from work by Lucid (some parts very loosely so).  */
  3666.   
  3667. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3668. + 
  3669.   #include <sys/types.h>
  3670.   #include <sys/stat.h>
  3671.   
  3672. ***************
  3673. *** 29,35 ****
  3674. --- 31,42 ----
  3675.   #ifdef HAVE_FACES
  3676.   
  3677.   #ifdef HAVE_X_WINDOWS
  3678. + #ifdef HAVE_PM
  3679. + #include "pmterm.h"
  3680. + #include "pmemacs.h"
  3681. + #else /* not HAVE_PM */
  3682.   #include "xterm.h"
  3683. + #endif /* not HAVE_PM */
  3684.   #endif
  3685.   #ifdef MSDOS
  3686.   #include "dosfns.h"
  3687. ***************
  3688. *** 56,62 ****
  3689. --- 63,71 ----
  3690.   
  3691.   #else
  3692.   
  3693. + #ifndef HAVE_PM
  3694.   #include <X11/Xos.h>
  3695. + #endif /* not HAVE_PM */
  3696.   
  3697.   #endif
  3698.   #endif /* HAVE_X_WINDOWS */
  3699. ***************
  3700. *** 218,223 ****
  3701. --- 227,234 ----
  3702.   #ifdef HAVE_X_WINDOWS
  3703.   /* Given a computed face, construct its graphics context if necessary.  */
  3704.   
  3705. + #ifndef HAVE_PM
  3706. + 
  3707.   struct face *
  3708.   intern_face (f, face)
  3709.        struct frame *f;
  3710. ***************
  3711. *** 267,272 ****
  3712. --- 278,328 ----
  3713.     return face;
  3714.   }
  3715.   
  3716. + #else /* HAVE_PM */
  3717. + 
  3718. + struct face *
  3719. + intern_face (f, face)
  3720. +      struct frame *f;
  3721. +      struct face *face;
  3722. + {
  3723. +   pm_request pmr;
  3724. +   char *name;
  3725. + 
  3726. +   if (face->gc)
  3727. +     return face;
  3728. + 
  3729. +   BLOCK_INPUT;
  3730. + 
  3731. +   if (face->foreground != FACE_DEFAULT)
  3732. +     pmr.face.foreground = face->foreground;
  3733. +   else
  3734. +     pmr.face.foreground = f->output_data.x->foreground_color;
  3735. + 
  3736. +   if (face->background != FACE_DEFAULT)
  3737. +     pmr.face.background = face->background;
  3738. +   else
  3739. +     pmr.face.background = f->output_data.x->background_color;
  3740. + 
  3741. +   if (face->font && (int)face->font != FACE_DEFAULT)
  3742. +     name = face->font->name;
  3743. +   else
  3744. +     name = f->output_data.x->font->name;
  3745. + 
  3746. +   pmr.face.name_length = strlen (name);
  3747. +   pmr.face.underline = face->underline;
  3748. +   pmr.face.serial = pm_serial++;
  3749. +   pmr.face.header.type = PMR_FACE;
  3750. +   pmr.face.header.frame = (unsigned long)f;
  3751. +   pm_send (&pmr, sizeof (pmr));
  3752. +   pm_send (name, pmr.face.name_length);
  3753. +   if (pm_receive (pmr.face.serial, &face->gc, 0, 0) == 0)
  3754. +     face->gc = 0;
  3755. +   UNBLOCK_INPUT;
  3756. +   return face;
  3757. + }
  3758. + 
  3759. + #endif /* HAVE_PM */
  3760. + 
  3761.   /* Clear out all graphics contexts for all computed faces
  3762.      except for the default and mode line faces.
  3763.      This should be done from time to time just to avoid
  3764. ***************
  3765. *** 384,389 ****
  3766. --- 440,446 ----
  3767.        struct frame *f;
  3768.        unsigned long pixel;
  3769.   {
  3770. + #ifndef HAVE_PM
  3771.     Colormap cmap;
  3772.     Display *dpy = FRAME_X_DISPLAY (f);
  3773.     int class = FRAME_X_DISPLAY_INFO (f)->visual->class;
  3774. ***************
  3775. *** 422,427 ****
  3776. --- 479,485 ----
  3777.         XFreeColors (dpy, cmap, &pixel, 1, (unsigned long)0);
  3778.         UNBLOCK_INPUT;
  3779.       }
  3780. + #endif /* not HAVE_PM */
  3781.   }
  3782.   
  3783.   DEFUN ("pixmap-spec-p", Fpixmap_spec_p, Spixmap_spec_p, 1, 1, 0,
  3784. ***************
  3785. *** 460,465 ****
  3786. --- 518,526 ----
  3787.        Lisp_Object name;
  3788.        unsigned int *w_ptr, *h_ptr;
  3789.   {
  3790. + #ifdef HAVE_PM
  3791. +   return FACE_DEFAULT;
  3792. + #else /* not HAVE_PM */
  3793.     int bitmap_id;
  3794.     Lisp_Object tem;
  3795.   
  3796. ***************
  3797. *** 501,506 ****
  3798. --- 562,568 ----
  3799.     *h_ptr = x_bitmap_height (f, bitmap_id);
  3800.   
  3801.     return bitmap_id;
  3802. + #endif /* not HAVE_PM */
  3803.   }
  3804.   
  3805.   #else /* !HAVE_X_WINDOWS */
  3806. ***************
  3807. *** 740,749 ****
  3808. --- 802,815 ----
  3809.   same_size_fonts (font1, font2)
  3810.        XFontStruct *font1, *font2;
  3811.   {
  3812. + #ifndef HAVE_PM
  3813.     XCharStruct *bounds1 = &font1->min_bounds;
  3814.     XCharStruct *bounds2 = &font2->min_bounds;
  3815.   
  3816.     return (bounds1->width == bounds2->width);
  3817. + #else /* HAVE_PM */
  3818. +   return 1;
  3819. + #endif /* HAVE_PM */
  3820.   }
  3821.   
  3822.   /* Update the line_height of frame F according to the biggest font in
  3823. ***************
  3824. *** 1162,1169 ****
  3825. --- 1228,1237 ----
  3826.         face->font = (XFontStruct *)1 ;
  3827.   #else
  3828.         XFontStruct *font = load_font (f, attr_value);
  3829. + #ifndef HAVE_PM
  3830.         if (face->font != f->output_data.x->font)
  3831.       unload_font (f, face->font);
  3832. + #endif /* not HAVE_PM */
  3833.         face->font = font;
  3834.         if (frame_update_line_height (f))
  3835.       x_set_window_size (f, 0, f->width, f->height);
  3836. diff -c emacs-19\src\xmenu.c:1.1.1.35 emacs-19\src\xmenu.c:1.86
  3837. *** emacs-19\src\xmenu.c:1.1.1.35    Sun Aug 18 23:23:06 1996
  3838. --- emacs-19\src\xmenu.c    Sun Aug 18 23:23:06 1996
  3839. ***************
  3840. *** 30,35 ****
  3841. --- 30,37 ----
  3842.   
  3843.   /* Rewritten for clarity and GC protection by rms in Feb 94.  */
  3844.   
  3845. + /* Modified for emx by Eberhard Mattes, Aug 1996 */
  3846. + 
  3847.   /* On 4.3 this loses if it comes after xterm.h.  */
  3848.   #include <signal.h>
  3849.   #include <config.h>
  3850. ***************
  3851. *** 44,49 ****
  3852. --- 46,55 ----
  3853.   #include "puresize.h"
  3854.   #include "buffer.h"
  3855.   
  3856. + #ifdef HAVE_PM
  3857. + #include "pmterm.h"
  3858. + #include "pmemacs.h"
  3859. + #else /* not HAVE_PM */
  3860.   #ifdef MSDOS
  3861.   #include "msdos.h"
  3862.   #endif
  3863. ***************
  3864. *** 53,58 ****
  3865. --- 59,65 ----
  3866.      if this is not done before the other system files.  */
  3867.   #include "xterm.h"
  3868.   #endif
  3869. + #endif /* not HAVE_PM */
  3870.   
  3871.   /* Load sys/types.h if not already loaded.
  3872.      In some systems loading it twice is suicidal.  */
  3873. ***************
  3874. *** 62,67 ****
  3875. --- 69,75 ----
  3876.   
  3877.   #include "dispextern.h"
  3878.   
  3879. + #ifndef HAVE_PM
  3880.   #ifdef HAVE_X_WINDOWS
  3881.   #ifdef USE_X_TOOLKIT
  3882.   #include <X11/Xlib.h>
  3883. ***************
  3884. *** 77,82 ****
  3885. --- 85,91 ----
  3886.   #include "../oldXMenu/XMenu.h"
  3887.   #endif /* not USE_X_TOOLKIT */
  3888.   #endif /* HAVE_X_WINDOWS */
  3889. + #endif /* not HAVE_PM */
  3890.   
  3891.   #define min(x,y) (((x) < (y)) ? (x) : (y))
  3892.   #define max(x,y) (((x) > (y)) ? (x) : (y))
  3893. ***************
  3894. *** 96,101 ****
  3895. --- 105,116 ----
  3896.   
  3897.   extern Lisp_Object Vdefine_key_rebound_commands;
  3898.   
  3899. + #ifdef HAVE_PM
  3900. + static int pm_menu_button;
  3901. + static int pm_align_menu_key_descriptions;
  3902. + static int pm_popup_menu_align_top;
  3903. + #endif /* HAVE_PM */
  3904. + 
  3905.   extern Lisp_Object Voverriding_local_map;
  3906.   extern Lisp_Object Voverriding_local_map_menu_flag;
  3907.   
  3908. ***************
  3909. *** 105,112 ****
  3910. --- 120,129 ----
  3911.   
  3912.   #ifdef USE_X_TOOLKIT
  3913.   extern void set_frame_menubar ();
  3914. + #ifndef HAVE_PM
  3915.   extern void process_expose_from_menu ();
  3916.   extern XtAppContext Xt_app_con;
  3917. + #endif /* not HAVE_PM */
  3918.   
  3919.   static Lisp_Object xdialog_show ();
  3920.   void popup_get_selection ();
  3921. ***************
  3922. *** 182,187 ****
  3923. --- 199,205 ----
  3924.   int pending_menu_activation;
  3925.   
  3926.   #ifdef USE_X_TOOLKIT
  3927. + #ifndef HAVE_PM
  3928.   
  3929.   /* Return the frame whose ->output_data.x->id equals ID, or 0 if none.  */
  3930.   
  3931. ***************
  3932. *** 206,211 ****
  3933. --- 224,230 ----
  3934.     return 0;
  3935.   }
  3936.   
  3937. + #endif /* not HAVE_PM */
  3938.   #endif
  3939.   
  3940.   /* Initialize the menu_items structure if we haven't already done so.
  3941. ***************
  3942. *** 419,426 ****
  3943. --- 438,455 ----
  3944.         if (!NILP (savedkey))
  3945.       {
  3946.         descrip = Fkey_description (savedkey);
  3947. + #ifndef HAVE_PM
  3948.         descrip = concat2 (make_string ("  (", 3), descrip);
  3949.         descrip = concat2 (descrip, make_string (")", 1));
  3950. + #else /* HAVE_PM */
  3951. +       if (pm_align_menu_key_descriptions)
  3952. +         descrip = concat2 (make_string ("\t", 1), descrip);
  3953. +       else
  3954. +         {
  3955. +           descrip = concat2 (make_string ("  (", 3), descrip);
  3956. +           descrip = concat2 (descrip, make_string (")", 1));
  3957. +         }
  3958. + #endif /* HAVE_PM */
  3959.       }
  3960.       }
  3961.   
  3962. ***************
  3963. *** 784,789 ****
  3964. --- 813,821 ----
  3965.     struct gcpro gcpro1;
  3966.   
  3967.   #ifdef HAVE_MENUS
  3968. + #ifdef HAVE_PM
  3969. +   pm_menu_button = 0;
  3970. + #endif /* HAVE_PM */
  3971.     if (! NILP (position))
  3972.       {
  3973.         check_x ();
  3974. ***************
  3975. *** 827,832 ****
  3976. --- 859,867 ----
  3977.             tem = Fcar (Fcdr (Fcdr (tem))); /* POSN_WINDOW_POSN (tem) */
  3978.             x = Fcar (tem);
  3979.             y = Fcdr (tem);
  3980. + #ifdef HAVE_PM
  3981. +           pm_menu_button = pm_event_button (position);
  3982. + #endif /* HAVE_PM */
  3983.           }
  3984.       }
  3985.   
  3986. ***************
  3987. *** 1071,1076 ****
  3988. --- 1106,1112 ----
  3989.   
  3990.   #ifdef USE_X_TOOLKIT
  3991.   
  3992. + #ifndef HAVE_PM
  3993.   /* Loop in Xt until the menu pulldown or dialog popup has been
  3994.      popped down (deactivated).  This is used for x-popup-menu
  3995.      and x-popup-dialog; it is not used for the menu bar any more.
  3996. ***************
  3997. *** 1211,1216 ****
  3998. --- 1247,1253 ----
  3999.     /* Ignore this if we get it a second time.  */
  4000.     f->output_data.x->saved_menu_event->type = 0;
  4001.   }
  4002. + #endif /* not HAVE_PM */
  4003.   
  4004.   /* Detect if a dialog or menu has been posted.  */
  4005.   
  4006. ***************
  4007. *** 1220,1226 ****
  4008.     return popup_activated_flag;
  4009.   }
  4010.   
  4011. ! 
  4012.   /* This callback is invoked when the user selects a menubar cascade
  4013.      pushbutton, but before the pulldown menu is posted.  */
  4014.   
  4015. --- 1257,1263 ----
  4016.     return popup_activated_flag;
  4017.   }
  4018.   
  4019. ! #ifndef HAVE_PM
  4020.   /* This callback is invoked when the user selects a menubar cascade
  4021.      pushbutton, but before the pulldown menu is posted.  */
  4022.   
  4023. ***************
  4024. *** 1232,1237 ****
  4025. --- 1269,1275 ----
  4026.   {
  4027.     popup_activated_flag = 1;
  4028.   }
  4029. + #endif /* not HAVE_PM */
  4030.   
  4031.   /* This callback is called from the menu bar pulldown menu
  4032.      when the user makes a selection.
  4033. ***************
  4034. *** 1245,1251 ****
  4035. --- 1283,1293 ----
  4036.        XtPointer client_data;
  4037.   {
  4038.     Lisp_Object prefix, entry;
  4039. + #ifdef HAVE_PM
  4040. +   FRAME_PTR f = (FRAME_PTR) id;
  4041. + #else /* not HAVE_PM */
  4042.     FRAME_PTR f = menubar_id_to_frame (id);
  4043. + #endif /* not HAVE_PM */
  4044.     Lisp_Object vector;
  4045.     Lisp_Object *subprefix_stack;
  4046.     int submenu_depth = 0;
  4047. ***************
  4048. *** 1317,1322 ****
  4049. --- 1359,1365 ----
  4050.       }
  4051.   }
  4052.   
  4053. + #ifndef HAVE_PM
  4054.   /* This callback is invoked when a dialog or menu is finished being
  4055.      used and has been unposted.  */
  4056.   
  4057. ***************
  4058. *** 1833,1838 ****
  4059. --- 1876,1882 ----
  4060.   
  4061.     UNBLOCK_INPUT;
  4062.   }
  4063. + #endif /* not HAVE_PM */
  4064.   
  4065.   /* Called from Fx_create_frame to create the initial menubar of a frame
  4066.      before it is mapped, so that the window is mapped with the menubar already
  4067. ***************
  4068. *** 1852,1857 ****
  4069. --- 1896,1902 ----
  4070.   /* Get rid of the menu bar of frame F, and free its storage.
  4071.      This is used when deleting a frame, and when turning off the menu bar.  */
  4072.   
  4073. + #ifndef HAVE_PM
  4074.   void
  4075.   free_frame_menubar (f)
  4076.        FRAME_PTR f;
  4077. ***************
  4078. *** 1869,1874 ****
  4079. --- 1914,1920 ----
  4080.       }
  4081.   }
  4082.   
  4083. + #endif /* not HAVE_PM */
  4084.   #endif /* USE_X_TOOLKIT */
  4085.   
  4086.   /* xmenu_show actually displays a menu using the panes and items in menu_items
  4087. ***************
  4088. *** 1887,1892 ****
  4089. --- 1933,1939 ----
  4090.      ERROR is a place to store an error message string in case of failure.
  4091.      (We return nil on failure, but the value doesn't actually matter.)  */
  4092.   
  4093. + #ifndef HAVE_PM
  4094.   #ifdef USE_X_TOOLKIT
  4095.   
  4096.   /* We need a unique id for each widget handled by the Lucid Widget
  4097. ***************
  4098. *** 2690,2695 ****
  4099. --- 2737,3315 ----
  4100.   
  4101.   #endif /* not USE_X_TOOLKIT */
  4102.   
  4103. + #else /* HAVE_PM */
  4104. + 
  4105. + static int pmmenu_count;
  4106. + static int pmmenu_alloc;
  4107. + static pm_menu *pmmenu_menu;
  4108. + static int pmmenu_str_size;
  4109. + static int pmmenu_str_alloc;
  4110. + static char *pmmenu_str;
  4111. + 
  4112. + static void pmmenu_add (const pm_menu *pmm)
  4113. + {
  4114. +   if (pmmenu_count >= pmmenu_alloc)
  4115. +     {
  4116. +       pmmenu_alloc += 512;
  4117. +       pmmenu_menu = (pm_menu *)xrealloc (pmmenu_menu,
  4118. +                                          pmmenu_alloc * sizeof (pm_menu));
  4119. +     }
  4120. +   pmmenu_menu[pmmenu_count++] = *pmm;
  4121. + }
  4122. + 
  4123. + 
  4124. + /* Copy S to D, replacing ~  characters with ~~. */
  4125. + 
  4126. + static void tilde_expand (char *d, const char *s)
  4127. + {
  4128. +   while (*s != 0)
  4129. +     {
  4130. +       if (*s == '~')
  4131. +         *d++ = *s;
  4132. +       *d++ = *s++;
  4133. +     }
  4134. +   *d = 0;
  4135. + }
  4136. + 
  4137. + 
  4138. + /* Compute the length of string S.  If TILDE is true, count ~
  4139. +    characters twice.  Store the length to *LEN.  Return true if TILDE
  4140. +    is true and there are any ~ characters. */
  4141. + 
  4142. + static int tilde_len (int *len, const char *s, int tilde)
  4143. + {
  4144. +   int nc = 0, nt = 0;
  4145. + 
  4146. +   if (tilde)
  4147. +     while (*s != 0)
  4148. +       {
  4149. +         if (*s == '~')
  4150. +           ++nt;
  4151. +         ++nc; ++s;
  4152. +       }
  4153. +   else
  4154. +     nc = strlen (s);
  4155. +   *len = nc + nt;
  4156. +   return nt != 0;
  4157. + }
  4158. + 
  4159. + 
  4160. + /* Add the concatenation of S1 and S2 to the string pool for sending
  4161. +    it to pmemacs.exe.  Replace ~ with ~~ if TILDE is true.  Return the
  4162. +    offset of the string. */
  4163. + 
  4164. + static int pmmenu_add_str (const char *s1, const char *s2, int tilde)
  4165. + {
  4166. +   int len1, len2;
  4167. +   int result = pmmenu_str_size;
  4168. + 
  4169. +   if (tilde_len (&len1, s1, tilde))
  4170. +     {
  4171. +       char *tem = alloca (len1 + 1);
  4172. +       tilde_expand (tem, s1);
  4173. +       s1 = tem;
  4174. +     }
  4175. +   if (tilde_len (&len2, s2, tilde))
  4176. +     {
  4177. +       char *tem = alloca (len2 + 1);
  4178. +       tilde_expand (tem, s2);
  4179. +       s2 = tem;
  4180. +     }
  4181. +   ++len2;            /* Include the terminating null character */
  4182. +   while (pmmenu_str_size + len1 + len2 > pmmenu_str_alloc)
  4183. +     {
  4184. +       pmmenu_str_alloc += 4096;
  4185. +       pmmenu_str = (char *)xrealloc (pmmenu_str, pmmenu_str_alloc);
  4186. +     }
  4187. +   bcopy (s1, pmmenu_str + pmmenu_str_size, len1);
  4188. +   bcopy (s2, pmmenu_str + pmmenu_str_size + len1, len2);
  4189. +   pmmenu_str_size += len1 + len2;
  4190. +   return result;
  4191. + }
  4192. + 
  4193. + 
  4194. + /* Return true if NAME looks like a menu separator string.  */
  4195. + 
  4196. + static int menu_sep_p (Lisp_Object name)
  4197. + {
  4198. +   const char *p;
  4199. + 
  4200. +   if (!STRINGP (name))
  4201. +     return 0;
  4202. +   for (p = XSTRING (name)->data; *p != 0; ++p)
  4203. +     if (*p != ' ' && *p != '-')
  4204. +       return 0;
  4205. +   return 1;
  4206. + }
  4207. + 
  4208. + 
  4209. + static void
  4210. + make_pmmenu (int i, int menubarp, int keymaps)
  4211. + {
  4212. +   pm_menu pmm;
  4213. +   int submenu_depth = 0;
  4214. +   int sel = 0;
  4215. + 
  4216. +   while (i < menu_items_used)
  4217. +     {
  4218. +       if (EQ (XVECTOR (menu_items)->contents[i], Qnil))
  4219. +     {
  4220. +           pmm.type = PMMENU_PUSH;
  4221. +           pmmenu_add (&pmm);
  4222. +           submenu_depth++;
  4223. +           i++;
  4224. +     }
  4225. +       else if (EQ (XVECTOR (menu_items)->contents[i], Qlambda))
  4226. +     {
  4227. +           pmm.type = PMMENU_POP;
  4228. +           pmmenu_add (&pmm);
  4229. +           --submenu_depth;
  4230. +       i++;
  4231. +     }
  4232. +       else if (EQ (XVECTOR (menu_items)->contents[i], Qt)
  4233. +            && submenu_depth != 0)
  4234. +     i += MENU_ITEMS_PANE_LENGTH;
  4235. +       /* Ignore a nil in the item list.
  4236. +      It's meaningful only for dialog boxes.  */
  4237. +       else if (EQ (XVECTOR (menu_items)->contents[i], Qquote))
  4238. +     i += 1;
  4239. +       else if (EQ (XVECTOR (menu_items)->contents[i], Qt))
  4240. +     {
  4241. +       /* Create a new pane.  */
  4242. +       Lisp_Object pane_name, prefix;
  4243. +       char *pane_string;
  4244. +       pane_name = XVECTOR (menu_items)->contents[i + MENU_ITEMS_PANE_NAME];
  4245. +       prefix = XVECTOR (menu_items)->contents[i + MENU_ITEMS_PANE_PREFIX];
  4246. +       pane_string = (NILP (pane_name)
  4247. +              ? "" : (char *) XSTRING (pane_name)->data);
  4248. +       /* If there is just one top-level pane, put all its items directly
  4249. +          under the top-level menu.  */
  4250. +       if (menu_items_n_panes == 1)
  4251. +         pane_string = "";
  4252. + 
  4253. +       /* If the pane has a meaningful name,
  4254. +          make the pane a top-level menu item
  4255. +          with its items as a submenu beneath it.  */
  4256. +       if (!keymaps && strcmp (pane_string, ""))
  4257. +         {
  4258. +           if (keymaps && !NILP (prefix))
  4259. +         pane_string++;
  4260. +               pmm.type = PMMENU_SUB;
  4261. +               pmm.item = 0;
  4262. +               pmm.str_offset = pmmenu_add_str (pane_string, "", 1);
  4263. +               pmm.enable = 1;
  4264. +               pmmenu_add (&pmm);
  4265. +         }
  4266. +       i += MENU_ITEMS_PANE_LENGTH;
  4267. +     }
  4268. +       else
  4269. +     {
  4270. +       /* Create a new item within current pane.  */
  4271. +       Lisp_Object item_name, enable, descrip, value, def;
  4272. +       item_name = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_NAME];
  4273. +       value = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_VALUE];
  4274. +       enable = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_ENABLE];
  4275. +       descrip
  4276. +         = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_EQUIV_KEY];
  4277. +       def = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_DEFINITION];
  4278. + 
  4279. +       /* Check for separator lines.  */
  4280. + 
  4281. +       if (menu_sep_p (item_name) && NILP (def))
  4282. +         {
  4283. +           /* The code processing the value returned by pmemacs
  4284. +                  does not check for separators, therefore we must
  4285. +                  update `sel' even for separators.  */
  4286. +           ++sel;
  4287. +           pmm.type = PMMENU_SEP;
  4288. +         }
  4289. +       else
  4290. +         {
  4291. +           pmm.type = PMMENU_ITEM;
  4292. +           pmm.item = (menubarp ? i : ++sel);
  4293. +           pmm.str_offset
  4294. +         = pmmenu_add_str (XSTRING (item_name)->data,
  4295. +                   (NILP (descrip) ? ""
  4296. +                    : (char*)XSTRING (descrip)->data),
  4297. +                   1);
  4298. +           pmm.enable = !NILP (enable);
  4299. +         }
  4300. +       pmmenu_add (&pmm);
  4301. +       i += MENU_ITEMS_ITEM_LENGTH;
  4302. +     }
  4303. +     }
  4304. + 
  4305. +   pmm.type = PMMENU_END;
  4306. +   pmmenu_add (&pmm);
  4307. + }
  4308. + 
  4309. + 
  4310. + static Lisp_Object
  4311. + xmenu_show (f, x, y, for_click, keymaps, title, error)
  4312. +      FRAME_PTR f;
  4313. +      int x, y;
  4314. +      int for_click;
  4315. +      int keymaps;
  4316. +      Lisp_Object title;
  4317. +      char **error;
  4318. + {
  4319. +   int i, sel, serial;
  4320. +   Lisp_Object *subprefix_stack
  4321. +     = (Lisp_Object *) alloca (menu_items_used * sizeof (Lisp_Object));
  4322. +   int submenu_depth = 0;
  4323. +   pm_request pmr;
  4324. +   pm_menu pmm;
  4325. + 
  4326. +   *error = 0;
  4327. +   if (menu_items_n_panes == 0)
  4328. +     return Qnil;
  4329. + 
  4330. +   if (menu_items_used <= MENU_ITEMS_PANE_LENGTH)
  4331. +     {
  4332. +       *error = "Empty menu";
  4333. +       return Qnil;
  4334. +     }
  4335. + 
  4336. +   pmmenu_count = 0; pmmenu_str_size = 0;
  4337. +   make_pmmenu (0, 0, keymaps);
  4338. + 
  4339. +   BLOCK_INPUT;
  4340. +   pmr.popupmenu.header.type = PMR_POPUPMENU;
  4341. +   pmr.popupmenu.header.frame = (unsigned long)f;
  4342. +   pmr.popupmenu.serial = serial = pm_serial++;
  4343. +   pmr.popupmenu.x = x;
  4344. +   pmr.popupmenu.y = y;
  4345. +   pmr.popupmenu.align_top = pm_popup_menu_align_top;
  4346. +   pmr.popupmenu.button = pm_menu_button;
  4347. +   pmr.popupmenu.count = pmmenu_count;
  4348. +   pmr.popupmenu.size = pmmenu_count * sizeof (pm_menu) + pmmenu_str_size;
  4349. +   pm_send (&pmr, sizeof (pmr));
  4350. +   pm_send (pmmenu_menu, pmmenu_count * sizeof (pm_menu));
  4351. +   pm_send (pmmenu_str, pmmenu_str_size);
  4352. +   if (pm_receive (serial, &sel, NULL, 1) == NULL)
  4353. +     sel = 0;
  4354. +   UNBLOCK_INPUT;
  4355. + 
  4356. +   /* Find the selected item, and its pane, to return the proper value. */
  4357. + 
  4358. +   if (sel != 0)
  4359. +     {
  4360. +       Lisp_Object prefix, entry;
  4361. + 
  4362. +       prefix = Qnil;
  4363. +       i = 0;
  4364. +       while (i < menu_items_used)
  4365. +         {
  4366. +           if (EQ (XVECTOR (menu_items)->contents[i], Qnil))
  4367. +             {
  4368. +               subprefix_stack[submenu_depth++] = prefix;
  4369. +               prefix = entry;
  4370. +               i++;
  4371. +             }
  4372. +           else if (EQ (XVECTOR (menu_items)->contents[i], Qlambda))
  4373. +             {
  4374. +               prefix = subprefix_stack[--submenu_depth];
  4375. +               i++;
  4376. +             }
  4377. +           else if (EQ (XVECTOR (menu_items)->contents[i], Qt))
  4378. +             {
  4379. +               prefix
  4380. +                 = XVECTOR (menu_items)->contents[i + MENU_ITEMS_PANE_PREFIX];
  4381. +               i += MENU_ITEMS_PANE_LENGTH;
  4382. +         }
  4383. +           /* Ignore a quote in the item list.
  4384. +              It's meaningful only for dialog boxes.  */
  4385. +           else if (EQ (XVECTOR (menu_items)->contents[i], Qquote))
  4386. +             i += 1;
  4387. +       else
  4388. +         {
  4389. +               entry
  4390. +                 = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_VALUE];
  4391. +           if (--sel == 0)
  4392. +         {
  4393. +           if (keymaps != 0)
  4394. +             {
  4395. +               int j;
  4396. + 
  4397. +               entry = Fcons (entry, Qnil);
  4398. +               if (!NILP (prefix))
  4399. +             entry = Fcons (prefix, entry);
  4400. +               for (j = submenu_depth - 1; j >= 0; j--)
  4401. +             if (!NILP (subprefix_stack[j]))
  4402. +               entry = Fcons (subprefix_stack[j], entry);
  4403. +             }
  4404. +           return entry;
  4405. +         }
  4406. +           i += MENU_ITEMS_ITEM_LENGTH;
  4407. +         }
  4408. +     }
  4409. +     }
  4410. +   return Qnil;
  4411. + }
  4412. + 
  4413. + static Lisp_Object
  4414. + xdialog_show (f, keymaps, title, error)
  4415. +      FRAME_PTR f;
  4416. +      int keymaps;
  4417. +      Lisp_Object title;
  4418. +      char **error;
  4419. + {
  4420. +   int nb_buttons = 0;
  4421. +   int i, sel;
  4422. +   pm_request pmr;
  4423. +   pm_menu pmm;
  4424. + 
  4425. +   *error = NULL;
  4426. + 
  4427. +   if (menu_items_n_panes > 1)
  4428. +     {
  4429. +       *error = "Multiple panes in dialog box";
  4430. +       return Qnil;
  4431. +     }
  4432. + 
  4433. +   pmmenu_count = 0; pmmenu_str_size = 0;
  4434. + 
  4435. +   if (XSTRING (title)->size != 0)
  4436. +     {
  4437. +       pmm.type = PMMENU_TITLE;
  4438. +       pmm.item = 0;
  4439. +       pmm.str_offset = pmmenu_add_str (XSTRING (title)->data, "", 0);
  4440. +       pmm.enable = 0;
  4441. +       pmmenu_add (&pmm);
  4442. +     }
  4443. + 
  4444. +   /* Loop over all panes and items, filling in the tree.  */
  4445. +   i = MENU_ITEMS_PANE_LENGTH;
  4446. +   while (i < menu_items_used)
  4447. +     {
  4448. +     
  4449. +       /* Create a new item within current pane.  */
  4450. +       Lisp_Object item_name, enable;
  4451. +       item_name = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_NAME];
  4452. +       enable = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_ENABLE];
  4453. +     
  4454. +       if (NILP (item_name))
  4455. +         {
  4456. +           *error = "Submenu in dialog items";
  4457. +           return Qnil;
  4458. +         }
  4459. +       if (EQ (item_name, Qquote))
  4460. +         {
  4461. +           /* This is the boundary between left-side elts
  4462. +              and right-side elts.  */
  4463. +           i++;
  4464. +           continue;
  4465. +         }
  4466. +       if (nb_buttons >= 10)
  4467. +         {
  4468. +           *error = "Too many dialog items";
  4469. +           return Qnil;
  4470. +         }
  4471. + 
  4472. +       pmm.type = PMMENU_ITEM;
  4473. +       pmm.item = i + 1;
  4474. +       pmm.str_offset = pmmenu_add_str (XSTRING (item_name)->data, "", 0);
  4475. +       pmm.enable = !NILP (enable);
  4476. +       pmmenu_add (&pmm);
  4477. + 
  4478. +       nb_buttons++;
  4479. +       i += MENU_ITEMS_ITEM_LENGTH;
  4480. +     }
  4481. + 
  4482. +   pmm.type = PMMENU_END;
  4483. +   pmmenu_add (&pmm);
  4484. + 
  4485. +   BLOCK_INPUT;
  4486. +   pmr.dialog.header.type = PMR_DIALOG;
  4487. +   pmr.dialog.header.frame = (unsigned long)f;
  4488. +   pmr.dialog.serial = pm_serial++;
  4489. +   pmr.dialog.buttons = nb_buttons;
  4490. +   pmr.dialog.count = pmmenu_count;
  4491. +   pmr.dialog.size = pmmenu_count * sizeof (pm_menu) + pmmenu_str_size;
  4492. +   pm_send (&pmr, sizeof (pmr));
  4493. +   pm_send (pmmenu_menu, pmmenu_count * sizeof (pm_menu));
  4494. +   pm_send (pmmenu_str, pmmenu_str_size);
  4495. +   if (pm_receive (pmr.dialog.serial, &sel, NULL, 1) == NULL)
  4496. +     sel = 0;
  4497. +   UNBLOCK_INPUT;
  4498. +   if (sel == 0)
  4499. +     return Qnil;
  4500. +   return XVECTOR (menu_items)->contents[sel - 1 + MENU_ITEMS_ITEM_VALUE];
  4501. + }
  4502. + 
  4503. + 
  4504. + static void
  4505. + single_submenu (item_key, item_name, maps)
  4506. +      Lisp_Object item_key, item_name, maps;
  4507. + {
  4508. +   int i;
  4509. +   int submenu_depth = 0;
  4510. +   Lisp_Object length;
  4511. +   int len;
  4512. +   Lisp_Object *mapvec;
  4513. +   int previous_items = menu_items_used;
  4514. +   pm_menu pmm;
  4515. +   char *name;
  4516. + 
  4517. +   length = Flength (maps);
  4518. +   len = XINT (length);
  4519. + 
  4520. +   /* Convert the list MAPS into a vector MAPVEC.  */
  4521. +   mapvec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
  4522. +   for (i = 0; i < len; i++)
  4523. +     {
  4524. +       mapvec[i] = Fcar (maps);
  4525. +       maps = Fcdr (maps);
  4526. +     }
  4527. + 
  4528. +   menu_items_n_panes = 0;
  4529. + 
  4530. +   /* Loop over the given keymaps, making a pane for each map.
  4531. +      But don't make a pane that is empty--ignore that map instead.  */
  4532. +   for (i = 0; i < len; i++)
  4533. +     single_keymap_panes (mapvec[i], item_name, item_key, 0);
  4534. + 
  4535. +   name = STRINGP (item_name) ? (char *) XSTRING (item_name)->data : "???";
  4536. +   pmm.type = PMMENU_TOP;
  4537. +   pmm.item = 0;
  4538. +   pmm.str_offset = pmmenu_add_str (name, "", 1);
  4539. +   pmm.enable = 1;
  4540. +   pmmenu_add (&pmm);
  4541. + 
  4542. +   make_pmmenu (previous_items, 1, 0);
  4543. + }
  4544. + 
  4545. + 
  4546. + static void
  4547. + update_frame_menubar (f)
  4548. +      FRAME_PTR f;
  4549. + {
  4550. + }
  4551. + 
  4552. + 
  4553. + void
  4554. + set_frame_menubar (f, first_time, deep_p)
  4555. +      FRAME_PTR f;
  4556. +      int first_time;
  4557. +      int deep_p;
  4558. + {
  4559. +   pm_request pmr;
  4560. +   pm_menu pmm;
  4561. +   Lisp_Object tail, items;
  4562. +   int i;
  4563. +   struct buffer *prev = current_buffer;
  4564. +   Lisp_Object buffer;
  4565. +   int specpdl_count = specpdl_ptr - specpdl;
  4566. +   int previous_menu_items_used = f->menu_bar_items_used;
  4567. +   Lisp_Object *previous_items
  4568. +     = (Lisp_Object *) alloca (previous_menu_items_used
  4569. +                               * sizeof (Lisp_Object));
  4570. + 
  4571. +   buffer = XWINDOW (FRAME_SELECTED_WINDOW (f))->buffer;
  4572. +   specbind (Qinhibit_quit, Qt);
  4573. +   /* Don't let the debugger step into this code because it is not
  4574. +      reentrant.  */
  4575. +   specbind (Qdebug_on_next_call, Qnil);
  4576. + 
  4577. +   record_unwind_protect (Fstore_match_data, Fmatch_data ());
  4578. +   if (NILP (Voverriding_local_map_menu_flag))
  4579. +     {
  4580. +       specbind (Qoverriding_terminal_local_map, Qnil);
  4581. +       specbind (Qoverriding_local_map, Qnil);
  4582. +     }
  4583. + 
  4584. +   set_buffer_internal_1 (XBUFFER (buffer));
  4585. + 
  4586. +   /* Run the Lucid hook.  */
  4587. +   call1 (Vrun_hooks, Qactivate_menubar_hook);
  4588. +   /* If it has changed current-menubar from previous value, really
  4589. +      recompute the menubar from the value.  */
  4590. +   if (! NILP (Vlucid_menu_bar_dirty_flag))
  4591. +     call0 (Qrecompute_lucid_menubar);
  4592. +   safe_run_hooks (Qmenu_bar_update_hook);
  4593. +   FRAME_MENU_BAR_ITEMS (f) = menu_bar_items (FRAME_MENU_BAR_ITEMS (f));
  4594. + 
  4595. +   items = FRAME_MENU_BAR_ITEMS (f);
  4596. + 
  4597. +   inhibit_garbage_collection ();
  4598. + 
  4599. +   /* Save the frame's previous menu bar contents data.  */
  4600. +   bcopy (XVECTOR (f->menu_bar_vector)->contents, previous_items,
  4601. +          previous_menu_items_used * sizeof (Lisp_Object));
  4602. + 
  4603. +   /* Fill in the current menu bar contents.  */
  4604. +   menu_items = f->menu_bar_vector;
  4605. +   menu_items_allocated = XVECTOR (menu_items)->size;
  4606. +   init_menu_items ();
  4607. + 
  4608. +   pmmenu_count = 0; pmmenu_str_size = 0;
  4609. + 
  4610. +   for (i = 0; i < XVECTOR (items)->size; i += 4)
  4611. +     {
  4612. +       Lisp_Object key, string, maps;
  4613. + 
  4614. +       key = XVECTOR (items)->contents[i];
  4615. +       string = XVECTOR (items)->contents[i + 1];
  4616. +       maps = XVECTOR (items)->contents[i + 2];
  4617. +       if (NILP (string))
  4618. +     break;
  4619. + 
  4620. +       single_submenu (key, string, maps);
  4621. +     }
  4622. + 
  4623. +   finish_menu_items ();
  4624. + 
  4625. +   set_buffer_internal_1 (prev);
  4626. +   unbind_to (specpdl_count, Qnil);
  4627. + 
  4628. +   /* If there has been no change in the Lisp-level contents of the
  4629. +      menu bar, skip redisplaying it.  Just exit.  */
  4630. + 
  4631. +   for (i = 0; i < previous_menu_items_used; i++)
  4632. +     if (menu_items_used == i
  4633. +         || (previous_items[i] != XVECTOR (menu_items)->contents[i]))
  4634. +       break;
  4635. + 
  4636. +   if (i == menu_items_used && i == previous_menu_items_used)
  4637. +     {
  4638. +       menu_items = Qnil;
  4639. +       return;
  4640. +     }
  4641. + 
  4642. +   f->menu_bar_vector = menu_items;
  4643. +   f->menu_bar_items_used = menu_items_used;
  4644. +   menu_items = Qnil;
  4645. + 
  4646. +   BLOCK_INPUT;
  4647. + 
  4648. +   pmm.type = PMMENU_END;
  4649. +   pmmenu_add (&pmm);
  4650. + 
  4651. +   pmr.menubar.header.type = PMR_MENUBAR;
  4652. +   pmr.menubar.header.frame = (unsigned long)f;
  4653. +   pmr.menubar.entries = pmmenu_count;
  4654. +   pmr.menubar.size = pmmenu_count * sizeof (pm_menu) + pmmenu_str_size;
  4655. +   pm_send (&pmr, sizeof (pmr));
  4656. +   pm_send (pmmenu_menu, pmmenu_count * sizeof (pm_menu));
  4657. +   pm_send (pmmenu_str, pmmenu_str_size);
  4658. + 
  4659. +   update_frame_menubar (f);
  4660. + 
  4661. +   UNBLOCK_INPUT;
  4662. + }
  4663. + 
  4664. + 
  4665. + void pm_menubar_selection (FRAME_PTR f, int sel)
  4666. + {
  4667. +   menubar_selection_callback (0, (LWLIB_ID)f, sel);
  4668. + }
  4669. + 
  4670. + x_activate_menubar (f)
  4671. +      FRAME_PTR f;
  4672. + {
  4673. + }
  4674. + #endif /* HAVE_PM */
  4675. + 
  4676.   #endif /* HAVE_MENUS */
  4677.   
  4678.   syms_of_xmenu ()
  4679. ***************
  4680. *** 2697,2702 ****
  4681. --- 3317,3338 ----
  4682.     staticpro (&menu_items);
  4683.     menu_items = Qnil;
  4684.   
  4685. + #ifdef HAVE_PM
  4686. +   DEFVAR_BOOL ("pm-align-menu-key-descriptions",
  4687. +                &pm_align_menu_key_descriptions,
  4688. +     "*Non-nil means align key descriptions in menus.\n\
  4689. + nil means put key descriptions directly after the title of a\n\
  4690. + menu item, in parentheses.  You should set this variable\n\
  4691. + in your startup file because it is ignored after computing\n\
  4692. + the keyboard equivalents for menus.");
  4693. +   pm_align_menu_key_descriptions = 1;
  4694. + 
  4695. +   DEFVAR_BOOL ("pm-popup-menu-align-top", &pm_popup_menu_align_top,
  4696. +     "*Non-nil means put the top item of a popup menu at the mouse position.\n\
  4697. + nil means put the bottom item of a popup menu at the mouse position.");
  4698. +   pm_popup_menu_align_top = 1;
  4699. + #endif /* HAVE_PM */
  4700. + 
  4701.     Qmenu_alias = intern ("menu-alias");
  4702.     staticpro (&Qmenu_alias);
  4703.   
  4704. ***************
  4705. *** 2704,2710 ****
  4706. --- 3340,3348 ----
  4707.     staticpro (&Qdebug_on_next_call);
  4708.   
  4709.   #ifdef USE_X_TOOLKIT
  4710. + #ifndef HAVE_PM
  4711.     widget_id_tick = (1<<16);    
  4712. + #endif /* not HAVE_PM */
  4713.     next_menubar_widget_id = 1;
  4714.   #endif
  4715.   
  4716.