diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2016-05-01 18:09:29 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2016-05-01 18:09:29 -0700 |
commit | c3ed7cea0a43ab86c9d3b1627878055844bc8656 (patch) | |
tree | 4a46db8032e1b359be5284822828d12814d96e27 /src | |
parent | 07fafe1edbba4a5eecbe133313b2eb6ec15e5c55 (diff) | |
parent | 16e5e8e4ea4ad46157fcdeafb16f245124fba375 (diff) | |
download | emacs-c3ed7cea0a43ab86c9d3b1627878055844bc8656.tar.gz |
Merge from origin/emacs-25
16e5e8e Fix last change to isearch-update (bug#23406)
b755d98 Autoload cursor-sensor-inhibit (bug#23406)
b52ebd4 org-map-entries: Fix org-agenda-prepare-buffers call
86aa409 Followup for last commit in the user manual
7004459 Improve doc string of 'set-goal-column'
ccdaf04 Fix the MSDOS build
ffe701c Remove \= from format string (bug#18190)
1c58fa1 Fix variable-pitch font on MS-Windows
c6077bf Restore follow-scroll-up/down to scrolling by the combined si...
b671e21 Revert unneeded change which harms syntactic parsing. This f...
48b24c9 Correct indentation of ids in a C++ enum after a protection k...
5c3534f * lisp/window.el (window--process-window-list): No-op if no p...
734fb3a Port dumping to NetBSD with PaX
0255a70 Don't mistake `for' inside a function for a part of array com...
# Conflicts:
# src/Makefile.in
Diffstat (limited to 'src')
-rw-r--r-- | src/Makefile.in | 18 | ||||
-rw-r--r-- | src/atimer.c | 4 | ||||
-rw-r--r-- | src/conf_post.h | 3 | ||||
-rw-r--r-- | src/deps.mk | 4 | ||||
-rw-r--r-- | src/dosfns.h | 4 | ||||
-rw-r--r-- | src/emacs.c | 1 | ||||
-rw-r--r-- | src/filelock.c | 19 | ||||
-rw-r--r-- | src/fns.c | 5 | ||||
-rw-r--r-- | src/frame.c | 11 | ||||
-rw-r--r-- | src/lread.c | 4 | ||||
-rw-r--r-- | src/msdos.c | 36 | ||||
-rw-r--r-- | src/msdos.h | 14 | ||||
-rw-r--r-- | src/process.c | 39 | ||||
-rw-r--r-- | src/w16select.c | 5 |
14 files changed, 114 insertions, 53 deletions
diff --git a/src/Makefile.in b/src/Makefile.in index fc9360a5bde..8639effde86 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -114,8 +114,9 @@ TEMACS_LDFLAGS = $(LD_SWITCH_SYSTEM) $(LD_SWITCH_SYSTEM_TEMACS) ## around this, newer ones setfattr. See Bug#11398 and Bug#16343. PAXCTL = @PAXCTL@ SETFATTR = @SETFATTR@ -PAXCTL_if_present = $(or $(PAXCTL),: paxctl) -SETFATTR_if_present = $(or $(SETFATTR),: setfattr) +## Commands to set PaX flags on dumped and not-dumped instances of Emacs. +PAXCTL_dumped = @PAXCTL_dumped@ +PAXCTL_notdumped = @PAXCTL_notdumped@ ## Some systems define this to request special libraries. LIBS_SYSTEM=@LIBS_SYSTEM@ @@ -542,7 +543,9 @@ ifeq ($(CANNOT_DUMP),yes) ln -f temacs$(EXEEXT) $@ else LC_ALL=C $(RUN_TEMACS) -batch $(BUILD_DETAILS) -l loadup dump - $(PAXCTL_if_present) -zex $@ + ifneq ($(PAXCTL_dumped),) + $(PAXCTL_dumped) $@ + endif ln -f $@ bootstrap-emacs$(EXEEXT) endif @@ -606,8 +609,9 @@ temacs$(EXEEXT): $(LIBXMENU) $(ALLOBJS) \ -o temacs $(ALLOBJS) $(LIBEGNU_ARCHIVE) $(W32_RES_LINK) $(LIBES) $(MKDIR_P) $(etc) ifneq ($(CANNOT_DUMP),yes) - $(PAXCTL_if_present) -r $@ - $(SETFATTR_if_present) -n user.pax.flags -v er $@ + ifneq ($(PAXCTL_notdumped),) + $(PAXCTL_notdumped) $@ + endif endif ## The following oldxmenu-related rules are only (possibly) used if @@ -748,7 +752,9 @@ ifeq ($(CANNOT_DUMP),yes) ln -f temacs$(EXEEXT) $@ else $(RUN_TEMACS) --batch $(BUILD_DETAILS) --load loadup bootstrap - $(PAXCTL_if_present) -zex emacs$(EXEEXT) + ifneq ($(PAXCTL_dumped),) + $(PAXCTL_dumped) emacs$(EXEEXT) + endif mv -f emacs$(EXEEXT) $@ endif @: Compile some files earlier to speed up further compilation. diff --git a/src/atimer.c b/src/atimer.c index 70d9bf52bc2..64c9e8ab6cb 100644 --- a/src/atimer.c +++ b/src/atimer.c @@ -30,6 +30,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ # include <sys/timerfd.h> #endif +#ifdef MSDOS +#include "msdos.h" +#endif + /* Free-list of atimer structures. */ static struct atimer *free_atimers; diff --git a/src/conf_post.h b/src/conf_post.h index 047e3575e19..5d3394fafce 100644 --- a/src/conf_post.h +++ b/src/conf_post.h @@ -134,6 +134,9 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */ # define HAVE_LSTAT 1 #else # define lstat stat +/* DJGPP 2.03 and older don't have the next two. */ +# define EOVERFLOW ERANGE +# define SIZE_MAX 4294967295U #endif /* We must intercept 'opendir' calls to stash away the directory name, diff --git a/src/deps.mk b/src/deps.mk index 0295e705a9c..72f68cabfc3 100644 --- a/src/deps.mk +++ b/src/deps.mk @@ -35,7 +35,7 @@ ### Code: atimer.o: atimer.c atimer.h syssignal.h systime.h lisp.h blockinput.h \ - globals.h ../lib/unistd.h $(config_h) + globals.h ../lib/unistd.h msdos.h $(config_h) bidi.o: bidi.c buffer.h character.h dispextern.h msdos.h lisp.h \ globals.h $(config_h) buffer.o: buffer.c buffer.h region-cache.h commands.h window.h \ @@ -92,7 +92,7 @@ editfns.o: editfns.c window.h buffer.h systime.h $(INTERVALS_H) character.h \ emacs.o: emacs.c commands.h systty.h syssignal.h blockinput.h process.h \ termhooks.h buffer.h atimer.h systime.h $(INTERVALS_H) lisp.h $(config_h) \ globals.h ../lib/unistd.h window.h dispextern.h keyboard.h keymap.h \ - frame.h coding.h gnutls.h msdos.h unexec.h + frame.h coding.h gnutls.h msdos.h dosfns.h unexec.h fileio.o: fileio.c window.h buffer.h systime.h $(INTERVALS_H) character.h \ coding.h msdos.h blockinput.h atimer.h lisp.h $(config_h) frame.h \ commands.h globals.h ../lib/unistd.h diff --git a/src/dosfns.h b/src/dosfns.h index 9fbf7eda192..849fb91a7af 100644 --- a/src/dosfns.h +++ b/src/dosfns.h @@ -24,6 +24,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ extern unsigned char dos_country_info[DOS_COUNTRY_INFO]; extern int dos_memory_info (unsigned long *, unsigned long *, unsigned long *, unsigned long *); +void dos_cleanup (void); +void syms_of_dosfns (void); +void init_dosfns (void); + #ifndef HAVE_X_WINDOWS extern int msdos_stdcolor_idx (const char *); extern Lisp_Object msdos_stdcolor_name (int); diff --git a/src/emacs.c b/src/emacs.c index a7cbb32e141..3e0cf596402 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -54,6 +54,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #ifdef MSDOS #include <binary-io.h> +#include "dosfns.h" #endif #ifdef HAVE_LIBSYSTEMD diff --git a/src/filelock.c b/src/filelock.c index 6db6daa3bba..62017188b33 100644 --- a/src/filelock.c +++ b/src/filelock.c @@ -53,6 +53,8 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #include "w32.h" /* for dostounix_filename */ #endif +#ifndef MSDOS + #ifdef HAVE_UTMP_H #include <utmp.h> #endif @@ -732,6 +734,19 @@ unlock_file (Lisp_Object fn) SAFE_FREE (); } +#else /* MSDOS */ +void +lock_file (Lisp_Object fn) +{ +} + +void +unlock_file (Lisp_Object fn) +{ +} + +#endif /* MSDOS */ + void unlock_all_files (void) { @@ -795,6 +810,9 @@ The value is nil if the FILENAME is not locked, t if it is locked by you, else a string saying which user has locked it. */) (Lisp_Object filename) { +#ifdef MSDOS + return Qnil; +#else Lisp_Object ret; char *lfname; int owner; @@ -815,6 +833,7 @@ t if it is locked by you, else a string saying which user has locked it. */) SAFE_FREE (); return ret; +#endif } void diff --git a/src/fns.c b/src/fns.c index b21e93d109a..5217b068882 100644 --- a/src/fns.c +++ b/src/fns.c @@ -34,8 +34,13 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #include "intervals.h" #include "window.h" +#if __GNUC__ >= 4 static void sort_vector_copy (Lisp_Object, ptrdiff_t, Lisp_Object [restrict], Lisp_Object [restrict]); +#else +static void sort_vector_copy (Lisp_Object, ptrdiff_t, + Lisp_Object [], Lisp_Object []); +#endif static bool internal_equal (Lisp_Object, Lisp_Object, int, bool, Lisp_Object); DEFUN ("identity", Fidentity, Sidentity, 1, 1, 0, diff --git a/src/frame.c b/src/frame.c index 9c8926c42c7..1c5c12c7e29 100644 --- a/src/frame.c +++ b/src/frame.c @@ -509,10 +509,13 @@ adjust_frame_size (struct frame *f, int new_width, int new_height, int inhibit, block_input (); #ifdef MSDOS - /* We only can set screen dimensions to certain values supported - by our video hardware. Try to find the smallest size greater - or equal to the requested dimensions. */ - dos_set_window_size (&new_lines, &new_cols); + /* We only can set screen dimensions to certain values supported by + our video hardware. Try to find the smallest size greater or + equal to the requested dimensions, while accounting for the fact + that the menu-bar lines are not counted in the frame height. */ + int dos_new_lines = new_lines + FRAME_TOP_MARGIN (f); + dos_set_window_size (&dos_new_lines, &new_cols); + new_lines = dos_new_lines - FRAME_TOP_MARGIN (f); #endif if (new_windows_width != old_windows_width) diff --git a/src/lread.c b/src/lread.c index 44507281f2f..98a4d69894b 100644 --- a/src/lread.c +++ b/src/lread.c @@ -47,6 +47,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #ifdef MSDOS #include "msdos.h" +#if __DJGPP__ == 2 && __DJGPP_MINOR__ < 5 +# define INFINITY __builtin_inf() +# define NAN __builtin_nan("") +#endif #endif #ifdef HAVE_NS diff --git a/src/msdos.c b/src/msdos.c index 84e8c39ec0c..62411ea2f6d 100644 --- a/src/msdos.c +++ b/src/msdos.c @@ -59,6 +59,12 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #include <libc/dosio.h> /* for _USE_LFN */ #include <conio.h> /* for cputs */ +#if (__DJGPP__ + (__DJGPP_MINOR__ > 3)) >= 3 +#define SYS_ENVIRON _environ +#else +#define SYS_ENVIRON environ +#endif + #include "msdos.h" #include "systime.h" #include "frame.h" @@ -422,8 +428,6 @@ static unsigned long screen_old_address = 0; /* Segment and offset of the virtual screen. If 0, DOS/V is NOT loaded. */ static unsigned short screen_virtual_segment = 0; static unsigned short screen_virtual_offset = 0; -extern Lisp_Object Qcursor_type; -extern Lisp_Object Qbar, Qhbar; /* The screen colors of the current frame, which serve as the default colors for newly-created frames. */ @@ -1384,11 +1388,6 @@ IT_delete_glyphs (struct frame *f, int n) /* This was copied from xfaces.c */ -extern Lisp_Object Qbackground_color; -extern Lisp_Object Qforeground_color; -Lisp_Object Qreverse; -extern Lisp_Object Qtitle; - /* IT_set_terminal_modes is called when emacs is started, resumed, and whenever the screen is redrawn! */ @@ -3710,7 +3709,7 @@ dos_ttcooked (void) file TEMPOUT and stderr to TEMPERR. */ int -run_msdos_command (unsigned char **argv, const char *working_dir, +run_msdos_command (char **argv, const char *working_dir, int tempin, int tempout, int temperr, char **envv) { char *saveargv1, *saveargv2, *lowcase_argv0, *pa, *pl; @@ -3796,8 +3795,8 @@ run_msdos_command (unsigned char **argv, const char *working_dir, ; if (*cmnd) { - extern char **environ; - char **save_env = environ; + extern char **SYS_ENVIRON; + char **save_env = SYS_ENVIRON; int save_system_flags = __system_flags; /* Request the most powerful version of `system'. We need @@ -3809,16 +3808,16 @@ run_msdos_command (unsigned char **argv, const char *working_dir, | __system_handle_null_commands | __system_emulate_chdir); - environ = envv; + SYS_ENVIRON = envv; result = system (cmnd); __system_flags = save_system_flags; - environ = save_env; + SYS_ENVIRON = save_env; } else result = 0; /* emulate Unixy shell behavior with empty cmd line */ } else - result = spawnve (P_WAIT, argv[0], (char **)argv, envv); + result = spawnve (P_WAIT, argv[0], argv, envv); dup2 (inbak, 0); dup2 (outbak, 1); @@ -4085,11 +4084,14 @@ sys_select (int nfds, fd_set *rfds, fd_set *wfds, fd_set *efds, gettime (&t); clnow = make_timespec (t.tv_sec, t.tv_nsec); cldiff = timespec_sub (clnow, cllast); + /* Stop when timeout value is about to cross zero. */ + if (timespec_cmp (*timeout, cldiff) <= 0) + { + timeout->tv_sec = 0; + timeout->tv_nsec = 0; + return 0; + } *timeout = timespec_sub (*timeout, cldiff); - - /* Stop when timeout value crosses zero. */ - if (timespec_sign (*timeout) <= 0) - return 0; cllast = clnow; dos_yield_time_slice (); } diff --git a/src/msdos.h b/src/msdos.h index 863ca486e8d..0c3ba2bfa16 100644 --- a/src/msdos.h +++ b/src/msdos.h @@ -41,8 +41,12 @@ void mouse_on (void); void mouse_off (void); void mouse_moveto (int, int); +void IT_set_frame_parameters (struct frame *, Lisp_Object); + #include <sys/types.h> #include <sys/stat.h> +#include <pc.h> +#include <signal.h> #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 4 int readlink (const char *, char *, size_t); @@ -50,6 +54,16 @@ int readlink (const char *, char *, size_t); ssize_t readlinkat (int, const char *, char *, size_t); int fstatat (int, char const *, struct stat *, int); int unsetenv (const char *); +int faccessat (int, const char *, int, int); +void msdos_fatal_signal (int); +void syms_of_msdos (void); +int pthread_sigmask (int, const sigset_t *, sigset_t *); +int dos_keysns (void); +int dos_keyread (void); +int run_msdos_command (char **, const char *, int, int, int, char **); + +void syms_of_win16select (void); + /* Constants. */ #define EINPROGRESS 112 diff --git a/src/process.c b/src/process.c index 0dfe1622971..9f2d379c330 100644 --- a/src/process.c +++ b/src/process.c @@ -4278,19 +4278,6 @@ Data that is unavailable is returned as nil. */) #endif } -/* If program file NAME starts with /: for quoting a magic - name, remove that, preserving the multibyteness of NAME. */ - -Lisp_Object -remove_slash_colon (Lisp_Object name) -{ - return - ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':') - ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2, - SBYTES (name) - 2, STRING_MULTIBYTE (name)) - : name); -} - /* Turn off input and output for process PROC. */ static void @@ -7483,6 +7470,19 @@ add_timer_wait_descriptor (int fd) #endif /* HAVE_TIMERFD */ +/* If program file NAME starts with /: for quoting a magic + name, remove that, preserving the multibyteness of NAME. */ + +Lisp_Object +remove_slash_colon (Lisp_Object name) +{ + return + ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':') + ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2, + SBYTES (name) - 2, STRING_MULTIBYTE (name)) + : name); +} + /* Add DESC to the set of keyboard input descriptors. */ void @@ -8010,13 +8010,6 @@ The variable takes effect when `start-process' is called. */); defsubr (&Sset_process_filter_multibyte); defsubr (&Sprocess_filter_multibyte_p); -#endif /* subprocesses */ - - defsubr (&Sget_buffer_process); - defsubr (&Sprocess_inherit_coding_system_flag); - defsubr (&Slist_system_processes); - defsubr (&Sprocess_attributes); - { Lisp_Object subfeatures = Qnil; const struct socket_options *sopt; @@ -8049,4 +8042,10 @@ The variable takes effect when `start-process' is called. */); Fprovide (intern_c_string ("make-network-process"), subfeatures); } +#endif /* subprocesses */ + + defsubr (&Sget_buffer_process); + defsubr (&Sprocess_inherit_coding_system_flag); + defsubr (&Slist_system_processes); + defsubr (&Sprocess_attributes); } diff --git a/src/w16select.c b/src/w16select.c index 434a5987893..208cfccf11a 100644 --- a/src/w16select.c +++ b/src/w16select.c @@ -65,8 +65,6 @@ unsigned get_clipboard_data (unsigned, void *, unsigned, int); unsigned close_clipboard (void); unsigned clipboard_compact (unsigned); -Lisp_Object QCLIPBOARD, QPRIMARY; - /* The segment address and the size of the buffer in low memory used to move data between us and WinOldAp module. */ static struct { @@ -719,8 +717,7 @@ variable is set, it is used for the next communication only. After the communication, this variable is set to nil. */); Vnext_selection_coding_system = Qnil; - QPRIMARY = intern ("PRIMARY"); staticpro (&QPRIMARY); - QCLIPBOARD = intern ("CLIPBOARD"); staticpro (&QCLIPBOARD); + DEFSYM (QCLIPBOARD, "CLIPBOARD"); } #endif /* MSDOS */ |