diff options
| author | Eli Zaretskii | 2016-04-30 13:45:33 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2016-04-30 13:45:33 +0300 |
| commit | ccdaf04cfdaa42fb85d456274405cce32ee9f5d4 (patch) | |
| tree | 631c59e4dad1db81cca00edeaa721ae8c0e522e5 /src/process.c | |
| parent | ffe701cb07cfb3584c4e4894976f0c9487d02c59 (diff) | |
| download | emacs-ccdaf04cfdaa42fb85d456274405cce32ee9f5d4.tar.gz emacs-ccdaf04cfdaa42fb85d456274405cce32ee9f5d4.zip | |
Fix the MSDOS build
* config.bat:
* msdos/sedlisp.inp:
* msdos/sedlibmk.inp:
* msdos/sedleim.inp:
* msdos/sedadmin.inp:
* msdos/sed6.inp:
* msdos/sed3v2.inp:
* msdos/sed2v2.inp:
* msdos/sed1v2.inp: Adapt to Emacs 25.
* src/process.c (remove_slash_colon): Move out of "#ifdef
subprocesses" block, as it its called unconditionally. Move
ADD_SUBFEATURE calls into "#ifdef subprocesses" block, as they
reference variables only defined in that block.
* src/msdos.h: Provide prototypes for IT_set_frame_parameters,
faccessat, msdos_fatal_signal, syms_of_msdos, pthread_sigmask,
dos_keysns, dos_keyread, run_msdos_command, and
syms_of_win16select, to avoid compiler warnings.
* src/msdos.c (SYS_ENVIRON): Define to either '_environ' or
'environ', depending on the DJGPP version.
Remove declarations of externally-visible Lisp objects, like
Qbackground_color and Qreverse.
(run_msdos_command): First argument is not signed, not unsigned.
Use SYS_ENVIRON.
(sys_select): Use 'timespec_cmp' instead of 'timespec_sign', as
the latter doesn't work when 'time_t' is an unsigned data type.
This caused idle timers to behave incorrectly: they only fired
after a keyboard input event.
* src/frame.c (adjust_frame_size) [MSDOS]: Account for
FRAME_TOP_MARGIN that isn't counted in the frame's number of
lines, but dos_set_window_size needs it to be added.
* src/lread.c (INFINITY, NAN) [DJGPP < 2.05]: Provide definitions.
* src/fns.c (sort_vector_copy) [__GNUC__ < 4]: Provide a prototype
that works around compilation errors with older GCC versions.
* src/w16select.c: Don't declare QCLIPBOARD and QPRIMARY as Lisp
Objects.
* src/filelock.c [MSDOS]: Ifdef away most of the code. Provide
no-op implementations for 'lock_file' and 'unlock_file'.
(Ffile_locked_p) [MSDOS]: Always return nil. This avoids multiple
ifdefs in all users of filelock.c functionality.
* src/conf_post.h (EOVERFLOW, SIZE_MAX) [DJGPP < 2.04]: Define.
* src/emacs.c [MSDOS]: Include dosfns.h, to avoid compiler
warnings.
* src/dosfns.h: Provide prototypes for dos_cleanup,
syms_of_dosfns, and init_dosfns.
* src/deps.mk (atimer.o): Depend on msdos.h.
(emacs.o): Depend on dosfns.h.
* src/atimer.c [MSDOS]: Include msdos.h, to avoid compiler
warnings.
* lisp/window.el (window--adjust-process-windows): Skip the body
if 'process-list' is not available. This avoids failure to start
up on MS-DOS.
* lisp/vc/diff.el (diff-no-select): Test 'make-process', not
'start-process', as the latter is now available on all platforms.
* lisp/textmodes/ispell.el (ispell-async-processp): Replace
'start-process' with 'make-process' in a comment.
* lisp/term/internal.el (IT-unicode-translations): Modify and add
a few translations to display Info files with Unicode markup. Fix
an ancient off-by-one mismatch error with Unicode codepoints.
* lisp/progmodes/compile.el (compilation-start): Test
'make-process', not 'start-process', as the latter is now
available on all platforms.
* lisp/man.el (Man-build-man-command, Man-getpage-in-background):
Test 'make-process', not 'start-process', as the latter is now
available on all platforms.
* lisp/international/mule-cmds.el (set-coding-system-map): Test
'make-process', not 'start-process', as the latter is now
available on all platforms.
* lisp/eshell/esh-cmd.el (eshell-do-pipelines-synchronously): Doc
fix.
(eshell-execute-pipeline): Test 'make-process', not
'start-process', as the latter is now available on all platforms.
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 39 |
1 files changed, 19 insertions, 20 deletions
diff --git a/src/process.c b/src/process.c index dd508836f79..2c758a4c9a7 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -4085,19 +4085,6 @@ Data that is unavailable is returned as nil. */) | |||
| 4085 | #endif | 4085 | #endif |
| 4086 | } | 4086 | } |
| 4087 | 4087 | ||
| 4088 | /* If program file NAME starts with /: for quoting a magic | ||
| 4089 | name, remove that, preserving the multibyteness of NAME. */ | ||
| 4090 | |||
| 4091 | Lisp_Object | ||
| 4092 | remove_slash_colon (Lisp_Object name) | ||
| 4093 | { | ||
| 4094 | return | ||
| 4095 | ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':') | ||
| 4096 | ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2, | ||
| 4097 | SBYTES (name) - 2, STRING_MULTIBYTE (name)) | ||
| 4098 | : name); | ||
| 4099 | } | ||
| 4100 | |||
| 4101 | /* Turn off input and output for process PROC. */ | 4088 | /* Turn off input and output for process PROC. */ |
| 4102 | 4089 | ||
| 4103 | static void | 4090 | static void |
| @@ -7118,6 +7105,19 @@ add_timer_wait_descriptor (int fd) | |||
| 7118 | 7105 | ||
| 7119 | #endif /* HAVE_TIMERFD */ | 7106 | #endif /* HAVE_TIMERFD */ |
| 7120 | 7107 | ||
| 7108 | /* If program file NAME starts with /: for quoting a magic | ||
| 7109 | name, remove that, preserving the multibyteness of NAME. */ | ||
| 7110 | |||
| 7111 | Lisp_Object | ||
| 7112 | remove_slash_colon (Lisp_Object name) | ||
| 7113 | { | ||
| 7114 | return | ||
| 7115 | ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':') | ||
| 7116 | ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2, | ||
| 7117 | SBYTES (name) - 2, STRING_MULTIBYTE (name)) | ||
| 7118 | : name); | ||
| 7119 | } | ||
| 7120 | |||
| 7121 | /* Add DESC to the set of keyboard input descriptors. */ | 7121 | /* Add DESC to the set of keyboard input descriptors. */ |
| 7122 | 7122 | ||
| 7123 | void | 7123 | void |
| @@ -7643,13 +7643,6 @@ The variable takes effect when `start-process' is called. */); | |||
| 7643 | defsubr (&Sset_process_filter_multibyte); | 7643 | defsubr (&Sset_process_filter_multibyte); |
| 7644 | defsubr (&Sprocess_filter_multibyte_p); | 7644 | defsubr (&Sprocess_filter_multibyte_p); |
| 7645 | 7645 | ||
| 7646 | #endif /* subprocesses */ | ||
| 7647 | |||
| 7648 | defsubr (&Sget_buffer_process); | ||
| 7649 | defsubr (&Sprocess_inherit_coding_system_flag); | ||
| 7650 | defsubr (&Slist_system_processes); | ||
| 7651 | defsubr (&Sprocess_attributes); | ||
| 7652 | |||
| 7653 | { | 7646 | { |
| 7654 | Lisp_Object subfeatures = Qnil; | 7647 | Lisp_Object subfeatures = Qnil; |
| 7655 | const struct socket_options *sopt; | 7648 | const struct socket_options *sopt; |
| @@ -7684,4 +7677,10 @@ The variable takes effect when `start-process' is called. */); | |||
| 7684 | Fprovide (intern_c_string ("make-network-process"), subfeatures); | 7677 | Fprovide (intern_c_string ("make-network-process"), subfeatures); |
| 7685 | } | 7678 | } |
| 7686 | 7679 | ||
| 7680 | #endif /* subprocesses */ | ||
| 7681 | |||
| 7682 | defsubr (&Sget_buffer_process); | ||
| 7683 | defsubr (&Sprocess_inherit_coding_system_flag); | ||
| 7684 | defsubr (&Slist_system_processes); | ||
| 7685 | defsubr (&Sprocess_attributes); | ||
| 7687 | } | 7686 | } |