Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save railwaycat/71b3f23ed6159b5dbf59389ae56f06e1 to your computer and use it in GitHub Desktop.
Save railwaycat/71b3f23ed6159b5dbf59389ae56f06e1 to your computer and use it in GitHub Desktop.
diff -ruN mituharu-emacs-mac-9ea45639e1ab/lisp/cus-start.el mituharu-emacs-mac-9ea45639e1ab-mod/lisp/cus-start.el
--- mituharu-emacs-mac-9ea45639e1ab/lisp/cus-start.el 2018-04-15 02:15:54.000000000 -0400
+++ mituharu-emacs-mac-9ea45639e1ab-mod/lisp/cus-start.el 2018-05-02 19:32:22.000000000 -0400
@@ -580,6 +580,7 @@
(mac-pass-command-to-system mac boolean "22.1")
(mac-pass-control-to-system mac boolean "22.1")
(mac-drawing-use-gcd mac boolean "24.4")
+ (mac-use-title-bar mac boolean "25.2")
(mac-frame-tabbing mac (choice (const automatic) (const inverted)
(const nil) (const t)) "24.5")
(mac-ignore-accessibility mac boolean "25.3")
diff -ruN mituharu-emacs-mac-9ea45639e1ab/src/macappkit.m mituharu-emacs-mac-9ea45639e1ab-mod/src/macappkit.m
--- mituharu-emacs-mac-9ea45639e1ab/src/macappkit.m 2018-04-15 02:15:54.000000000 -0400
+++ mituharu-emacs-mac-9ea45639e1ab-mod/src/macappkit.m 2018-05-02 19:34:56.000000000 -0400
@@ -2446,11 +2446,15 @@
if (!FRAME_TOOLTIP_P (f))
{
if (!self.shouldBeTitled)
- windowStyle = NSWindowStyleMaskBorderless;
+ windowStyle = NSWindowStyleMaskBorderless;
else
- windowStyle = (NSWindowStyleMaskTitled | NSWindowStyleMaskClosable
- | NSWindowStyleMaskMiniaturizable
- | NSWindowStyleMaskResizable);
+ if (mac_use_title_bar)
+ windowStyle = (NSWindowStyleMaskTitled | NSWindowStyleMaskClosable
+ | NSWindowStyleMaskMiniaturizable
+ | NSWindowStyleMaskResizable);
+ else
+ windowStyle = (NSWindowStyleMaskBorderless | NSWindowStyleMaskResizable
+ | NSWindowStyleMaskMiniaturizable);
deferCreation = YES;
}
else
diff -ruN mituharu-emacs-mac-9ea45639e1ab/src/macterm.c mituharu-emacs-mac-9ea45639e1ab-mod/src/macterm.c
--- mituharu-emacs-mac-9ea45639e1ab/src/macterm.c 2018-04-15 02:15:54.000000000 -0400
+++ mituharu-emacs-mac-9ea45639e1ab-mod/src/macterm.c 2018-05-02 19:42:57.000000000 -0400
@@ -6262,6 +6262,16 @@
This variable has no effect on OS X 10.11 and earlier. */);
Vmac_frame_tabbing = Qautomatic;
+ DEFVAR_BOOL ("mac-use-title-bar", mac_use_title_bar,
+ doc: /*Non-nil means to include the title bar on frames. Nil means to
+omit the title bar on OSX >= 10.7. This variable is ignored on OSX <
+10.7. Note that the first frame per emacs session (unless it is an
+emacsclient) will use the default value of this variable (nil--do not
+include a title bar), ignoring (!) the user-set value of this
+variable. This is almost certainly due to a bug in the patch adding
+this variable. Default is nil.*/);
+ mac_use_title_bar = false;
+
DEFVAR_BOOL ("mac-ignore-accessibility", mac_ignore_accessibility,
doc: /* Non-nil means to ignore the system accessibility feature.
Emacspeak users may want to set this variable so it may not interfere
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment