diff options
| author | Paul Eggert | 2017-09-29 22:06:33 -0700 |
|---|---|---|
| committer | Paul Eggert | 2017-09-29 22:06:33 -0700 |
| commit | 20a09de953f437109a098fa8c4d380663d921481 (patch) | |
| tree | eef1d8cc712d140e95f297bd00e9e2d058a36667 /src | |
| parent | e6fc3b147dded8d0833853491ad5e3d7b22f390e (diff) | |
| parent | 3ab2f9bbb96d0425a9396e08b2f462de3fd7818d (diff) | |
| download | emacs-20a09de953f437109a098fa8c4d380663d921481.tar.gz emacs-20a09de953f437109a098fa8c4d380663d921481.zip | |
Merge from origin/emacs-26
3ab2f9bbb9 Merge from gnulib
cbc8324488 Prefer HTTPS to HTTP for gnu.org
bbda601d1d ; Spelling fixes
695cf5300b Wait for frame visibility with timeout in w32term too
e1f6e3127a Bring back the busy wait after x_make_frame_visible (Bug#2...
bccf635217 ; * src/gtkutil.c (xg_check_special_colors): Add another G...
26d58f0c58 ; Standardize license notices
61225964ed Revert "bug#28609: simple.el"
a75ab3b3fb bug#28609: simple.el
c7a21430c1 ; * etc/NEWS: Fix last change.
33401b26b1 Merge branch 'emacs-26' of git.savannah.gnu.org:/srv/git/e...
d4b2bbdc73 Merge branch 'emacs-26' into scratch/org-mode-merge
c1ac8c170f Merge branch 'emacs-26' of git.savannah.gnu.org:/srv/git/e...
af130f900f Fix ert backtrace saving for non-`signal'ed errors (Bug#28...
7476eeaa23 Revert "Fix build on macOS (bug#28571)"
fec63089d5 Fix build on macOS (bug#28571)
0f9a78e770 Add tests for `css-current-defun-name'
88a0dd71f1 In w32fullscreen_hook don't add decorations to undecorated...
18073beb14 Merge branch 'emacs-26' of git.savannah.gnu.org:/srv/git/e...
1eef11b7be Fix doc string of 'dired-listing-switches'
eaefbc26d5 ; Add files missing in ab351d442d7
ab351d442d Update Org to v9.1.1
Diffstat (limited to 'src')
44 files changed, 104 insertions, 61 deletions
diff --git a/src/ChangeLog.1 b/src/ChangeLog.1 index e51b4addc06..74a5012552c 100644 --- a/src/ChangeLog.1 +++ b/src/ChangeLog.1 | |||
| @@ -3536,4 +3536,4 @@ | |||
| 3536 | GNU General Public License for more details. | 3536 | GNU General Public License for more details. |
| 3537 | 3537 | ||
| 3538 | You should have received a copy of the GNU General Public License | 3538 | You should have received a copy of the GNU General Public License |
| 3539 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 3539 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10 index 65a8587bf99..1bd822d492f 100644 --- a/src/ChangeLog.10 +++ b/src/ChangeLog.10 | |||
| @@ -27927,4 +27927,4 @@ See ChangeLog.9 for earlier changes. | |||
| 27927 | GNU General Public License for more details. | 27927 | GNU General Public License for more details. |
| 27928 | 27928 | ||
| 27929 | You should have received a copy of the GNU General Public License | 27929 | You should have received a copy of the GNU General Public License |
| 27930 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 27930 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.11 b/src/ChangeLog.11 index 365fc277a9a..eb1aeb1eeaf 100644 --- a/src/ChangeLog.11 +++ b/src/ChangeLog.11 | |||
| @@ -31400,4 +31400,4 @@ See ChangeLog.10 for earlier changes. | |||
| 31400 | GNU General Public License for more details. | 31400 | GNU General Public License for more details. |
| 31401 | 31401 | ||
| 31402 | You should have received a copy of the GNU General Public License | 31402 | You should have received a copy of the GNU General Public License |
| 31403 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 31403 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.12 b/src/ChangeLog.12 index 367e0d61d8c..35993adb667 100644 --- a/src/ChangeLog.12 +++ b/src/ChangeLog.12 | |||
| @@ -22951,4 +22951,4 @@ See ChangeLog.11 for earlier changes. | |||
| 22951 | GNU General Public License for more details. | 22951 | GNU General Public License for more details. |
| 22952 | 22952 | ||
| 22953 | You should have received a copy of the GNU General Public License | 22953 | You should have received a copy of the GNU General Public License |
| 22954 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 22954 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.13 b/src/ChangeLog.13 index 66f062d3d3f..6f5ea036263 100644 --- a/src/ChangeLog.13 +++ b/src/ChangeLog.13 | |||
| @@ -17920,4 +17920,4 @@ See ChangeLog.12 for earlier changes. | |||
| 17920 | GNU General Public License for more details. | 17920 | GNU General Public License for more details. |
| 17921 | 17921 | ||
| 17922 | You should have received a copy of the GNU General Public License | 17922 | You should have received a copy of the GNU General Public License |
| 17923 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 17923 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.2 b/src/ChangeLog.2 index 56015d56175..42e1e8345d8 100644 --- a/src/ChangeLog.2 +++ b/src/ChangeLog.2 | |||
| @@ -4786,4 +4786,4 @@ See ChangeLog.1 for earlier changes. | |||
| 4786 | GNU General Public License for more details. | 4786 | GNU General Public License for more details. |
| 4787 | 4787 | ||
| 4788 | You should have received a copy of the GNU General Public License | 4788 | You should have received a copy of the GNU General Public License |
| 4789 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 4789 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.3 b/src/ChangeLog.3 index 8f9b38e25d1..17fd69c9f11 100644 --- a/src/ChangeLog.3 +++ b/src/ChangeLog.3 | |||
| @@ -16518,4 +16518,4 @@ See ChangeLog.2 for earlier changes. | |||
| 16518 | GNU General Public License for more details. | 16518 | GNU General Public License for more details. |
| 16519 | 16519 | ||
| 16520 | You should have received a copy of the GNU General Public License | 16520 | You should have received a copy of the GNU General Public License |
| 16521 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 16521 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.4 b/src/ChangeLog.4 index bb13c9a5f68..2935ee52cca 100644 --- a/src/ChangeLog.4 +++ b/src/ChangeLog.4 | |||
| @@ -6921,4 +6921,4 @@ See ChangeLog.3 for earlier changes. | |||
| 6921 | GNU General Public License for more details. | 6921 | GNU General Public License for more details. |
| 6922 | 6922 | ||
| 6923 | You should have received a copy of the GNU General Public License | 6923 | You should have received a copy of the GNU General Public License |
| 6924 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 6924 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.5 b/src/ChangeLog.5 index f0fde023ff2..489ccfa5323 100644 --- a/src/ChangeLog.5 +++ b/src/ChangeLog.5 | |||
| @@ -7163,4 +7163,4 @@ See ChangeLog.4 for earlier changes. | |||
| 7163 | GNU General Public License for more details. | 7163 | GNU General Public License for more details. |
| 7164 | 7164 | ||
| 7165 | You should have received a copy of the GNU General Public License | 7165 | You should have received a copy of the GNU General Public License |
| 7166 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 7166 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.6 b/src/ChangeLog.6 index 2282916205d..f2b9e609b14 100644 --- a/src/ChangeLog.6 +++ b/src/ChangeLog.6 | |||
| @@ -5373,4 +5373,4 @@ See ChangeLog.5 for earlier changes. | |||
| 5373 | GNU General Public License for more details. | 5373 | GNU General Public License for more details. |
| 5374 | 5374 | ||
| 5375 | You should have received a copy of the GNU General Public License | 5375 | You should have received a copy of the GNU General Public License |
| 5376 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 5376 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.7 b/src/ChangeLog.7 index eb4833ccb0e..32472ac074c 100644 --- a/src/ChangeLog.7 +++ b/src/ChangeLog.7 | |||
| @@ -11106,4 +11106,4 @@ See ChangeLog.6 for earlier changes. | |||
| 11106 | GNU General Public License for more details. | 11106 | GNU General Public License for more details. |
| 11107 | 11107 | ||
| 11108 | You should have received a copy of the GNU General Public License | 11108 | You should have received a copy of the GNU General Public License |
| 11109 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 11109 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.8 b/src/ChangeLog.8 index ae971b52e1d..cf7c926cc2d 100644 --- a/src/ChangeLog.8 +++ b/src/ChangeLog.8 | |||
| @@ -13994,4 +13994,4 @@ See ChangeLog.7 for earlier changes. | |||
| 13994 | GNU General Public License for more details. | 13994 | GNU General Public License for more details. |
| 13995 | 13995 | ||
| 13996 | You should have received a copy of the GNU General Public License | 13996 | You should have received a copy of the GNU General Public License |
| 13997 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 13997 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/ChangeLog.9 b/src/ChangeLog.9 index 7b8f500b603..6de10c493f7 100644 --- a/src/ChangeLog.9 +++ b/src/ChangeLog.9 | |||
| @@ -13309,4 +13309,4 @@ See ChangeLog.8 for earlier changes. | |||
| 13309 | GNU General Public License for more details. | 13309 | GNU General Public License for more details. |
| 13310 | 13310 | ||
| 13311 | You should have received a copy of the GNU General Public License | 13311 | You should have received a copy of the GNU General Public License |
| 13312 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 13312 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
diff --git a/src/cygw32.c b/src/cygw32.c index 962b6a2f8b5..724363d64c4 100644 --- a/src/cygw32.c +++ b/src/cygw32.c | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | 19 | ||
| 20 | #include "cygw32.h" | 20 | #include "cygw32.h" |
diff --git a/src/cygw32.h b/src/cygw32.h index a10b830e6b6..f006c112d8f 100644 --- a/src/cygw32.h +++ b/src/cygw32.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | #ifndef CYGW32_H | 19 | #ifndef CYGW32_H |
| 20 | #define CYGW32_H | 20 | #define CYGW32_H |
diff --git a/src/dosfns.c b/src/dosfns.c index 7bf1dee587a..86870496397 100644 --- a/src/dosfns.c +++ b/src/dosfns.c | |||
| @@ -16,7 +16,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 16 | GNU General Public License for more details. | 16 | GNU General Public License for more details. |
| 17 | 17 | ||
| 18 | You should have received a copy of the GNU General Public License | 18 | You should have received a copy of the GNU General Public License |
| 19 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 19 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 20 | 20 | ||
| 21 | #include <config.h> | 21 | #include <config.h> |
| 22 | 22 | ||
diff --git a/src/dosfns.h b/src/dosfns.h index 266430d71e5..2846010c222 100644 --- a/src/dosfns.h +++ b/src/dosfns.h | |||
| @@ -18,7 +18,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 18 | GNU General Public License for more details. | 18 | GNU General Public License for more details. |
| 19 | 19 | ||
| 20 | You should have received a copy of the GNU General Public License | 20 | You should have received a copy of the GNU General Public License |
| 21 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 21 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 22 | 22 | ||
| 23 | #define DOS_COUNTRY_INFO 34 /* no of bytes returned by dos int 38h */ | 23 | #define DOS_COUNTRY_INFO 34 /* no of bytes returned by dos int 38h */ |
| 24 | extern unsigned char dos_country_info[DOS_COUNTRY_INFO]; | 24 | extern unsigned char dos_country_info[DOS_COUNTRY_INFO]; |
diff --git a/src/gtkutil.c b/src/gtkutil.c index 46d3d1d93d2..3f22a4c93f8 100644 --- a/src/gtkutil.c +++ b/src/gtkutil.c | |||
| @@ -577,6 +577,10 @@ xg_check_special_colors (struct frame *f, | |||
| 577 | if (get_fg) | 577 | if (get_fg) |
| 578 | gtk_style_context_get_color (gsty, state, &col); | 578 | gtk_style_context_get_color (gsty, state, &col); |
| 579 | else | 579 | else |
| 580 | /* FIXME: gtk_style_context_get_background_color is deprecated | ||
| 581 | in GTK+ 3.16. New versions of GTK+ don’t use the concept of | ||
| 582 | a single background color any more, so we shouldn’t query for | ||
| 583 | it. */ | ||
| 580 | gtk_style_context_get_background_color (gsty, state, &col); | 584 | gtk_style_context_get_background_color (gsty, state, &col); |
| 581 | 585 | ||
| 582 | unsigned short | 586 | unsigned short |
diff --git a/src/msdos.c b/src/msdos.c index ae9cbeefafd..a8aef9ac405 100644 --- a/src/msdos.c +++ b/src/msdos.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* Contributed by Morten Welinder */ | 20 | /* Contributed by Morten Welinder */ |
| 21 | /* New display, keyboard, and mouse control by Kim F. Storm */ | 21 | /* New display, keyboard, and mouse control by Kim F. Storm */ |
diff --git a/src/msdos.h b/src/msdos.h index f4312c5c86d..16292c551d9 100644 --- a/src/msdos.h +++ b/src/msdos.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | #ifndef EMACS_MSDOS_H | 19 | #ifndef EMACS_MSDOS_H |
| 20 | #define EMACS_MSDOS_H | 20 | #define EMACS_MSDOS_H |
diff --git a/src/w16select.c b/src/w16select.c index 70037f3ca7d..0ecd39b7afa 100644 --- a/src/w16select.c +++ b/src/w16select.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* These functions work by using WinOldAp interface. WinOldAp | 20 | /* These functions work by using WinOldAp interface. WinOldAp |
| 21 | (WINOLDAP.MOD) is a Microsoft Windows extension supporting | 21 | (WINOLDAP.MOD) is a Microsoft Windows extension supporting |
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* | 20 | /* |
| 21 | Geoff Voelker (voelker@cs.washington.edu) 7-29-94 | 21 | Geoff Voelker (voelker@cs.washington.edu) 7-29-94 |
| @@ -17,7 +17,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 17 | GNU General Public License for more details. | 17 | GNU General Public License for more details. |
| 18 | 18 | ||
| 19 | You should have received a copy of the GNU General Public License | 19 | You should have received a copy of the GNU General Public License |
| 20 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 20 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 21 | 21 | ||
| 22 | #ifdef CYGWIN | 22 | #ifdef CYGWIN |
| 23 | #error "w32.h is not compatible with Cygwin" | 23 | #error "w32.h is not compatible with Cygwin" |
diff --git a/src/w32common.h b/src/w32common.h index 30718e0074b..6de4ab4bfd8 100644 --- a/src/w32common.h +++ b/src/w32common.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
| 18 | 18 | ||
| 19 | */ | 19 | */ |
| 20 | 20 | ||
diff --git a/src/w32console.c b/src/w32console.c index a4c089fa964..15d11d56ad7 100644 --- a/src/w32console.c +++ b/src/w32console.c | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | /* | 19 | /* |
| 20 | Tim Fleehart (apollo@online.com) 1-17-92 | 20 | Tim Fleehart (apollo@online.com) 1-17-92 |
diff --git a/src/w32fns.c b/src/w32fns.c index a77464465ec..efbd81b22d9 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* Added by Kevin Gallo */ | 20 | /* Added by Kevin Gallo */ |
| 21 | 21 | ||
diff --git a/src/w32font.c b/src/w32font.c index 98811192029..d6bd7d6a2b3 100644 --- a/src/w32font.c +++ b/src/w32font.c | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | #include <config.h> | 19 | #include <config.h> |
| 20 | #include <windows.h> | 20 | #include <windows.h> |
diff --git a/src/w32font.h b/src/w32font.h index 42b425f35fd..2d84950f0dc 100644 --- a/src/w32font.h +++ b/src/w32font.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | #ifndef EMACS_W32FONT_H | 19 | #ifndef EMACS_W32FONT_H |
| 20 | #define EMACS_W32FONT_H | 20 | #define EMACS_W32FONT_H |
diff --git a/src/w32gui.h b/src/w32gui.h index 4f142b09cc3..00d5d1f57c7 100644 --- a/src/w32gui.h +++ b/src/w32gui.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | #ifndef EMACS_W32GUI_H | 19 | #ifndef EMACS_W32GUI_H |
| 20 | #define EMACS_W32GUI_H | 20 | #define EMACS_W32GUI_H |
diff --git a/src/w32heap.c b/src/w32heap.c index 510f6762bbe..85ed050d997 100644 --- a/src/w32heap.c +++ b/src/w32heap.c | |||
| @@ -14,7 +14,7 @@ | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | /* | 19 | /* |
| 20 | Geoff Voelker (voelker@cs.washington.edu) 7-29-94 | 20 | Geoff Voelker (voelker@cs.washington.edu) 7-29-94 |
diff --git a/src/w32heap.h b/src/w32heap.h index 0b3e9dd888d..1cabbd84dff 100644 --- a/src/w32heap.h +++ b/src/w32heap.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. |
| 18 | 18 | ||
| 19 | Geoff Voelker (voelker@cs.washington.edu) 7-29-94 | 19 | Geoff Voelker (voelker@cs.washington.edu) 7-29-94 |
| 20 | */ | 20 | */ |
diff --git a/src/w32inevt.c b/src/w32inevt.c index ed1f1d2e9ae..0b0f3f9e669 100644 --- a/src/w32inevt.c +++ b/src/w32inevt.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* | 20 | /* |
| 21 | Drew Bliss 01-Oct-93 | 21 | Drew Bliss 01-Oct-93 |
diff --git a/src/w32inevt.h b/src/w32inevt.h index 87442cd5f3e..b761d952eb4 100644 --- a/src/w32inevt.h +++ b/src/w32inevt.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | #ifndef EMACS_W32INEVT_H | 19 | #ifndef EMACS_W32INEVT_H |
| 20 | #define EMACS_W32INEVT_H | 20 | #define EMACS_W32INEVT_H |
diff --git a/src/w32menu.c b/src/w32menu.c index de5c4b46b54..d3946285212 100644 --- a/src/w32menu.c +++ b/src/w32menu.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | #include <config.h> | 20 | #include <config.h> |
| 21 | 21 | ||
diff --git a/src/w32notify.c b/src/w32notify.c index 7987d9f6562..4e0e5804a55 100644 --- a/src/w32notify.c +++ b/src/w32notify.c | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | /* Written by Eli Zaretskii <eliz@gnu.org>. | 19 | /* Written by Eli Zaretskii <eliz@gnu.org>. |
| 20 | 20 | ||
diff --git a/src/w32proc.c b/src/w32proc.c index 4459ebe324b..ca59f995e63 100644 --- a/src/w32proc.c +++ b/src/w32proc.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* | 20 | /* |
| 21 | Drew Bliss Oct 14, 1993 | 21 | Drew Bliss Oct 14, 1993 |
diff --git a/src/w32reg.c b/src/w32reg.c index de19ae14858..040857e87b3 100644 --- a/src/w32reg.c +++ b/src/w32reg.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* Written by Kevin Gallo */ | 20 | /* Written by Kevin Gallo */ |
| 21 | 21 | ||
diff --git a/src/w32select.c b/src/w32select.c index 03bcc1c21da..003bef2ddad 100644 --- a/src/w32select.c +++ b/src/w32select.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | /* Written by Kevin Gallo, Benjamin Riefenstahl */ | 20 | /* Written by Kevin Gallo, Benjamin Riefenstahl */ |
| 21 | 21 | ||
diff --git a/src/w32select.h b/src/w32select.h index 5cf2d6f6381..da2057a0e8d 100644 --- a/src/w32select.h +++ b/src/w32select.h | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | #ifndef W32SELECT_H | 20 | #ifndef W32SELECT_H |
| 21 | #define W32SELECT_H | 21 | #define W32SELECT_H |
diff --git a/src/w32term.c b/src/w32term.c index a7a510b9ecb..c15cbbfa847 100644 --- a/src/w32term.c +++ b/src/w32term.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | #include <config.h> | 20 | #include <config.h> |
| 21 | #include <signal.h> | 21 | #include <signal.h> |
| @@ -163,10 +163,6 @@ int last_scroll_bar_drag_pos; | |||
| 163 | /* Keyboard code page - may be changed by language-change events. */ | 163 | /* Keyboard code page - may be changed by language-change events. */ |
| 164 | int w32_keyboard_codepage; | 164 | int w32_keyboard_codepage; |
| 165 | 165 | ||
| 166 | /* Incremented by w32_read_socket whenever it really tries to read | ||
| 167 | events. */ | ||
| 168 | static int volatile input_signal_count; | ||
| 169 | |||
| 170 | #ifdef CYGWIN | 166 | #ifdef CYGWIN |
| 171 | int w32_message_fd = -1; | 167 | int w32_message_fd = -1; |
| 172 | #endif /* CYGWIN */ | 168 | #endif /* CYGWIN */ |
| @@ -4658,9 +4654,6 @@ w32_read_socket (struct terminal *terminal, | |||
| 4658 | 4654 | ||
| 4659 | block_input (); | 4655 | block_input (); |
| 4660 | 4656 | ||
| 4661 | /* So people can tell when we have read the available input. */ | ||
| 4662 | input_signal_count++; | ||
| 4663 | |||
| 4664 | /* Process any incoming thread messages. */ | 4657 | /* Process any incoming thread messages. */ |
| 4665 | drain_message_queue (); | 4658 | drain_message_queue (); |
| 4666 | 4659 | ||
| @@ -6252,7 +6245,8 @@ w32fullscreen_hook (struct frame *f) | |||
| 6252 | 6245 | ||
| 6253 | if (FRAME_PREV_FSMODE (f) == FULLSCREEN_BOTH) | 6246 | if (FRAME_PREV_FSMODE (f) == FULLSCREEN_BOTH) |
| 6254 | { | 6247 | { |
| 6255 | SetWindowLong (hwnd, GWL_STYLE, dwStyle | WS_OVERLAPPEDWINDOW); | 6248 | if (!FRAME_UNDECORATED (f)) |
| 6249 | SetWindowLong (hwnd, GWL_STYLE, dwStyle | WS_OVERLAPPEDWINDOW); | ||
| 6256 | SetWindowPlacement (hwnd, &FRAME_NORMAL_PLACEMENT (f)); | 6250 | SetWindowPlacement (hwnd, &FRAME_NORMAL_PLACEMENT (f)); |
| 6257 | } | 6251 | } |
| 6258 | else if (FRAME_PREV_FSMODE (f) == FULLSCREEN_HEIGHT | 6252 | else if (FRAME_PREV_FSMODE (f) == FULLSCREEN_HEIGHT |
| @@ -6278,7 +6272,8 @@ w32fullscreen_hook (struct frame *f) | |||
| 6278 | 6272 | ||
| 6279 | w32_fullscreen_rect (hwnd, f->want_fullscreen, | 6273 | w32_fullscreen_rect (hwnd, f->want_fullscreen, |
| 6280 | FRAME_NORMAL_PLACEMENT (f).rcNormalPosition, &rect); | 6274 | FRAME_NORMAL_PLACEMENT (f).rcNormalPosition, &rect); |
| 6281 | SetWindowLong (hwnd, GWL_STYLE, dwStyle & ~WS_OVERLAPPEDWINDOW); | 6275 | if (!FRAME_UNDECORATED (f)) |
| 6276 | SetWindowLong (hwnd, GWL_STYLE, dwStyle & ~WS_OVERLAPPEDWINDOW); | ||
| 6282 | SetWindowPos (hwnd, HWND_TOP, rect.left, rect.top, | 6277 | SetWindowPos (hwnd, HWND_TOP, rect.left, rect.top, |
| 6283 | rect.right - rect.left, rect.bottom - rect.top, | 6278 | rect.right - rect.left, rect.bottom - rect.top, |
| 6284 | SWP_NOOWNERZORDER | SWP_FRAMECHANGED); | 6279 | SWP_NOOWNERZORDER | SWP_FRAMECHANGED); |
| @@ -6612,7 +6607,8 @@ w32_frame_raise_lower (struct frame *f, bool raise_flag) | |||
| 6612 | 6607 | ||
| 6613 | /* Change of visibility. */ | 6608 | /* Change of visibility. */ |
| 6614 | 6609 | ||
| 6615 | /* This tries to wait until the frame is really visible. | 6610 | /* This tries to wait until the frame is really visible, depending on |
| 6611 | the value of Vx_visible_frame_timeout. | ||
| 6616 | However, if the window manager asks the user where to position | 6612 | However, if the window manager asks the user where to position |
| 6617 | the frame, this will return before the user finishes doing that. | 6613 | the frame, this will return before the user finishes doing that. |
| 6618 | The frame will not actually be visible at that time, | 6614 | The frame will not actually be visible at that time, |
| @@ -6671,12 +6667,16 @@ x_make_frame_visible (struct frame *f) | |||
| 6671 | : SW_SHOWNORMAL); | 6667 | : SW_SHOWNORMAL); |
| 6672 | } | 6668 | } |
| 6673 | 6669 | ||
| 6670 | if (!FLOATP (Vx_wait_for_event_timeout)) | ||
| 6671 | return; | ||
| 6672 | |||
| 6674 | /* Synchronize to ensure Emacs knows the frame is visible | 6673 | /* Synchronize to ensure Emacs knows the frame is visible |
| 6675 | before we do anything else. We do this loop with input not blocked | 6674 | before we do anything else. We do this loop with input not blocked |
| 6676 | so that incoming events are handled. */ | 6675 | so that incoming events are handled. */ |
| 6677 | { | 6676 | { |
| 6678 | Lisp_Object frame; | 6677 | Lisp_Object frame; |
| 6679 | int count; | 6678 | double timeout = XFLOAT_DATA (Vx_wait_for_event_timeout); |
| 6679 | double start_time = XFLOAT_DATA (Ffloat_time (Qnil)); | ||
| 6680 | 6680 | ||
| 6681 | /* This must come after we set COUNT. */ | 6681 | /* This must come after we set COUNT. */ |
| 6682 | unblock_input (); | 6682 | unblock_input (); |
| @@ -6686,8 +6686,8 @@ x_make_frame_visible (struct frame *f) | |||
| 6686 | /* Wait until the frame is visible. Process X events until a | 6686 | /* Wait until the frame is visible. Process X events until a |
| 6687 | MapNotify event has been seen, or until we think we won't get a | 6687 | MapNotify event has been seen, or until we think we won't get a |
| 6688 | MapNotify at all.. */ | 6688 | MapNotify at all.. */ |
| 6689 | for (count = input_signal_count + 10; | 6689 | while (timeout > (XFLOAT_DATA (Ffloat_time (Qnil)) - start_time) && |
| 6690 | input_signal_count < count && !FRAME_VISIBLE_P (f);) | 6690 | !FRAME_VISIBLE_P (f)) |
| 6691 | { | 6691 | { |
| 6692 | /* Force processing of queued events. */ | 6692 | /* Force processing of queued events. */ |
| 6693 | /* TODO: x_sync equivalent? */ | 6693 | /* TODO: x_sync equivalent? */ |
| @@ -7319,6 +7319,17 @@ syms_of_w32term (void) | |||
| 7319 | DEFSYM (Qrenamed_from, "renamed-from"); | 7319 | DEFSYM (Qrenamed_from, "renamed-from"); |
| 7320 | DEFSYM (Qrenamed_to, "renamed-to"); | 7320 | DEFSYM (Qrenamed_to, "renamed-to"); |
| 7321 | 7321 | ||
| 7322 | DEFVAR_LISP ("x-wait-for-event-timeout", Vx_wait_for_event_timeout, | ||
| 7323 | doc: /* How long to wait for X events. | ||
| 7324 | |||
| 7325 | Emacs will wait up to this many seconds to receive X events after | ||
| 7326 | making changes which affect the state of the graphical interface. | ||
| 7327 | Under some window managers this can take an indefinite amount of time, | ||
| 7328 | so it is important to limit the wait. | ||
| 7329 | |||
| 7330 | If set to a non-float value, there will be no wait at all. */); | ||
| 7331 | Vx_wait_for_event_timeout = make_float (0.1); | ||
| 7332 | |||
| 7322 | DEFVAR_INT ("w32-num-mouse-buttons", | 7333 | DEFVAR_INT ("w32-num-mouse-buttons", |
| 7323 | w32_num_mouse_buttons, | 7334 | w32_num_mouse_buttons, |
| 7324 | doc: /* Number of physical mouse buttons. */); | 7335 | doc: /* Number of physical mouse buttons. */); |
diff --git a/src/w32term.h b/src/w32term.h index 9956682c5cd..16b44b0ca2f 100644 --- a/src/w32term.h +++ b/src/w32term.h | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | /* Added by Kevin Gallo */ | 19 | /* Added by Kevin Gallo */ |
| 20 | 20 | ||
diff --git a/src/w32uniscribe.c b/src/w32uniscribe.c index e4055638cc4..ca030ad5ae6 100644 --- a/src/w32uniscribe.c +++ b/src/w32uniscribe.c | |||
| @@ -14,7 +14,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 14 | GNU General Public License for more details. | 14 | GNU General Public License for more details. |
| 15 | 15 | ||
| 16 | You should have received a copy of the GNU General Public License | 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 17 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 18 | 18 | ||
| 19 | 19 | ||
| 20 | #include <config.h> | 20 | #include <config.h> |
diff --git a/src/w32xfns.c b/src/w32xfns.c index 587a24125bb..39a69d14db9 100644 --- a/src/w32xfns.c +++ b/src/w32xfns.c | |||
| @@ -15,7 +15,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
| 15 | GNU General Public License for more details. | 15 | GNU General Public License for more details. |
| 16 | 16 | ||
| 17 | You should have received a copy of the GNU General Public License | 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | 18 | along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | #include <config.h> | 20 | #include <config.h> |
| 21 | #include <signal.h> | 21 | #include <signal.h> |
diff --git a/src/xterm.c b/src/xterm.c index 0b321909c85..90275763cbe 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -11029,17 +11029,22 @@ x_sync_with_move (struct frame *f, int left, int top, bool fuzzy) | |||
| 11029 | void | 11029 | void |
| 11030 | x_wait_for_event (struct frame *f, int eventtype) | 11030 | x_wait_for_event (struct frame *f, int eventtype) |
| 11031 | { | 11031 | { |
| 11032 | int level = interrupt_input_blocked; | 11032 | if (!FLOATP (Vx_wait_for_event_timeout)) |
| 11033 | return; | ||
| 11033 | 11034 | ||
| 11035 | int level = interrupt_input_blocked; | ||
| 11034 | fd_set fds; | 11036 | fd_set fds; |
| 11035 | struct timespec tmo, tmo_at, time_now; | 11037 | struct timespec tmo, tmo_at, time_now; |
| 11036 | int fd = ConnectionNumber (FRAME_X_DISPLAY (f)); | 11038 | int fd = ConnectionNumber (FRAME_X_DISPLAY (f)); |
| 11037 | 11039 | ||
| 11038 | f->wait_event_type = eventtype; | 11040 | f->wait_event_type = eventtype; |
| 11039 | 11041 | ||
| 11040 | /* Set timeout to 0.1 second. Hopefully not noticeable. | 11042 | /* Default timeout is 0.1 second. Hopefully not noticeable. */ |
| 11041 | Maybe it should be configurable. */ | 11043 | double timeout = XFLOAT_DATA (Vx_wait_for_event_timeout); |
| 11042 | tmo = make_timespec (0, 100 * 1000 * 1000); | 11044 | time_t timeout_seconds = (time_t) timeout; |
| 11045 | tmo = make_timespec | ||
| 11046 | (timeout_seconds, (long int) ((timeout - timeout_seconds) | ||
| 11047 | * 1000 * 1000 * 1000)); | ||
| 11043 | tmo_at = timespec_add (current_timespec (), tmo); | 11048 | tmo_at = timespec_add (current_timespec (), tmo); |
| 11044 | 11049 | ||
| 11045 | while (f->wait_event_type) | 11050 | while (f->wait_event_type) |
| @@ -11365,8 +11370,13 @@ xembed_send_message (struct frame *f, Time t, enum xembed_message msg, | |||
| 11365 | 11370 | ||
| 11366 | /* Change of visibility. */ | 11371 | /* Change of visibility. */ |
| 11367 | 11372 | ||
| 11368 | /* This function sends the request to make the frame visible, but may | 11373 | /* This tries to wait until the frame is really visible, depending on |
| 11369 | return before it the frame's visibility is changed. */ | 11374 | the value of Vx_wait_for_event_timeout. |
| 11375 | However, if the window manager asks the user where to position | ||
| 11376 | the frame, this will return before the user finishes doing that. | ||
| 11377 | The frame will not actually be visible at that time, | ||
| 11378 | but it will become visible later when the window manager | ||
| 11379 | finishes with it. */ | ||
| 11370 | 11380 | ||
| 11371 | void | 11381 | void |
| 11372 | x_make_frame_visible (struct frame *f) | 11382 | x_make_frame_visible (struct frame *f) |
| @@ -11437,11 +11447,14 @@ x_make_frame_visible (struct frame *f) | |||
| 11437 | before we do anything else. We do this loop with input not blocked | 11447 | before we do anything else. We do this loop with input not blocked |
| 11438 | so that incoming events are handled. */ | 11448 | so that incoming events are handled. */ |
| 11439 | { | 11449 | { |
| 11450 | Lisp_Object frame; | ||
| 11440 | /* This must be before UNBLOCK_INPUT | 11451 | /* This must be before UNBLOCK_INPUT |
| 11441 | since events that arrive in response to the actions above | 11452 | since events that arrive in response to the actions above |
| 11442 | will set it when they are handled. */ | 11453 | will set it when they are handled. */ |
| 11443 | bool previously_visible = f->output_data.x->has_been_visible; | 11454 | bool previously_visible = f->output_data.x->has_been_visible; |
| 11444 | 11455 | ||
| 11456 | XSETFRAME (frame, f); | ||
| 11457 | |||
| 11445 | int original_left = f->left_pos; | 11458 | int original_left = f->left_pos; |
| 11446 | int original_top = f->top_pos; | 11459 | int original_top = f->top_pos; |
| 11447 | 11460 | ||
| @@ -11488,6 +11501,10 @@ x_make_frame_visible (struct frame *f) | |||
| 11488 | 11501 | ||
| 11489 | unblock_input (); | 11502 | unblock_input (); |
| 11490 | } | 11503 | } |
| 11504 | |||
| 11505 | /* Try to wait for a MapNotify event (that is what tells us when a | ||
| 11506 | frame becomes visible). */ | ||
| 11507 | x_wait_for_event (f, MapNotify); | ||
| 11491 | } | 11508 | } |
| 11492 | } | 11509 | } |
| 11493 | 11510 | ||
| @@ -13283,6 +13300,17 @@ This should be one of the symbols `ctrl', `alt', `hyper', `meta', | |||
| 13283 | keysyms. The default is nil, which is the same as `super'. */); | 13300 | keysyms. The default is nil, which is the same as `super'. */); |
| 13284 | Vx_super_keysym = Qnil; | 13301 | Vx_super_keysym = Qnil; |
| 13285 | 13302 | ||
| 13303 | DEFVAR_LISP ("x-wait-for-event-timeout", Vx_wait_for_event_timeout, | ||
| 13304 | doc: /* How long to wait for X events. | ||
| 13305 | |||
| 13306 | Emacs will wait up to this many seconds to receive X events after | ||
| 13307 | making changes which affect the state of the graphical interface. | ||
| 13308 | Under some window managers this can take an indefinite amount of time, | ||
| 13309 | so it is important to limit the wait. | ||
| 13310 | |||
| 13311 | If set to a non-float value, there will be no wait at all. */); | ||
| 13312 | Vx_wait_for_event_timeout = make_float (0.1); | ||
| 13313 | |||
| 13286 | DEFVAR_LISP ("x-keysym-table", Vx_keysym_table, | 13314 | DEFVAR_LISP ("x-keysym-table", Vx_keysym_table, |
| 13287 | doc: /* Hash table of character codes indexed by X keysym codes. */); | 13315 | doc: /* Hash table of character codes indexed by X keysym codes. */); |
| 13288 | Vx_keysym_table = make_hash_table (hashtest_eql, 900, | 13316 | Vx_keysym_table = make_hash_table (hashtest_eql, 900, |