diff options
| author | Miles Bader | 2008-09-02 05:35:54 +0000 |
|---|---|---|
| committer | Miles Bader | 2008-09-02 05:35:54 +0000 |
| commit | 9850eff524bd0747a9561f3b4c90dfc3749f4ecb (patch) | |
| tree | c05e918b9763310aea577eefc476aaccf20eb86a | |
| parent | 9a73a6c9dbd5a98e8e27cccbf1361f89070b94e7 (diff) | |
| parent | 7f02dd2cf6cb7395cb06104fd052f08cc91e9e10 (diff) | |
| download | emacs-9850eff524bd0747a9561f3b4c90dfc3749f4ecb.tar.gz emacs-9850eff524bd0747a9561f3b4c90dfc3749f4ecb.zip | |
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1398
| -rw-r--r-- | admin/nt/README-ftp-server | 93 | ||||
| -rw-r--r-- | lisp/ChangeLog | 19 | ||||
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 5 | ||||
| -rw-r--r-- | lisp/image-mode.el | 2 | ||||
| -rw-r--r-- | lisp/tool-bar.el | 2 | ||||
| -rw-r--r-- | src/ChangeLog | 10 | ||||
| -rw-r--r-- | src/fileio.c | 7 | ||||
| -rw-r--r-- | src/w32menu.c | 5 | ||||
| -rw-r--r-- | src/xterm.c | 1 |
9 files changed, 83 insertions, 61 deletions
diff --git a/admin/nt/README-ftp-server b/admin/nt/README-ftp-server index d16d07a6af9..a1a7445e0c9 100644 --- a/admin/nt/README-ftp-server +++ b/admin/nt/README-ftp-server | |||
| @@ -5,16 +5,17 @@ See the end of the file for license conditions. | |||
| 5 | Precompiled Distributions of | 5 | Precompiled Distributions of |
| 6 | Emacs for Windows | 6 | Emacs for Windows |
| 7 | 7 | ||
| 8 | Version 22.2 | 8 | PRETEST Version 22.2.91 |
| 9 | 9 | ||
| 10 | March 26, 2008 | 10 | August 27, 2008 |
| 11 | 11 | ||
| 12 | This directory contains source and precompiled distributions for GNU | 12 | This directory contains precompiled distributions for GNU Emacs |
| 13 | Emacs on Windows NT/2000/XP and Windows 95/98/Me. This port is a | 13 | on Windows NT/2000/XP/Vista and Windows 95/98/Me. This port is a |
| 14 | part of the standard GNU Emacs distribution from the Free Software | 14 | part of the standard GNU Emacs distribution from the Free Software |
| 15 | Foundation; the precompiled distributions are provided here for | 15 | Foundation; the precompiled distributions are provided here for |
| 16 | convenience since the majority of Windows users are not accustomed | 16 | convenience since the majority of Windows users are not accustomed |
| 17 | to compiling programs themselves. | 17 | to compiling programs themselves. Corresponding source can be found |
| 18 | in the parent directory in emacs-22.2.91.tar.gz. | ||
| 18 | 19 | ||
| 19 | If you have access to the World Wide Web, I would recommend pointing | 20 | If you have access to the World Wide Web, I would recommend pointing |
| 20 | your favorite web browser to the following document (if you haven't | 21 | your favorite web browser to the following document (if you haven't |
| @@ -22,17 +23,13 @@ See the end of the file for license conditions. | |||
| 22 | 23 | ||
| 23 | http://www.gnu.org/software/emacs/windows/ntemacs.html | 24 | http://www.gnu.org/software/emacs/windows/ntemacs.html |
| 24 | 25 | ||
| 25 | The above web document is a far more complete version of this README | ||
| 26 | file. If you don't have access to the Web, however, then read on. | ||
| 27 | |||
| 28 | |||
| 29 | * IMPORTANT LEGAL REMINDER | 26 | * IMPORTANT LEGAL REMINDER |
| 30 | 27 | ||
| 31 | If you want to redistribute any of the precompiled distributions of | 28 | If you want to redistribute any of the precompiled distributions of |
| 32 | Emacs, be careful to check the implications of the GPL. For instance, | 29 | Emacs, be careful to check the implications of the GPL. For instance, |
| 33 | if you put the emacs-22.2-bin-i386.tar.gz file from this directory on | 30 | if you put the emacs-22.2.91-bin-i386.tar.gz file from this directory on |
| 34 | an Internet site, you must arrange to distribute the source files of | 31 | an Internet site, you must arrange to distribute the source files of |
| 35 | the SAME version (i.e. ../emacs-22.2.tar.gz). | 32 | the SAME version (i.e. ../emacs-22.2.91.tar.gz). |
| 36 | 33 | ||
| 37 | Making a link to our copy of the source is NOT sufficient, since we | 34 | Making a link to our copy of the source is NOT sufficient, since we |
| 38 | might upgrade to a new version while you are still distributing the | 35 | might upgrade to a new version while you are still distributing the |
| @@ -41,8 +38,8 @@ See the end of the file for license conditions. | |||
| 41 | 38 | ||
| 42 | * Files in this directory | 39 | * Files in this directory |
| 43 | 40 | ||
| 44 | + emacs-22.2-bin-i386.zip | 41 | + emacs-22.2.91-bin-i386.zip |
| 45 | Windows binaries of Emacs-22.2, with all lisp code and documentation | 42 | Windows binaries of Emacs-22.2.91, with all lisp code and documentation |
| 46 | included. | 43 | included. |
| 47 | 44 | ||
| 48 | Download this file if you want a single installation package, and | 45 | Download this file if you want a single installation package, and |
| @@ -53,8 +50,8 @@ See the end of the file for license conditions. | |||
| 53 | If you need the C source code at a later date, it will be safe to | 50 | If you need the C source code at a later date, it will be safe to |
| 54 | unpack the source distribution on top of this installation. | 51 | unpack the source distribution on top of this installation. |
| 55 | 52 | ||
| 56 | + emacs-22.2-barebin-i386.zip | 53 | + emacs-22.2.91-barebin-i386.zip |
| 57 | Windows binaries of Emacs-22.2, without lisp code or documentation. | 54 | Windows binaries of Emacs-22.2.91, without lisp code or documentation. |
| 58 | 55 | ||
| 59 | Download this file if you already have the source distribution, or | 56 | Download this file if you already have the source distribution, or |
| 60 | if you need to redump the emacs.exe executable. | 57 | if you need to redump the emacs.exe executable. |
| @@ -69,28 +66,12 @@ See the end of the file for license conditions. | |||
| 69 | a basic Makefile for compiling with mingw32 and a .def file for | 66 | a basic Makefile for compiling with mingw32 and a .def file for |
| 70 | generating a DLL with the appropriate exports in addition to the | 67 | generating a DLL with the appropriate exports in addition to the |
| 71 | source code to provide the subset of functionality Emacs uses from | 68 | source code to provide the subset of functionality Emacs uses from |
| 72 | libXpm. This corresponds to the libXpm.dll in emacs-22.2-bin-i386.zip | 69 | libXpm. This corresponds to the libXpm.dll in emacs-22.2.91-bin-i386.zip |
| 73 | and emacs-22.2-barebin-i386.zip. | 70 | and emacs-22.2.91-barebin-i386.zip. |
| 74 | |||
| 75 | |||
| 76 | The following are provided for users who require older versions. | ||
| 77 | |||
| 78 | + emacs-22.1-bin-i386.zip | ||
| 79 | + emacs-22-1-barebin-i386.zip | ||
| 80 | Windows binaries of Emacs 22.1, contents as above. | ||
| 81 | |||
| 82 | + emacs-21.3-bin-i386.tar.gz | ||
| 83 | Windows binaries of Emacs 21.3, with compiled lisp code and some | ||
| 84 | documentation included. | ||
| 85 | |||
| 86 | + emacs-21.3-leim.tar.gz | ||
| 87 | Compiled lisp input methods. This optional addition to Emacs-21.3 | ||
| 88 | is required if you want to enter languages that are not directly | ||
| 89 | supported by your keyboard. | ||
| 90 | 71 | ||
| 91 | * Image support | 72 | * Image support |
| 92 | 73 | ||
| 93 | Emacs 22.2 contains support for images, however for most image formats | 74 | Emacs 22.2.91 contains support for images, however for most image formats |
| 94 | supporting libraries are required. This distribution has been tested | 75 | supporting libraries are required. This distribution has been tested |
| 95 | with the libraries that are distributed with GTK for Windows, and the | 76 | with the libraries that are distributed with GTK for Windows, and the |
| 96 | libraries found at http://gnuwin32.sourceforge.net/. The following image | 77 | libraries found at http://gnuwin32.sourceforge.net/. The following image |
| @@ -120,23 +101,24 @@ See the end of the file for license conditions. | |||
| 120 | 101 | ||
| 121 | * Distributions in .tar.gz and .zip format | 102 | * Distributions in .tar.gz and .zip format |
| 122 | 103 | ||
| 123 | Emacs is distributed primarily as source code in a large gzipped tar file | 104 | Emacs is distributed primarily as source code in a large gzipped tar |
| 124 | (*.tar.gz). Because Emacs is quite large and therefore difficult to | 105 | file (*.tar.gz). Because Emacs is quite large and therefore |
| 125 | download over unreliable connections, the Windows binaries are provided | 106 | difficult to download over unreliable connections, the Windows |
| 126 | in several combinations, ranging from the complete source plus executables, | 107 | binaries are provided in two combinations. The complete lisp source |
| 127 | to just the minimal amount needed to run without any source, plus a | 108 | plus executables (bin), and executables only (barebin) for unpacking |
| 128 | couple of optional packages. Formerly, we used the same .tar.gz format | 109 | over the top of the source distribution. Formerly, we used the same |
| 129 | but since there are no longer legal problems with .zip files, and the | 110 | .tar.gz format but since there are no longer legal problems with |
| 130 | latest versions of Windows support these natively, the Windows binaries | 111 | .zip files, and the latest versions of Windows support these |
| 131 | of Emacs are now distributed as .zip files. | 112 | natively, the Windows binaries of Emacs are now distributed as .zip |
| 113 | files. | ||
| 132 | 114 | ||
| 133 | * Distributions for non-x86 platforms | 115 | * Distributions for non-x86 platforms |
| 134 | 116 | ||
| 135 | Distributions for non-x86 platforms are no longer supplied. Older | 117 | Distributions for non-x86 platforms are no longer supplied. Older |
| 136 | platforms supported by Windows NT no longer seem to be in demand, | 118 | platforms supported by Windows NT no longer seem to be in demand, |
| 137 | and Emacs is yet to be ported to 64bit Windows platforms. If you are | 119 | and Emacs is yet to be ported to 64 bit Windows platforms. If you |
| 138 | willing to help port Emacs 23 to 64bit versions of Windows, your | 120 | are willing to help port Emacs 23 to 64 bit versions of Windows, |
| 139 | contribution will be welcome on the emacs-devel mailing list. | 121 | your contribution will be welcome on the emacs-devel mailing list. |
| 140 | 122 | ||
| 141 | * Unpacking distributions | 123 | * Unpacking distributions |
| 142 | 124 | ||
| @@ -148,7 +130,8 @@ See the end of the file for license conditions. | |||
| 148 | GnuWin32: http://gnuwin32.sourceforge.net/ | 130 | GnuWin32: http://gnuwin32.sourceforge.net/ |
| 149 | 131 | ||
| 150 | Many other popular file compression utilities for Windows are also | 132 | Many other popular file compression utilities for Windows are also |
| 151 | able to handle gzipped tar files. | 133 | able to handle gzipped tar files. 7zip is one free Windows graphical |
| 134 | program that is able to handle many archive formats. | ||
| 152 | 135 | ||
| 153 | Open a command prompt (MSDOS) window. Decide on a directory in which | 136 | Open a command prompt (MSDOS) window. Decide on a directory in which |
| 154 | to place Emacs. Move the distribution to that directory, and then | 137 | to place Emacs. Move the distribution to that directory, and then |
| @@ -206,6 +189,11 @@ See the end of the file for license conditions. | |||
| 206 | abbrevli.el, your distribution has been corrupted while unpacking | 189 | abbrevli.el, your distribution has been corrupted while unpacking |
| 207 | and Emacs will not start. | 190 | and Emacs will not start. |
| 208 | 191 | ||
| 192 | + Check that filenames were not changed by your web-browser. Some | ||
| 193 | proprietary web-browsers save .tar.gz files as .tar.tar. You might | ||
| 194 | like to consider switching to a Free modern browser if your browser | ||
| 195 | has this bug. | ||
| 196 | |||
| 209 | + I've also had reports that some older "gnuwin32" port of tar | 197 | + I've also had reports that some older "gnuwin32" port of tar |
| 210 | corrupts the executables. Use the latest version from the gnuwin32 | 198 | corrupts the executables. Use the latest version from the gnuwin32 |
| 211 | site or another port of tar instead. | 199 | site or another port of tar instead. |
| @@ -220,11 +208,10 @@ See the end of the file for license conditions. | |||
| 220 | If you would like to compile Emacs from source, download the source | 208 | If you would like to compile Emacs from source, download the source |
| 221 | distribution, unpack it in the same manner as a precompiled | 209 | distribution, unpack it in the same manner as a precompiled |
| 222 | distribution, and look in the file nt/INSTALL for detailed | 210 | distribution, and look in the file nt/INSTALL for detailed |
| 223 | directions. You can either use the Microsoft compiler included with | 211 | directions. It is recommended to use GCC 2.95 or later with MinGW |
| 224 | Visual C++ 2003 or earlier, or GCC 2.95 or later with MinGW support, | 212 | support to compile the source. The port of GCC included in Cygwin |
| 225 | to compile the source. The port of GCC included in Cygwin is | 213 | is supported, but check the nt/INSTALL file if you have trouble |
| 226 | supported, but check the nt/INSTALL file if you have trouble since | 214 | since some builds of GNU make aren't supported. |
| 227 | some builds of GNU make aren't supported. | ||
| 228 | 215 | ||
| 229 | 216 | ||
| 230 | * Further information | 217 | * Further information |
| @@ -239,7 +226,7 @@ See the end of the file for license conditions. | |||
| 239 | about the Windows port and related software packages. Note that as | 226 | about the Windows port and related software packages. Note that as |
| 240 | of writing, most of the information in that FAQ was for Emacs-21.3 | 227 | of writing, most of the information in that FAQ was for Emacs-21.3 |
| 241 | and earlier versions, so some information may not be relevant to | 228 | and earlier versions, so some information may not be relevant to |
| 242 | Emacs-22.2. | 229 | Emacs-22.2.91. |
| 243 | 230 | ||
| 244 | In addition to the FAQ, there is a mailing list for discussing issues | 231 | In addition to the FAQ, there is a mailing list for discussing issues |
| 245 | related to the Windows port of Emacs. For information about the | 232 | related to the Windows port of Emacs. For information about the |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2bf5de6f14b..86f7aa4f57b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,22 @@ | |||
| 1 | 2008-09-02 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * image-mode.el (image-mode): Fix 2008-07-19 change. | ||
| 4 | |||
| 5 | 2008-09-02 Juanma Barranquero <lekktu@gmail.com> | ||
| 6 | |||
| 7 | * tool-bar.el (tool-bar-add-item): Fix typo in docstring. | ||
| 8 | |||
| 9 | * emulation/tpu-edt.el (tpu-match-beginning, tpu-match-end) | ||
| 10 | (tpu-check-match, tpu-goto-breadcrumb, tpu-reset-screen-size) | ||
| 11 | (tpu-toggle-overwrite-mode, tpu-include, tpu-get, tpu-what-line) | ||
| 12 | (tpu-insert-escape, tpu-insert-formfeed, tpu-end-define-macro-key) | ||
| 13 | (tpu-check-search-case, tpu-select, tpu-unselect, tpu-trim-line-ends) | ||
| 14 | (tpu-toggle-control-keys): Fix typos in docstrings. | ||
| 15 | (tpu-kill-buffer): Doc fix. | ||
| 16 | (tpu-make-file-buffer-list, tpu-toggle-regexp, tpu-cut) | ||
| 17 | (tpu-append-region, tpu-delete-current-char, tpu-emacs-replace): | ||
| 18 | Reflow docstrings. | ||
| 19 | |||
| 1 | 2008-09-02 Glenn Morris <rgm@gnu.org> | 20 | 2008-09-02 Glenn Morris <rgm@gnu.org> |
| 2 | 21 | ||
| 3 | * emacs-lisp/lucid.el (try-face-font): Remove dead alias. | 22 | * emacs-lisp/lucid.el (try-face-font): Remove dead alias. |
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 7aea44c11d9..8f1e9e36c3e 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el | |||
| @@ -1246,8 +1246,9 @@ and the total number of lines in the buffer." | |||
| 1246 | ;;; Buffers and Windows | 1246 | ;;; Buffers and Windows |
| 1247 | ;;; | 1247 | ;;; |
| 1248 | (defun tpu-kill-buffer nil | 1248 | (defun tpu-kill-buffer nil |
| 1249 | "Kill the current buffer. If tpu-kill-buffers-silently is non-nil, | 1249 | "Kill the current buffer. |
| 1250 | kills modified buffers without asking." | 1250 | If `tpu-kill-buffers-silently' is non-nil, |
| 1251 | kill modified buffers without asking." | ||
| 1251 | (interactive) | 1252 | (interactive) |
| 1252 | (if tpu-kill-buffers-silently (set-buffer-modified-p nil)) | 1253 | (if tpu-kill-buffers-silently (set-buffer-modified-p nil)) |
| 1253 | (kill-buffer (current-buffer))) | 1254 | (kill-buffer (current-buffer))) |
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 6687ed3fed4..ec3a66e0dc1 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el | |||
| @@ -332,7 +332,7 @@ to toggle between display as an image and display as text." | |||
| 332 | 332 | ||
| 333 | (add-hook 'change-major-mode-hook 'image-toggle-display-text nil t) | 333 | (add-hook 'change-major-mode-hook 'image-toggle-display-text nil t) |
| 334 | (if (display-images-p) | 334 | (if (display-images-p) |
| 335 | (if (not (image-get-display-property)) | 335 | (if (not (get-text-property (point-min) 'display)) |
| 336 | (image-toggle-display) | 336 | (image-toggle-display) |
| 337 | ;; Set next vars when image is already displayed but local | 337 | ;; Set next vars when image is already displayed but local |
| 338 | ;; variables were cleared by kill-all-local-variables | 338 | ;; variables were cleared by kill-all-local-variables |
diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 14cbc57f029..85d3ba5b705 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el | |||
| @@ -133,7 +133,7 @@ PROPS are additional items to add to the menu item specification. See | |||
| 133 | Info node `(elisp)Tool Bar'. Items are added from left to right. | 133 | Info node `(elisp)Tool Bar'. Items are added from left to right. |
| 134 | 134 | ||
| 135 | ICON is the base name of a file containing the image to use. The | 135 | ICON is the base name of a file containing the image to use. The |
| 136 | function will first try to use low-color/ICON.xpm if display-color-cells | 136 | function will first try to use low-color/ICON.xpm if `display-color-cells' |
| 137 | is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally | 137 | is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally |
| 138 | ICON.xbm, using `find-image'. | 138 | ICON.xbm, using `find-image'. |
| 139 | 139 | ||
diff --git a/src/ChangeLog b/src/ChangeLog index b6b6be212a5..e8e50319c12 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,13 @@ | |||
| 1 | 2008-09-02 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * fileio.c (Fexpand_file_name): Copy argument `name' into local | ||
| 4 | storage on all platforms, not just on DOS_NT. | ||
| 5 | |||
| 6 | 2008-09-02 Jason Rumney <jasonr@gnu.org> | ||
| 7 | |||
| 8 | * w32menu.c (Fx_popup_menu, Fx_popup_dialog, w32_menu_show): Ensure | ||
| 9 | mouse is not grabbed after menu is finished. | ||
| 10 | |||
| 1 | 2008-09-01 Chong Yidong <cyd@stupidchicken.com> | 11 | 2008-09-01 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 12 | ||
| 3 | * xfaces.c (Finternal_set_alternative_font_family_alist) | 13 | * xfaces.c (Finternal_set_alternative_font_family_alist) |
diff --git a/src/fileio.c b/src/fileio.c index 02c41243cb6..ad8f7d7a538 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -932,12 +932,11 @@ See also the function `substitute-in-file-name'. */) | |||
| 932 | nm = SDATA (name); | 932 | nm = SDATA (name); |
| 933 | nm_in_name = 1; | 933 | nm_in_name = 1; |
| 934 | 934 | ||
| 935 | #ifdef DOS_NT | 935 | /* Make a local copy of nm[] to protect it from GC in DECODE_FILE below. */ |
| 936 | /* We will force directory separators to be either all \ or /, so make | ||
| 937 | a local copy to modify, even if there ends up being no change. */ | ||
| 938 | nm = strcpy (alloca (strlen (nm) + 1), nm); | 936 | nm = strcpy (alloca (strlen (nm) + 1), nm); |
| 939 | nm_in_name = 0; | 937 | nm_in_name = 0; |
| 940 | 938 | ||
| 939 | #ifdef DOS_NT | ||
| 941 | /* Note if special escape prefix is present, but remove for now. */ | 940 | /* Note if special escape prefix is present, but remove for now. */ |
| 942 | if (nm[0] == '/' && nm[1] == ':') | 941 | if (nm[0] == '/' && nm[1] == ':') |
| 943 | { | 942 | { |
| @@ -1038,7 +1037,7 @@ See also the function `substitute-in-file-name'. */) | |||
| 1038 | } | 1037 | } |
| 1039 | return name; | 1038 | return name; |
| 1040 | #else /* not DOS_NT */ | 1039 | #else /* not DOS_NT */ |
| 1041 | if (nm == SDATA (name)) | 1040 | if (strcmp (nm, SDATA (name)) == 0) |
| 1042 | return name; | 1041 | return name; |
| 1043 | return make_specified_string (nm, -1, strlen (nm), multibyte); | 1042 | return make_specified_string (nm, -1, strlen (nm), multibyte); |
| 1044 | #endif /* not DOS_NT */ | 1043 | #endif /* not DOS_NT */ |
diff --git a/src/w32menu.c b/src/w32menu.c index fb54caf8806..067049808ad 100644 --- a/src/w32menu.c +++ b/src/w32menu.c | |||
| @@ -342,6 +342,7 @@ cached information about equivalent key sequences. */) | |||
| 342 | if (NILP (position)) | 342 | if (NILP (position)) |
| 343 | { | 343 | { |
| 344 | discard_menu_items (); | 344 | discard_menu_items (); |
| 345 | FRAME_X_DISPLAY_INFO (f)->grabbed = 0; | ||
| 345 | UNGCPRO; | 346 | UNGCPRO; |
| 346 | return Qnil; | 347 | return Qnil; |
| 347 | } | 348 | } |
| @@ -355,6 +356,7 @@ cached information about equivalent key sequences. */) | |||
| 355 | if (current_popup_menu) | 356 | if (current_popup_menu) |
| 356 | { | 357 | { |
| 357 | discard_menu_items (); | 358 | discard_menu_items (); |
| 359 | FRAME_X_DISPLAY_INFO (f)->grabbed = 0; | ||
| 358 | UNGCPRO; | 360 | UNGCPRO; |
| 359 | return Qnil; | 361 | return Qnil; |
| 360 | } | 362 | } |
| @@ -367,6 +369,7 @@ cached information about equivalent key sequences. */) | |||
| 367 | UNBLOCK_INPUT; | 369 | UNBLOCK_INPUT; |
| 368 | 370 | ||
| 369 | discard_menu_items (); | 371 | discard_menu_items (); |
| 372 | FRAME_X_DISPLAY_INFO (f)->grabbed = 0; | ||
| 370 | 373 | ||
| 371 | #endif /* HAVE_MENUS */ | 374 | #endif /* HAVE_MENUS */ |
| 372 | 375 | ||
| @@ -495,6 +498,7 @@ otherwise it is "Question". */) | |||
| 495 | UNBLOCK_INPUT; | 498 | UNBLOCK_INPUT; |
| 496 | 499 | ||
| 497 | discard_menu_items (); | 500 | discard_menu_items (); |
| 501 | FRAME_X_DISPLAY_INFO (f)->grabbed = 0; | ||
| 498 | 502 | ||
| 499 | if (error_name) error (error_name); | 503 | if (error_name) error (error_name); |
| 500 | return selection; | 504 | return selection; |
| @@ -1165,6 +1169,7 @@ w32_menu_show (f, x, y, for_click, keymaps, title, error) | |||
| 1165 | /* Clean up extraneous mouse events which might have been generated | 1169 | /* Clean up extraneous mouse events which might have been generated |
| 1166 | during the call. */ | 1170 | during the call. */ |
| 1167 | discard_mouse_events (); | 1171 | discard_mouse_events (); |
| 1172 | FRAME_X_DISPLAY_INFO (f)->grabbed = 0; | ||
| 1168 | 1173 | ||
| 1169 | /* Free the widget_value objects we used to specify the contents. */ | 1174 | /* Free the widget_value objects we used to specify the contents. */ |
| 1170 | free_menubar_widget_value_tree (first_wv); | 1175 | free_menubar_widget_value_tree (first_wv); |
diff --git a/src/xterm.c b/src/xterm.c index 88fb04d665e..603ec993af2 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -10516,6 +10516,7 @@ x_delete_display (dpyinfo) | |||
| 10516 | /* Xt and GTK do this themselves. */ | 10516 | /* Xt and GTK do this themselves. */ |
| 10517 | #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK) | 10517 | #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK) |
| 10518 | #ifndef AIX /* On AIX, XCloseDisplay calls this. */ | 10518 | #ifndef AIX /* On AIX, XCloseDisplay calls this. */ |
| 10519 | /* Xt and GTK does this themselves. */ | ||
| 10519 | XrmDestroyDatabase (dpyinfo->xrdb); | 10520 | XrmDestroyDatabase (dpyinfo->xrdb); |
| 10520 | #endif | 10521 | #endif |
| 10521 | #endif | 10522 | #endif |