diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/coding.c | 2 | ||||
| -rw-r--r-- | src/conf_post.h | 2 | ||||
| -rw-r--r-- | src/emacs-module.c | 6 | ||||
| -rw-r--r-- | src/emacs.c | 2 | ||||
| -rw-r--r-- | src/frame.c | 2 | ||||
| -rw-r--r-- | src/gfilenotify.c | 2 | ||||
| -rw-r--r-- | src/gtkutil.c | 4 | ||||
| -rw-r--r-- | src/image.c | 4 | ||||
| -rw-r--r-- | src/kqueue.c | 2 | ||||
| -rw-r--r-- | src/macfont.h | 2 | ||||
| -rw-r--r-- | src/macfont.m | 6 | ||||
| -rw-r--r-- | src/nsfns.m | 8 | ||||
| -rw-r--r-- | src/nsfont.m | 4 | ||||
| -rw-r--r-- | src/nsimage.m | 4 | ||||
| -rw-r--r-- | src/nsmenu.m | 14 | ||||
| -rw-r--r-- | src/nsselect.m | 4 | ||||
| -rw-r--r-- | src/nsterm.m | 56 | ||||
| -rw-r--r-- | src/sysdep.c | 2 | ||||
| -rw-r--r-- | src/unexmacosx.c | 12 | ||||
| -rw-r--r-- | src/w32fns.c | 2 | ||||
| -rw-r--r-- | src/xdisp.c | 2 | ||||
| -rw-r--r-- | src/xselect.c | 7 | ||||
| -rw-r--r-- | src/xsmfns.c | 2 | ||||
| -rw-r--r-- | src/xterm.c | 2 |
24 files changed, 76 insertions, 77 deletions
diff --git a/src/coding.c b/src/coding.c index b82d4f5cda9..feed9c8274c 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -122,7 +122,7 @@ END-OF-LINE FORMAT | |||
| 122 | How text end-of-line is encoded depends on operating system. For | 122 | How text end-of-line is encoded depends on operating system. For |
| 123 | instance, Unix's format is just one byte of LF (line-feed) code, | 123 | instance, Unix's format is just one byte of LF (line-feed) code, |
| 124 | whereas DOS's format is two-byte sequence of `carriage-return' and | 124 | whereas DOS's format is two-byte sequence of `carriage-return' and |
| 125 | `line-feed' codes. MacOS's format is usually one byte of | 125 | `line-feed' codes. Classic Mac OS's format is usually one byte of |
| 126 | `carriage-return'. | 126 | `carriage-return'. |
| 127 | 127 | ||
| 128 | Since text character encoding and end-of-line encoding are | 128 | Since text character encoding and end-of-line encoding are |
diff --git a/src/conf_post.h b/src/conf_post.h index 9c544e89e94..060b912fafb 100644 --- a/src/conf_post.h +++ b/src/conf_post.h | |||
| @@ -186,7 +186,7 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */ | |||
| 186 | #endif | 186 | #endif |
| 187 | #endif /* MSDOS */ | 187 | #endif /* MSDOS */ |
| 188 | 188 | ||
| 189 | /* Mac OS X / GNUstep need a bit more pure memory. Of the existing knobs, | 189 | /* macOS / GNUstep need a bit more pure memory. Of the existing knobs, |
| 190 | SYSTEM_PURESIZE_EXTRA seems like the least likely to cause problems. */ | 190 | SYSTEM_PURESIZE_EXTRA seems like the least likely to cause problems. */ |
| 191 | #ifdef HAVE_NS | 191 | #ifdef HAVE_NS |
| 192 | #if defined NS_IMPL_GNUSTEP | 192 | #if defined NS_IMPL_GNUSTEP |
diff --git a/src/emacs-module.c b/src/emacs-module.c index 5075263edff..68aeb0ce704 100644 --- a/src/emacs-module.c +++ b/src/emacs-module.c | |||
| @@ -147,8 +147,8 @@ static emacs_value const module_nil = 0; | |||
| 147 | or a pointer to handle non-local exits. The function must have an | 147 | or a pointer to handle non-local exits. The function must have an |
| 148 | ENV parameter. The function will return the specified value if a | 148 | ENV parameter. The function will return the specified value if a |
| 149 | signal or throw is caught. */ | 149 | signal or throw is caught. */ |
| 150 | // TODO: Have Fsignal check for CATCHER_ALL so we only have to install | 150 | /* TODO: Have Fsignal check for CATCHER_ALL so we only have to install |
| 151 | // one handler. | 151 | one handler. */ |
| 152 | #define MODULE_HANDLE_NONLOCAL_EXIT(retval) \ | 152 | #define MODULE_HANDLE_NONLOCAL_EXIT(retval) \ |
| 153 | MODULE_SETJMP (CONDITION_CASE, module_handle_signal, retval); \ | 153 | MODULE_SETJMP (CONDITION_CASE, module_handle_signal, retval); \ |
| 154 | MODULE_SETJMP (CATCHER_ALL, module_handle_throw, retval) | 154 | MODULE_SETJMP (CATCHER_ALL, module_handle_throw, retval) |
| @@ -168,7 +168,7 @@ static emacs_value const module_nil = 0; | |||
| 168 | code after the macro may longjmp back into the macro, which means | 168 | code after the macro may longjmp back into the macro, which means |
| 169 | its local variable C must stay live in later code. */ | 169 | its local variable C must stay live in later code. */ |
| 170 | 170 | ||
| 171 | // TODO: Make backtraces work if this macros is used. | 171 | /* TODO: Make backtraces work if this macros is used. */ |
| 172 | 172 | ||
| 173 | #define MODULE_SETJMP_1(handlertype, handlerfunc, retval, c, dummy) \ | 173 | #define MODULE_SETJMP_1(handlertype, handlerfunc, retval, c, dummy) \ |
| 174 | if (module_non_local_exit_check (env) != emacs_funcall_exit_return) \ | 174 | if (module_non_local_exit_check (env) != emacs_funcall_exit_return) \ |
diff --git a/src/emacs.c b/src/emacs.c index d86c34fd1fd..efd4fa329df 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -2504,7 +2504,7 @@ Special values: | |||
| 2504 | `gnu' compiled for a GNU Hurd system. | 2504 | `gnu' compiled for a GNU Hurd system. |
| 2505 | `gnu/linux' compiled for a GNU/Linux system. | 2505 | `gnu/linux' compiled for a GNU/Linux system. |
| 2506 | `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel. | 2506 | `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel. |
| 2507 | `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...). | 2507 | `darwin' compiled for Darwin (GNU-Darwin, macOS, ...). |
| 2508 | `ms-dos' compiled as an MS-DOS application. | 2508 | `ms-dos' compiled as an MS-DOS application. |
| 2509 | `windows-nt' compiled as a native W32 application. | 2509 | `windows-nt' compiled as a native W32 application. |
| 2510 | `cygwin' compiled using the Cygwin library. | 2510 | `cygwin' compiled using the Cygwin library. |
diff --git a/src/frame.c b/src/frame.c index 3a2d009d325..b1d89f396ec 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -5110,7 +5110,7 @@ Setting this variable does not affect existing frames, only new ones. */); | |||
| 5110 | doc: /* Default position of vertical scroll bars on this window-system. */); | 5110 | doc: /* Default position of vertical scroll bars on this window-system. */); |
| 5111 | #ifdef HAVE_WINDOW_SYSTEM | 5111 | #ifdef HAVE_WINDOW_SYSTEM |
| 5112 | #if defined (HAVE_NTGUI) || defined (NS_IMPL_COCOA) || (defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)) | 5112 | #if defined (HAVE_NTGUI) || defined (NS_IMPL_COCOA) || (defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)) |
| 5113 | /* MS-Windows, Mac OS X, and GTK have scroll bars on the right by | 5113 | /* MS-Windows, macOS, and GTK have scroll bars on the right by |
| 5114 | default. */ | 5114 | default. */ |
| 5115 | Vdefault_frame_scroll_bars = Qright; | 5115 | Vdefault_frame_scroll_bars = Qright; |
| 5116 | #else | 5116 | #else |
diff --git a/src/gfilenotify.c b/src/gfilenotify.c index 3b1f2fc516a..30d0753f7e7 100644 --- a/src/gfilenotify.c +++ b/src/gfilenotify.c | |||
| @@ -105,7 +105,7 @@ dir_monitor_callback (GFileMonitor *monitor, | |||
| 105 | 105 | ||
| 106 | /* Store it into the input event queue. */ | 106 | /* Store it into the input event queue. */ |
| 107 | kbd_buffer_store_event (&event); | 107 | kbd_buffer_store_event (&event); |
| 108 | // XD_DEBUG_MESSAGE ("%s", XD_OBJECT_TO_STRING (event.arg)); | 108 | /* XD_DEBUG_MESSAGE ("%s", XD_OBJECT_TO_STRING (event.arg)); */ |
| 109 | } | 109 | } |
| 110 | 110 | ||
| 111 | /* Cancel monitor if file or directory is deleted. */ | 111 | /* Cancel monitor if file or directory is deleted. */ |
diff --git a/src/gtkutil.c b/src/gtkutil.c index 986eca85587..3d35a3dee81 100644 --- a/src/gtkutil.c +++ b/src/gtkutil.c | |||
| @@ -191,7 +191,7 @@ xg_display_open (char *display_name, Display **dpy) | |||
| 191 | { | 191 | { |
| 192 | GdkDisplay *gdpy; | 192 | GdkDisplay *gdpy; |
| 193 | 193 | ||
| 194 | unrequest_sigio (); // See comment in x_display_ok, xterm.c. | 194 | unrequest_sigio (); /* See comment in x_display_ok, xterm.c. */ |
| 195 | gdpy = gdk_display_open (display_name); | 195 | gdpy = gdk_display_open (display_name); |
| 196 | request_sigio (); | 196 | request_sigio (); |
| 197 | if (!gdpy_def && gdpy) | 197 | if (!gdpy_def && gdpy) |
| @@ -2386,7 +2386,7 @@ make_widget_for_menu_item (const char *utf8_label, const char *utf8_key) | |||
| 2386 | in the group. On exit, *GROUP contains the radio item group. | 2386 | in the group. On exit, *GROUP contains the radio item group. |
| 2387 | 2387 | ||
| 2388 | Unfortunately, keys don't line up as nicely as in Motif, | 2388 | Unfortunately, keys don't line up as nicely as in Motif, |
| 2389 | but the MacOS X version doesn't either, so I guess that is OK. */ | 2389 | but the macOS version doesn't either, so I guess that is OK. */ |
| 2390 | 2390 | ||
| 2391 | static GtkWidget * | 2391 | static GtkWidget * |
| 2392 | make_menu_item (const char *utf8_label, | 2392 | make_menu_item (const char *utf8_label, |
diff --git a/src/image.c b/src/image.c index 1303a931263..d82fedb8dea 100644 --- a/src/image.c +++ b/src/image.c | |||
| @@ -3718,7 +3718,7 @@ xpm_load (struct frame *f, struct image *img) | |||
| 3718 | } | 3718 | } |
| 3719 | 3719 | ||
| 3720 | #ifdef USE_CAIRO | 3720 | #ifdef USE_CAIRO |
| 3721 | // Load very specific Xpm:s. | 3721 | /* Load very specific Xpm:s. */ |
| 3722 | if (rc == XpmSuccess | 3722 | if (rc == XpmSuccess |
| 3723 | && img->ximg->format == ZPixmap | 3723 | && img->ximg->format == ZPixmap |
| 3724 | && img->ximg->bits_per_pixel == 32 | 3724 | && img->ximg->bits_per_pixel == 32 |
| @@ -3742,7 +3742,7 @@ xpm_load (struct frame *f, struct image *img) | |||
| 3742 | int maskidx = mid ? i * img->mask_img->bytes_per_line + k/8 : 0; | 3742 | int maskidx = mid ? i * img->mask_img->bytes_per_line + k/8 : 0; |
| 3743 | int mask = mid ? mid[maskidx] & (1 << (k % 8)) : 1; | 3743 | int mask = mid ? mid[maskidx] & (1 << (k % 8)) : 1; |
| 3744 | 3744 | ||
| 3745 | if (mask) od[idx] = id[idx] + 0xff000000; // ff => full alpha | 3745 | if (mask) od[idx] = id[idx] + 0xff000000; /* ff => full alpha */ |
| 3746 | else od[idx] = bgcolor; | 3746 | else od[idx] = bgcolor; |
| 3747 | } | 3747 | } |
| 3748 | } | 3748 | } |
diff --git a/src/kqueue.c b/src/kqueue.c index f45bd0c4c24..d1d0a612044 100644 --- a/src/kqueue.c +++ b/src/kqueue.c | |||
| @@ -268,8 +268,6 @@ kqueue_compare_dir_list (Lisp_Object watch_object) | |||
| 268 | report_file_error ("New list not empty", new_dl); | 268 | report_file_error ("New list not empty", new_dl); |
| 269 | if (! NILP (pending_dl)) | 269 | if (! NILP (pending_dl)) |
| 270 | report_file_error ("Pending events list not empty", pending_dl); | 270 | report_file_error ("Pending events list not empty", pending_dl); |
| 271 | // if (! NILP (deleted_dl)) | ||
| 272 | // report_file_error ("Deleted events list not empty", deleted_dl); | ||
| 273 | 271 | ||
| 274 | /* Replace old directory listing with the new one. */ | 272 | /* Replace old directory listing with the new one. */ |
| 275 | XSETCDR (Fnthcdr (make_number (3), watch_object), | 273 | XSETCDR (Fnthcdr (make_number (3), watch_object), |
diff --git a/src/macfont.h b/src/macfont.h index 6630fb526b7..8f734527a46 100644 --- a/src/macfont.h +++ b/src/macfont.h | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* Interface definition for Mac OSX Core text font backend. | 1 | /* Interface definition for macOS Core text font backend. |
| 2 | Copyright (C) 2009-2016 Free Software Foundation, Inc. | 2 | Copyright (C) 2009-2016 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
diff --git a/src/macfont.m b/src/macfont.m index d9bad034fe9..3af9edc148a 100644 --- a/src/macfont.m +++ b/src/macfont.m | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* Font driver on Mac OSX Core text. | 1 | /* Font driver on macOS Core text. |
| 2 | Copyright (C) 2009-2016 Free Software Foundation, Inc. | 2 | Copyright (C) 2009-2016 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| @@ -1005,7 +1005,7 @@ macfont_set_family_cache (Lisp_Object symbol, CFStringRef string) | |||
| 1005 | and those start with ".". NULL means the cache has been invalidated. | 1005 | and those start with ".". NULL means the cache has been invalidated. |
| 1006 | Otherwise, the value is CFArray of CFStrings and the elements are | 1006 | Otherwise, the value is CFArray of CFStrings and the elements are |
| 1007 | sorted in the canonical order (CTFontManagerCompareFontFamilyNames on | 1007 | sorted in the canonical order (CTFontManagerCompareFontFamilyNames on |
| 1008 | OS X 10.6 and later). */ | 1008 | Mac OS X 10.6 and later). */ |
| 1009 | 1009 | ||
| 1010 | static CFArrayRef macfont_available_families_cache = NULL; | 1010 | static CFArrayRef macfont_available_families_cache = NULL; |
| 1011 | 1011 | ||
| @@ -4057,7 +4057,7 @@ mac_register_font_driver (struct frame *f) | |||
| 4057 | void | 4057 | void |
| 4058 | syms_of_macfont (void) | 4058 | syms_of_macfont (void) |
| 4059 | { | 4059 | { |
| 4060 | /* Core Text, for Mac OS X. */ | 4060 | /* Core Text, for macOS. */ |
| 4061 | DEFSYM (Qmac_ct, "mac-ct"); | 4061 | DEFSYM (Qmac_ct, "mac-ct"); |
| 4062 | macfont_driver.type = Qmac_ct; | 4062 | macfont_driver.type = Qmac_ct; |
| 4063 | register_font_driver (&macfont_driver, NULL); | 4063 | register_font_driver (&macfont_driver, NULL); |
diff --git a/src/nsfns.m b/src/nsfns.m index b8264608b34..cfaaf53cbc6 100644 --- a/src/nsfns.m +++ b/src/nsfns.m | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* Functions for the NeXT/Open/GNUstep and MacOSX window system. | 1 | /* Functions for the NeXT/Open/GNUstep and macOS window system. |
| 2 | 2 | ||
| 3 | Copyright (C) 1989, 1992-1994, 2005-2006, 2008-2016 Free Software | 3 | Copyright (C) 1989, 1992-1994, 2005-2006, 2008-2016 Free Software |
| 4 | Foundation, Inc. | 4 | Foundation, Inc. |
| @@ -22,7 +22,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 22 | Originally by Carl Edman | 22 | Originally by Carl Edman |
| 23 | Updated by Christian Limpach (chris@nice.ch) | 23 | Updated by Christian Limpach (chris@nice.ch) |
| 24 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) | 24 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) |
| 25 | MacOSX/Aqua port by Christophe de Dinechin (descubes@earthlink.net) | 25 | macOS/Aqua port by Christophe de Dinechin (descubes@earthlink.net) |
| 26 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) | 26 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) |
| 27 | */ | 27 | */ |
| 28 | 28 | ||
| @@ -905,7 +905,7 @@ static void | |||
| 905 | x_icon (struct frame *f, Lisp_Object parms) | 905 | x_icon (struct frame *f, Lisp_Object parms) |
| 906 | /* -------------------------------------------------------------------------- | 906 | /* -------------------------------------------------------------------------- |
| 907 | Strangely-named function to set icon position parameters in frame. | 907 | Strangely-named function to set icon position parameters in frame. |
| 908 | This is irrelevant under OS X, but might be needed under GNUstep, | 908 | This is irrelevant under macOS, but might be needed under GNUstep, |
| 909 | depending on the window manager used. Note, this is not a standard | 909 | depending on the window manager used. Note, this is not a standard |
| 910 | frame parameter-setter; it is called directly from x-create-frame. | 910 | frame parameter-setter; it is called directly from x-create-frame. |
| 911 | -------------------------------------------------------------------------- */ | 911 | -------------------------------------------------------------------------- */ |
| @@ -2024,7 +2024,7 @@ DEFUN ("ns-list-services", Fns_list_services, Sns_list_services, 0, 0, 0, | |||
| 2024 | 2024 | ||
| 2025 | [svcs setAutoenablesItems: NO]; | 2025 | [svcs setAutoenablesItems: NO]; |
| 2026 | #ifdef NS_IMPL_COCOA | 2026 | #ifdef NS_IMPL_COCOA |
| 2027 | [svcs update]; /* on OS X, converts from '/' structure */ | 2027 | [svcs update]; /* on macOS, converts from '/' structure */ |
| 2028 | #endif | 2028 | #endif |
| 2029 | 2029 | ||
| 2030 | ret = interpret_services_menu (svcs, Qnil, ret); | 2030 | ret = interpret_services_menu (svcs, Qnil, ret); |
diff --git a/src/nsfont.m b/src/nsfont.m index be7d2ec36b9..389d0ed7aa4 100644 --- a/src/nsfont.m +++ b/src/nsfont.m | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* Font back-end driver for the NeXT/Open/GNUstep and MacOSX window system. | 1 | /* Font back-end driver for the NeXT/Open/GNUstep and macOS window system. |
| 2 | See font.h | 2 | See font.h |
| 3 | Copyright (C) 2006-2016 Free Software Foundation, Inc. | 3 | Copyright (C) 2006-2016 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -497,7 +497,7 @@ static NSSet | |||
| 497 | { | 497 | { |
| 498 | NSCharacterSet *fset = [[fontMgr fontWithFamily: family | 498 | NSCharacterSet *fset = [[fontMgr fontWithFamily: family |
| 499 | traits: 0 weight: 5 size: 12.0] coveredCharacterSet]; | 499 | traits: 0 weight: 5 size: 12.0] coveredCharacterSet]; |
| 500 | /* Some fonts on OS X, maybe many on GNUstep, return nil. */ | 500 | /* Some fonts on macOS, maybe many on GNUstep, return nil. */ |
| 501 | if (fset == nil) | 501 | if (fset == nil) |
| 502 | fset = [NSCharacterSet characterSetWithRange: | 502 | fset = [NSCharacterSet characterSetWithRange: |
| 503 | NSMakeRange (0, 127)]; | 503 | NSMakeRange (0, 127)]; |
diff --git a/src/nsimage.m b/src/nsimage.m index 6d1b3937f94..32bcea76ccd 100644 --- a/src/nsimage.m +++ b/src/nsimage.m | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* Image support for the NeXT/Open/GNUstep and MacOSX window system. | 1 | /* Image support for the NeXT/Open/GNUstep and macOS window system. |
| 2 | Copyright (C) 1989, 1992-1994, 2005-2006, 2008-2016 Free Software | 2 | Copyright (C) 1989, 1992-1994, 2005-2006, 2008-2016 Free Software |
| 3 | Foundation, Inc. | 3 | Foundation, Inc. |
| 4 | 4 | ||
| @@ -21,7 +21,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 21 | Originally by Carl Edman | 21 | Originally by Carl Edman |
| 22 | Updated by Christian Limpach (chris@nice.ch) | 22 | Updated by Christian Limpach (chris@nice.ch) |
| 23 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) | 23 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) |
| 24 | MacOSX/Aqua port by Christophe de Dinechin (descubes@earthlink.net) | 24 | macOS/Aqua port by Christophe de Dinechin (descubes@earthlink.net) |
| 25 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) | 25 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) |
| 26 | */ | 26 | */ |
| 27 | 27 | ||
diff --git a/src/nsmenu.m b/src/nsmenu.m index 470d6d0dbcf..3e9887acf5d 100644 --- a/src/nsmenu.m +++ b/src/nsmenu.m | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* NeXT/Open/GNUstep and MacOSX Cocoa menu and toolbar module. | 1 | /* NeXT/Open/GNUstep and macOS Cocoa menu and toolbar module. |
| 2 | Copyright (C) 2007-2016 Free Software Foundation, Inc. | 2 | Copyright (C) 2007-2016 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| @@ -92,7 +92,7 @@ popup_activated (void) | |||
| 92 | /* -------------------------------------------------------------------------- | 92 | /* -------------------------------------------------------------------------- |
| 93 | Update menubar. Three cases: | 93 | Update menubar. Three cases: |
| 94 | 1) ! deep_p, submenu = nil: Fresh switch onto a frame -- either set up | 94 | 1) ! deep_p, submenu = nil: Fresh switch onto a frame -- either set up |
| 95 | just top-level menu strings (OS X), or goto case (2) (GNUstep). | 95 | just top-level menu strings (macOS), or goto case (2) (GNUstep). |
| 96 | 2) deep_p, submenu = nil: Recompute all submenus. | 96 | 2) deep_p, submenu = nil: Recompute all submenus. |
| 97 | 3) deep_p, submenu = non-nil: Update contents of a single submenu. | 97 | 3) deep_p, submenu = non-nil: Update contents of a single submenu. |
| 98 | -------------------------------------------------------------------------- */ | 98 | -------------------------------------------------------------------------- */ |
| @@ -577,7 +577,7 @@ x_activate_menubar (struct frame *f) | |||
| 577 | return; | 577 | return; |
| 578 | /*fprintf (stderr, "Updating menu '%s'\n", [[self title] UTF8String]); NSLog (@"%@\n", event); */ | 578 | /*fprintf (stderr, "Updating menu '%s'\n", [[self title] UTF8String]); NSLog (@"%@\n", event); */ |
| 579 | #ifdef NS_IMPL_GNUSTEP | 579 | #ifdef NS_IMPL_GNUSTEP |
| 580 | /* Don't know how to do this for anything other than OSX >= 10.5 | 580 | /* Don't know how to do this for anything other than Mac OS X 10.5 and later. |
| 581 | This is wrong, as it might run Lisp code in the event loop. */ | 581 | This is wrong, as it might run Lisp code in the event loop. */ |
| 582 | ns_update_menubar (frame, true, self); | 582 | ns_update_menubar (frame, true, self); |
| 583 | #endif | 583 | #endif |
| @@ -638,7 +638,7 @@ x_activate_menubar (struct frame *f) | |||
| 638 | 638 | ||
| 639 | keyEq = [self parseKeyEquiv: wv->key]; | 639 | keyEq = [self parseKeyEquiv: wv->key]; |
| 640 | #ifdef NS_IMPL_COCOA | 640 | #ifdef NS_IMPL_COCOA |
| 641 | /* OS X just ignores modifier strings longer than one character */ | 641 | /* macOS just ignores modifier strings longer than one character */ |
| 642 | if (keyEquivModMask == 0) | 642 | if (keyEquivModMask == 0) |
| 643 | title = [title stringByAppendingFormat: @" (%@)", keyEq]; | 643 | title = [title stringByAppendingFormat: @" (%@)", keyEq]; |
| 644 | #endif | 644 | #endif |
| @@ -1048,9 +1048,9 @@ update_frame_tool_bar (struct frame *f) | |||
| 1048 | /* Check if this is a separator. */ | 1048 | /* Check if this is a separator. */ |
| 1049 | if (EQ (TOOLPROP (TOOL_BAR_ITEM_TYPE), Qt)) | 1049 | if (EQ (TOOLPROP (TOOL_BAR_ITEM_TYPE), Qt)) |
| 1050 | { | 1050 | { |
| 1051 | /* Skip separators. Newer OSX don't show them, and on GNUstep they | 1051 | /* Skip separators. Newer macOS don't show them, and on |
| 1052 | are wide as a button, thus overflowing the toolbar most of | 1052 | GNUstep they are wide as a button, thus overflowing the |
| 1053 | the time. */ | 1053 | toolbar most of the time. */ |
| 1054 | continue; | 1054 | continue; |
| 1055 | } | 1055 | } |
| 1056 | 1056 | ||
diff --git a/src/nsselect.m b/src/nsselect.m index eba23932e65..b7c9148ee05 100644 --- a/src/nsselect.m +++ b/src/nsselect.m | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* NeXT/Open/GNUstep / MacOSX Cocoa selection processing for emacs. | 1 | /* NeXT/Open/GNUstep / macOS Cocoa selection processing for emacs. |
| 2 | Copyright (C) 1993-1994, 2005-2006, 2008-2016 Free Software | 2 | Copyright (C) 1993-1994, 2005-2006, 2008-2016 Free Software |
| 3 | Foundation, Inc. | 3 | Foundation, Inc. |
| 4 | 4 | ||
| @@ -21,7 +21,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 21 | Originally by Carl Edman | 21 | Originally by Carl Edman |
| 22 | Updated by Christian Limpach (chris@nice.ch) | 22 | Updated by Christian Limpach (chris@nice.ch) |
| 23 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) | 23 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) |
| 24 | MacOSX/Aqua port by Christophe de Dinechin (descubes@earthlink.net) | 24 | macOS/Aqua port by Christophe de Dinechin (descubes@earthlink.net) |
| 25 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) | 25 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) |
| 26 | */ | 26 | */ |
| 27 | 27 | ||
diff --git a/src/nsterm.m b/src/nsterm.m index 1b44a73cd8b..7e6ec85abf1 100644 --- a/src/nsterm.m +++ b/src/nsterm.m | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* NeXT/Open/GNUstep / MacOSX communication module. -*- coding: utf-8 -*- | 1 | /* NeXT/Open/GNUstep / macOS communication module. -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | Copyright (C) 1989, 1993-1994, 2005-2006, 2008-2016 Free Software | 3 | Copyright (C) 1989, 1993-1994, 2005-2006, 2008-2016 Free Software |
| 4 | Foundation, Inc. | 4 | Foundation, Inc. |
| @@ -22,7 +22,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 22 | Originally by Carl Edman | 22 | Originally by Carl Edman |
| 23 | Updated by Christian Limpach (chris@nice.ch) | 23 | Updated by Christian Limpach (chris@nice.ch) |
| 24 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) | 24 | OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com) |
| 25 | MacOSX/Aqua port by Christophe de Dinechin (descubes@earthlink.net) | 25 | macOS/Aqua port by Christophe de Dinechin (descubes@earthlink.net) |
| 26 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) | 26 | GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu) |
| 27 | */ | 27 | */ |
| 28 | 28 | ||
| @@ -251,7 +251,7 @@ static unsigned convert_ns_to_X_keysym[] = | |||
| 251 | 0x1B, 0x1B /* escape */ | 251 | 0x1B, 0x1B /* escape */ |
| 252 | }; | 252 | }; |
| 253 | 253 | ||
| 254 | /* On OS X picks up the default NSGlobalDomain AppleAntiAliasingThreshold, | 254 | /* On macOS picks up the default NSGlobalDomain AppleAntiAliasingThreshold, |
| 255 | the maximum font size to NOT antialias. On GNUstep there is currently | 255 | the maximum font size to NOT antialias. On GNUstep there is currently |
| 256 | no way to control this behavior. */ | 256 | no way to control this behavior. */ |
| 257 | float ns_antialias_threshold; | 257 | float ns_antialias_threshold; |
| @@ -588,7 +588,7 @@ ns_load_path (void) | |||
| 588 | 588 | ||
| 589 | void | 589 | void |
| 590 | ns_init_locale (void) | 590 | ns_init_locale (void) |
| 591 | /* OS X doesn't set any environment variables for the locale when run | 591 | /* macOS doesn't set any environment variables for the locale when run |
| 592 | from the GUI. Get the locale from the OS and set LANG. */ | 592 | from the GUI. Get the locale from the OS and set LANG. */ |
| 593 | { | 593 | { |
| 594 | NSLocale *locale = [NSLocale currentLocale]; | 594 | NSLocale *locale = [NSLocale currentLocale]; |
| @@ -597,7 +597,7 @@ ns_init_locale (void) | |||
| 597 | 597 | ||
| 598 | @try | 598 | @try |
| 599 | { | 599 | { |
| 600 | /* It seems OS X should probably use UTF-8 everywhere. | 600 | /* It seems macOS should probably use UTF-8 everywhere. |
| 601 | 'localeIdentifier' does not specify the encoding, and I can't | 601 | 'localeIdentifier' does not specify the encoding, and I can't |
| 602 | find any way to get the OS to tell us which encoding to use, | 602 | find any way to get the OS to tell us which encoding to use, |
| 603 | so hard-code '.UTF-8'. */ | 603 | so hard-code '.UTF-8'. */ |
| @@ -719,7 +719,7 @@ ns_screen_margins (NSScreen *screen) | |||
| 719 | 719 | ||
| 720 | 720 | ||
| 721 | /* A screen margin between 1 and DOCK_IGNORE_LIMIT (inclusive) is | 721 | /* A screen margin between 1 and DOCK_IGNORE_LIMIT (inclusive) is |
| 722 | assumed to contain a hidden dock. OS X currently use 4 pixels for | 722 | assumed to contain a hidden dock. macOS currently use 4 pixels for |
| 723 | this, however, to be future compatible, a larger value is used. */ | 723 | this, however, to be future compatible, a larger value is used. */ |
| 724 | #define DOCK_IGNORE_LIMIT 6 | 724 | #define DOCK_IGNORE_LIMIT 6 |
| 725 | 725 | ||
| @@ -732,7 +732,7 @@ reserved for an hidden dock. */ | |||
| 732 | 732 | ||
| 733 | struct EmacsMargins margins = ns_screen_margins(screen); | 733 | struct EmacsMargins margins = ns_screen_margins(screen); |
| 734 | 734 | ||
| 735 | /* OS X (currently) reserved 4 pixels along the edge where a hidden | 735 | /* macOS (currently) reserved 4 pixels along the edge where a hidden |
| 736 | dock is located. Unfortunately, it's not possible to find the | 736 | dock is located. Unfortunately, it's not possible to find the |
| 737 | location and information about if the dock is hidden. Instead, | 737 | location and information about if the dock is hidden. Instead, |
| 738 | it is assumed that if the margin of an edge is less than | 738 | it is assumed that if the margin of an edge is less than |
| @@ -749,7 +749,7 @@ reserved for an hidden dock. */ | |||
| 749 | { | 749 | { |
| 750 | margins.top = 0; | 750 | margins.top = 0; |
| 751 | } | 751 | } |
| 752 | /* Note: This doesn't occur in current versions of OS X, but | 752 | /* Note: This doesn't occur in current versions of macOS, but |
| 753 | included for completeness and future compatibility. */ | 753 | included for completeness and future compatibility. */ |
| 754 | if (margins.bottom <= DOCK_IGNORE_LIMIT) | 754 | if (margins.bottom <= DOCK_IGNORE_LIMIT) |
| 755 | { | 755 | { |
| @@ -1028,7 +1028,7 @@ ns_update_begin (struct frame *f) | |||
| 1028 | #ifdef NS_IMPL_COCOA | 1028 | #ifdef NS_IMPL_COCOA |
| 1029 | if ([view isFullscreen] && [view fsIsNative]) | 1029 | if ([view isFullscreen] && [view fsIsNative]) |
| 1030 | { | 1030 | { |
| 1031 | // Fix reappearing tool bar in fullscreen for OSX 10.7 | 1031 | // Fix reappearing tool bar in fullscreen for Mac OS X 10.7 |
| 1032 | BOOL tbar_visible = FRAME_EXTERNAL_TOOL_BAR (f) ? YES : NO; | 1032 | BOOL tbar_visible = FRAME_EXTERNAL_TOOL_BAR (f) ? YES : NO; |
| 1033 | NSToolbar *toolbar = [FRAME_NS_VIEW (f) toolbar]; | 1033 | NSToolbar *toolbar = [FRAME_NS_VIEW (f) toolbar]; |
| 1034 | if (! tbar_visible != ! [toolbar isVisible]) | 1034 | if (! tbar_visible != ! [toolbar isVisible]) |
| @@ -1940,8 +1940,8 @@ ns_get_color (const char *name, NSColor **col) | |||
| 1940 | } | 1940 | } |
| 1941 | else if ([nsname isEqualToString: @"ns_selection_fg_color"]) | 1941 | else if ([nsname isEqualToString: @"ns_selection_fg_color"]) |
| 1942 | { | 1942 | { |
| 1943 | /* NOTE: OSX applications normally don't set foreground selection, but | 1943 | /* NOTE: macOS applications normally don't set foreground |
| 1944 | text may be unreadable if we don't. | 1944 | selection, but text may be unreadable if we don't. |
| 1945 | */ | 1945 | */ |
| 1946 | if ((new = [NSColor selectedTextColor]) != nil) | 1946 | if ((new = [NSColor selectedTextColor]) != nil) |
| 1947 | { | 1947 | { |
| @@ -3879,7 +3879,7 @@ ns_send_appdefined (int value) | |||
| 3879 | #ifdef NS_IMPL_COCOA | 3879 | #ifdef NS_IMPL_COCOA |
| 3880 | if (! send_appdefined) | 3880 | if (! send_appdefined) |
| 3881 | { | 3881 | { |
| 3882 | /* OSX 10.10.1 swallows the AppDefined event we are sending ourselves | 3882 | /* OS X 10.10.1 swallows the AppDefined event we are sending ourselves |
| 3883 | in certain situations (rapid incoming events). | 3883 | in certain situations (rapid incoming events). |
| 3884 | So check if we have one, if not add one. */ | 3884 | So check if we have one, if not add one. */ |
| 3885 | NSEvent *appev = [NSApp nextEventMatchingMask:NSEventMaskApplicationDefined | 3885 | NSEvent *appev = [NSApp nextEventMatchingMask:NSEventMaskApplicationDefined |
| @@ -4758,7 +4758,7 @@ ns_term_init (Lisp_Object display_name) | |||
| 4758 | [outerpool release]; | 4758 | [outerpool release]; |
| 4759 | outerpool = [[NSAutoreleasePool alloc] init]; | 4759 | outerpool = [[NSAutoreleasePool alloc] init]; |
| 4760 | 4760 | ||
| 4761 | /* count object allocs (About, click icon); on OS X use ObjectAlloc tool */ | 4761 | /* count object allocs (About, click icon); on macOS use ObjectAlloc tool */ |
| 4762 | /*GSDebugAllocationActive (YES); */ | 4762 | /*GSDebugAllocationActive (YES); */ |
| 4763 | block_input (); | 4763 | block_input (); |
| 4764 | 4764 | ||
| @@ -4887,7 +4887,7 @@ ns_term_init (Lisp_Object display_name) | |||
| 4887 | 4887 | ||
| 4888 | ns_app_name = [[NSProcessInfo processInfo] processName]; | 4888 | ns_app_name = [[NSProcessInfo processInfo] processName]; |
| 4889 | 4889 | ||
| 4890 | /* Set up OS X app menu */ | 4890 | /* Set up macOS app menu */ |
| 4891 | 4891 | ||
| 4892 | NSTRACE_MSG ("Menu init"); | 4892 | NSTRACE_MSG ("Menu init"); |
| 4893 | 4893 | ||
| @@ -4959,7 +4959,7 @@ ns_term_init (Lisp_Object display_name) | |||
| 4959 | selector: @selector (trackingNotification:) | 4959 | selector: @selector (trackingNotification:) |
| 4960 | name: NSMenuDidEndTrackingNotification object: mainMenu]; | 4960 | name: NSMenuDidEndTrackingNotification object: mainMenu]; |
| 4961 | } | 4961 | } |
| 4962 | #endif /* MAC OS X menu setup */ | 4962 | #endif /* macOS menu setup */ |
| 4963 | 4963 | ||
| 4964 | /* Register our external input/output types, used for determining | 4964 | /* Register our external input/output types, used for determining |
| 4965 | applicable services and also drag/drop eligibility. */ | 4965 | applicable services and also drag/drop eligibility. */ |
| @@ -5187,7 +5187,7 @@ ns_term_shutdown (int sig) | |||
| 5187 | 5187 | ||
| 5188 | #ifdef NS_IMPL_COCOA | 5188 | #ifdef NS_IMPL_COCOA |
| 5189 | /* If no dialog and none of our frames have focus and it is a move, skip it. | 5189 | /* If no dialog and none of our frames have focus and it is a move, skip it. |
| 5190 | It is a mouse move in an auxiliary menu, i.e. on the top right on OSX, | 5190 | It is a mouse move in an auxiliary menu, i.e. on the top right on macOS, |
| 5191 | such as Wifi, sound, date or similar. | 5191 | such as Wifi, sound, date or similar. |
| 5192 | This prevents "spooky" highlighting in the frame under the menu. */ | 5192 | This prevents "spooky" highlighting in the frame under the menu. */ |
| 5193 | if (type == NSEventTypeMouseMoved && [NSApp modalWindow] == nil) | 5193 | if (type == NSEventTypeMouseMoved && [NSApp modalWindow] == nil) |
| @@ -5722,7 +5722,7 @@ not_in_argv (NSString *arg) | |||
| 5722 | 5722 | ||
| 5723 | NSTRACE ("[EmacsView keyDown:]"); | 5723 | NSTRACE ("[EmacsView keyDown:]"); |
| 5724 | 5724 | ||
| 5725 | /* Rhapsody and OS X give up and down events for the arrow keys */ | 5725 | /* Rhapsody and macOS give up and down events for the arrow keys */ |
| 5726 | if (ns_fake_keydown == YES) | 5726 | if (ns_fake_keydown == YES) |
| 5727 | ns_fake_keydown = NO; | 5727 | ns_fake_keydown = NO; |
| 5728 | else if ([theEvent type] != NSEventTypeKeyDown) | 5728 | else if ([theEvent type] != NSEventTypeKeyDown) |
| @@ -5956,7 +5956,7 @@ not_in_argv (NSString *arg) | |||
| 5956 | 5956 | ||
| 5957 | 5957 | ||
| 5958 | #ifdef NS_IMPL_COCOA | 5958 | #ifdef NS_IMPL_COCOA |
| 5959 | /* Needed to pick up Ctrl-tab and possibly other events that OS X has | 5959 | /* Needed to pick up Ctrl-tab and possibly other events that Mac OS X |
| 5960 | decided not to send key-down for. | 5960 | decided not to send key-down for. |
| 5961 | See http://osdir.com/ml/editors.vim.mac/2007-10/msg00141.html | 5961 | See http://osdir.com/ml/editors.vim.mac/2007-10/msg00141.html |
| 5962 | This only applies on Tiger and earlier. | 5962 | This only applies on Tiger and earlier. |
| @@ -7121,8 +7121,8 @@ not_in_argv (NSString *arg) | |||
| 7121 | #if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_7 | 7121 | #if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_7 |
| 7122 | unsigned val = (unsigned)[NSApp presentationOptions]; | 7122 | unsigned val = (unsigned)[NSApp presentationOptions]; |
| 7123 | 7123 | ||
| 7124 | // OSX 10.7 bug fix, the menu won't appear without this. | 7124 | // Mac OS X 10.7 bug fix, the menu won't appear without this. |
| 7125 | // val is non-zero on other OSX versions. | 7125 | // val is non-zero on other macOS versions. |
| 7126 | if (val == 0) | 7126 | if (val == 0) |
| 7127 | { | 7127 | { |
| 7128 | NSApplicationPresentationOptions options | 7128 | NSApplicationPresentationOptions options |
| @@ -7546,7 +7546,7 @@ not_in_argv (NSString *arg) | |||
| 7546 | unblock_input (); | 7546 | unblock_input (); |
| 7547 | 7547 | ||
| 7548 | /* | 7548 | /* |
| 7549 | drawRect: may be called (at least in OS X 10.5) for invisible | 7549 | drawRect: may be called (at least in Mac OS X 10.5) for invisible |
| 7550 | views as well for some reason. Thus, do not infer visibility | 7550 | views as well for some reason. Thus, do not infer visibility |
| 7551 | here. | 7551 | here. |
| 7552 | 7552 | ||
| @@ -8071,7 +8071,7 @@ not_in_argv (NSString *arg) | |||
| 8071 | [self setEnabled: YES]; | 8071 | [self setEnabled: YES]; |
| 8072 | 8072 | ||
| 8073 | /* Ensure auto resizing of scrollbars occurs within the emacs frame's view | 8073 | /* Ensure auto resizing of scrollbars occurs within the emacs frame's view |
| 8074 | locked against the top and bottom edges, and right edge on OS X, where | 8074 | locked against the top and bottom edges, and right edge on macOS, where |
| 8075 | scrollers are on right. */ | 8075 | scrollers are on right. */ |
| 8076 | #ifdef NS_IMPL_GNUSTEP | 8076 | #ifdef NS_IMPL_GNUSTEP |
| 8077 | [self setAutoresizingMask: NSViewMaxXMargin | NSViewHeightSizable]; | 8077 | [self setAutoresizingMask: NSViewMaxXMargin | NSViewHeightSizable]; |
| @@ -8732,14 +8732,14 @@ allowing it to be used at a lower level for accented character entry."); | |||
| 8732 | 8732 | ||
| 8733 | DEFVAR_LISP ("ns-auto-hide-menu-bar", ns_auto_hide_menu_bar, | 8733 | DEFVAR_LISP ("ns-auto-hide-menu-bar", ns_auto_hide_menu_bar, |
| 8734 | doc: /* Non-nil means that the menu bar is hidden, but appears when the mouse is near. | 8734 | doc: /* Non-nil means that the menu bar is hidden, but appears when the mouse is near. |
| 8735 | Only works on OSX 10.6 or later. */); | 8735 | Only works on Mac OS X 10.6 or later. */); |
| 8736 | ns_auto_hide_menu_bar = Qnil; | 8736 | ns_auto_hide_menu_bar = Qnil; |
| 8737 | 8737 | ||
| 8738 | DEFVAR_BOOL ("ns-use-native-fullscreen", ns_use_native_fullscreen, | 8738 | DEFVAR_BOOL ("ns-use-native-fullscreen", ns_use_native_fullscreen, |
| 8739 | doc: /*Non-nil means to use native fullscreen on OSX >= 10.7. | 8739 | doc: /*Non-nil means to use native fullscreen on Mac OS X 10.7 and later. |
| 8740 | Nil means use fullscreen the old (< 10.7) way. The old way works better with | 8740 | Nil means use fullscreen the old (< 10.7) way. The old way works better with |
| 8741 | multiple monitors, but lacks tool bar. This variable is ignored on OSX < 10.7. | 8741 | multiple monitors, but lacks tool bar. This variable is ignored on |
| 8742 | Default is t for OSX >= 10.7, nil otherwise. */); | 8742 | Mac OS X < 10.7. Default is t for 10.7 and later, nil otherwise. */); |
| 8743 | #ifdef HAVE_NATIVE_FS | 8743 | #ifdef HAVE_NATIVE_FS |
| 8744 | ns_use_native_fullscreen = YES; | 8744 | ns_use_native_fullscreen = YES; |
| 8745 | #else | 8745 | #else |
| @@ -8754,9 +8754,9 @@ Default is nil. */); | |||
| 8754 | ns_use_fullscreen_animation = NO; | 8754 | ns_use_fullscreen_animation = NO; |
| 8755 | 8755 | ||
| 8756 | DEFVAR_BOOL ("ns-use-srgb-colorspace", ns_use_srgb_colorspace, | 8756 | DEFVAR_BOOL ("ns-use-srgb-colorspace", ns_use_srgb_colorspace, |
| 8757 | doc: /*Non-nil means to use sRGB colorspace on OSX >= 10.7. | 8757 | doc: /*Non-nil means to use sRGB colorspace on Mac OS X 10.7 and later. |
| 8758 | Note that this does not apply to images. | 8758 | Note that this does not apply to images. |
| 8759 | This variable is ignored on OSX < 10.7 and GNUstep. */); | 8759 | This variable is ignored on Mac OS X < 10.7 and GNUstep. */); |
| 8760 | ns_use_srgb_colorspace = YES; | 8760 | ns_use_srgb_colorspace = YES; |
| 8761 | 8761 | ||
| 8762 | /* TODO: move to common code */ | 8762 | /* TODO: move to common code */ |
diff --git a/src/sysdep.c b/src/sysdep.c index 55d29bcc814..892e97626bd 100644 --- a/src/sysdep.c +++ b/src/sysdep.c | |||
| @@ -2426,7 +2426,7 @@ posix_close (int fd, int flag) | |||
| 2426 | closed, and retrying the close could inadvertently close a file | 2426 | closed, and retrying the close could inadvertently close a file |
| 2427 | descriptor allocated by some other thread. In other systems | 2427 | descriptor allocated by some other thread. In other systems |
| 2428 | (e.g., HP/UX) FD is not closed. And in still other systems | 2428 | (e.g., HP/UX) FD is not closed. And in still other systems |
| 2429 | (e.g., OS X, Solaris), maybe FD is closed, maybe not, and in a | 2429 | (e.g., macOS, Solaris), maybe FD is closed, maybe not, and in a |
| 2430 | multithreaded program there can be no way to tell. | 2430 | multithreaded program there can be no way to tell. |
| 2431 | 2431 | ||
| 2432 | So, in this case, pretend that the close succeeded. This works | 2432 | So, in this case, pretend that the close succeeded. This works |
diff --git a/src/unexmacosx.c b/src/unexmacosx.c index ea8e884f177..5584e693f75 100644 --- a/src/unexmacosx.c +++ b/src/unexmacosx.c | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* Dump Emacs in Mach-O format for use on Mac OS X. | 1 | /* Dump Emacs in Mach-O format for use on macOS. |
| 2 | Copyright (C) 2001-2016 Free Software Foundation, Inc. | 2 | Copyright (C) 2001-2016 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| @@ -24,7 +24,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 24 | Mach-O format: the file loader.h, man pages for Mach-O and ld, old | 24 | Mach-O format: the file loader.h, man pages for Mach-O and ld, old |
| 25 | NEXTSTEP documents of the Mach-O format. The tool otool dumps the | 25 | NEXTSTEP documents of the Mach-O format. The tool otool dumps the |
| 26 | mach header (-h option) and the load commands (-l option) in a | 26 | mach header (-h option) and the load commands (-l option) in a |
| 27 | Mach-O file. The tool nm on Mac OS X displays the symbol table in | 27 | Mach-O file. The tool nm on macOS displays the symbol table in |
| 28 | a Mach-O file. For examples of unexec for the Mach-O format, see | 28 | a Mach-O file. For examples of unexec for the Mach-O format, see |
| 29 | the file unexnext.c in the GNU Emacs distribution, the file | 29 | the file unexnext.c in the GNU Emacs distribution, the file |
| 30 | unexdyld.c in the Darwin port of GNU Emacs 20.7, and unexdyld.c in | 30 | unexdyld.c in the Darwin port of GNU Emacs 20.7, and unexdyld.c in |
| @@ -33,7 +33,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 33 | Read that to see what they do. This file was written completely | 33 | Read that to see what they do. This file was written completely |
| 34 | from scratch, making use of information from the above sources. */ | 34 | from scratch, making use of information from the above sources. */ |
| 35 | 35 | ||
| 36 | /* The Mac OS X implementation of unexec makes use of Darwin's `zone' | 36 | /* The macOS implementation of unexec makes use of Darwin's `zone' |
| 37 | memory allocator. All calls to malloc, realloc, and free in Emacs | 37 | memory allocator. All calls to malloc, realloc, and free in Emacs |
| 38 | are redirected to unexec_malloc, unexec_realloc, and unexec_free in | 38 | are redirected to unexec_malloc, unexec_realloc, and unexec_free in |
| 39 | this file. When temacs is run, all memory requests are handled in | 39 | this file. When temacs is run, all memory requests are handled in |
| @@ -49,7 +49,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 49 | block must be obtained by malloc and the old contents copied to | 49 | block must be obtained by malloc and the old contents copied to |
| 50 | it. */ | 50 | it. */ |
| 51 | 51 | ||
| 52 | /* Peculiarity of the Mach-O files generated by ld in Mac OS X | 52 | /* Peculiarity of the Mach-O files generated by ld in macOS |
| 53 | (possible causes of future bugs if changed). | 53 | (possible causes of future bugs if changed). |
| 54 | 54 | ||
| 55 | The file offset of the start of the __TEXT segment is zero. Since | 55 | The file offset of the start of the __TEXT segment is zero. Since |
| @@ -117,9 +117,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 117 | 117 | ||
| 118 | #include <assert.h> | 118 | #include <assert.h> |
| 119 | 119 | ||
| 120 | /* LC_DATA_IN_CODE is not defined in mach-o/loader.h on OS X 10.7. | 120 | /* LC_DATA_IN_CODE is not defined in mach-o/loader.h on Mac OS X 10.7. |
| 121 | But it is used if we build with "Command Line Tools for Xcode 4.5 | 121 | But it is used if we build with "Command Line Tools for Xcode 4.5 |
| 122 | (OS X Lion) - September 2012". */ | 122 | (Mac OS X Lion) - September 2012". */ |
| 123 | #ifndef LC_DATA_IN_CODE | 123 | #ifndef LC_DATA_IN_CODE |
| 124 | #define LC_DATA_IN_CODE 0x29 /* table of non-instructions in __text */ | 124 | #define LC_DATA_IN_CODE 0x29 /* table of non-instructions in __text */ |
| 125 | #endif | 125 | #endif |
diff --git a/src/w32fns.c b/src/w32fns.c index 1d83b02d629..8c8272b16d4 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -7328,7 +7328,7 @@ value of DIR as in previous invocations; this is standard Windows behavior. */) | |||
| 7328 | } new_file_details_w; | 7328 | } new_file_details_w; |
| 7329 | 7329 | ||
| 7330 | #ifdef NTGUI_UNICODE | 7330 | #ifdef NTGUI_UNICODE |
| 7331 | wchar_t filename_buf_w[32*1024 + 1]; // NT kernel maximum | 7331 | wchar_t filename_buf_w[32*1024 + 1]; /* NT kernel maximum */ |
| 7332 | OPENFILENAMEW * file_details_w = &new_file_details_w.details; | 7332 | OPENFILENAMEW * file_details_w = &new_file_details_w.details; |
| 7333 | const int use_unicode = 1; | 7333 | const int use_unicode = 1; |
| 7334 | #else /* not NTGUI_UNICODE */ | 7334 | #else /* not NTGUI_UNICODE */ |
diff --git a/src/xdisp.c b/src/xdisp.c index 6e8af8aaf0a..c045ced000b 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -24565,7 +24565,7 @@ calc_pixel_width_or_height (double *res, struct it *it, Lisp_Object prop, | |||
| 24565 | } | 24565 | } |
| 24566 | if (FRAME_WINDOW_P (it->f) && valid_xwidget_spec_p (prop)) | 24566 | if (FRAME_WINDOW_P (it->f) && valid_xwidget_spec_p (prop)) |
| 24567 | { | 24567 | { |
| 24568 | // TODO: Don't return dummy size. | 24568 | /* TODO: Don't return dummy size. */ |
| 24569 | return OK_PIXELS (100); | 24569 | return OK_PIXELS (100); |
| 24570 | } | 24570 | } |
| 24571 | #endif | 24571 | #endif |
diff --git a/src/xselect.c b/src/xselect.c index 93b81b9fca1..b997cc887ef 100644 --- a/src/xselect.c +++ b/src/xselect.c | |||
| @@ -693,7 +693,7 @@ x_reply_selection_request (struct selection_input_event *event, | |||
| 693 | : format_bytes); | 693 | : format_bytes); |
| 694 | XFlush (display); | 694 | XFlush (display); |
| 695 | had_errors_p = x_had_errors_p (display); | 695 | had_errors_p = x_had_errors_p (display); |
| 696 | // See comment above about property_change_reply. | 696 | /* See comment above about property_change_reply. */ |
| 697 | set_property_change_object (cs->wait_object); | 697 | set_property_change_object (cs->wait_object); |
| 698 | unblock_input (); | 698 | unblock_input (); |
| 699 | 699 | ||
| @@ -1393,7 +1393,7 @@ receive_incremental_selection (struct x_display_info *dpyinfo, | |||
| 1393 | wait_object = expect_property_change (display, window, property, | 1393 | wait_object = expect_property_change (display, window, property, |
| 1394 | PropertyNewValue); | 1394 | PropertyNewValue); |
| 1395 | XFlush (display); | 1395 | XFlush (display); |
| 1396 | // See comment in x_reply_selection_request about property_change_reply. | 1396 | /* See comment in x_reply_selection_request about property_change_reply. */ |
| 1397 | set_property_change_object (wait_object); | 1397 | set_property_change_object (wait_object); |
| 1398 | unblock_input (); | 1398 | unblock_input (); |
| 1399 | 1399 | ||
| @@ -1433,7 +1433,8 @@ receive_incremental_selection (struct x_display_info *dpyinfo, | |||
| 1433 | XDeleteProperty (display, window, property); | 1433 | XDeleteProperty (display, window, property); |
| 1434 | wait_object = expect_property_change (display, window, property, | 1434 | wait_object = expect_property_change (display, window, property, |
| 1435 | PropertyNewValue); | 1435 | PropertyNewValue); |
| 1436 | // See comment in x_reply_selection_request about property_change_reply. | 1436 | /* See comment in x_reply_selection_request about |
| 1437 | property_change_reply. */ | ||
| 1437 | set_property_change_object (wait_object); | 1438 | set_property_change_object (wait_object); |
| 1438 | XFlush (display); | 1439 | XFlush (display); |
| 1439 | unblock_input (); | 1440 | unblock_input (); |
diff --git a/src/xsmfns.c b/src/xsmfns.c index a7ec8e0c7e2..95ede642130 100644 --- a/src/xsmfns.c +++ b/src/xsmfns.c | |||
| @@ -170,7 +170,7 @@ smc_save_yourself_CB (SmcConn smcConn, | |||
| 170 | char *smid_opt, *chdir_opt = NULL; | 170 | char *smid_opt, *chdir_opt = NULL; |
| 171 | Lisp_Object user_login_name = Fuser_login_name (Qnil); | 171 | Lisp_Object user_login_name = Fuser_login_name (Qnil); |
| 172 | 172 | ||
| 173 | // Must have these. | 173 | /* Must have these. */ |
| 174 | if (! STRINGP (Vinvocation_name) || ! STRINGP (user_login_name)) | 174 | if (! STRINGP (Vinvocation_name) || ! STRINGP (user_login_name)) |
| 175 | return; | 175 | return; |
| 176 | 176 | ||
diff --git a/src/xterm.c b/src/xterm.c index d6e1fe2190c..bdc21e6de02 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -12063,7 +12063,7 @@ x_term_init (Lisp_Object display_name, char *xrm_option, char *resource_name) | |||
| 12063 | 12063 | ||
| 12064 | #else /* not USE_X_TOOLKIT */ | 12064 | #else /* not USE_X_TOOLKIT */ |
| 12065 | XSetLocaleModifiers (""); | 12065 | XSetLocaleModifiers (""); |
| 12066 | unrequest_sigio (); // See comment in x_display_ok. | 12066 | unrequest_sigio (); /* See comment in x_display_ok. */ |
| 12067 | dpy = XOpenDisplay (SSDATA (display_name)); | 12067 | dpy = XOpenDisplay (SSDATA (display_name)); |
| 12068 | request_sigio (); | 12068 | request_sigio (); |
| 12069 | #endif /* not USE_X_TOOLKIT */ | 12069 | #endif /* not USE_X_TOOLKIT */ |