* Mac OS port: mac-hide-menu-bar patch
@ 2005-07-10 14:57 Seiji Zenitani
0 siblings, 0 replies; only message in thread
From: Seiji Zenitani @ 2005-07-10 14:57 UTC (permalink / raw)
Cc: 廣松さん
[-- Attachment #1: Type: text/plain, Size: 618 bytes --]
Hi,
This patch provides "M-x mac-hide-menu-bar" and "M-x mac-show-menu-
bar" to the Mac (Carbon) port.
Generally menu-bars are toggled by menu-bar-mode on other platforms.
However, since Mac OS has only one menu-bar in the screen, it is not
good to toggle it by menu-bar-mode which is local to the frames.
(Note that speedbar and ediff work with multiple frames and menu-bar-
mode is turned off in sub-frames) We believe this feature should be
provided as separate functions in the case of Mac OS X.
Contact: Seiji Zenitani and Takashi Hiromatsu
best wishes,
--
Seiji Zenitani
zenitani@tkg.att.ne.jp
[-- Attachment #2: emacs-menu-bar.patch --]
[-- Type: application/octet-stream, Size: 1183 bytes --]
*** src/macfns.c.orig Wed Jun 8 14:57:39 2005
--- src/macfns.c Sun Jun 26 01:46:53 2005
*************** mac_nav_event_callback (selector, parms,
*** 4461,4466 ****
--- 4461,4488 ----
void *data ;
{
}
+
+ #if MAC_OSX
+ DEFUN ("mac-show-menu-bar", Fmac_show_menu_bar, Smac_show_menu_bar, 0, 1, "",
+ doc: /* Show the menu bar. */)
+ (display)
+ Lisp_Object display;
+ {
+ if ( EQ (Vwindow_system, intern ("mac")))
+ ShowMenuBar();
+ return Qnil;
+ }
+ DEFUN ("mac-hide-menu-bar", Fmac_hide_menu_bar, Smac_hide_menu_bar, 0, 1, "",
+ doc: /* Hide the menu bar and the Dock on Mac OSX. */)
+ (display)
+ Lisp_Object display;
+ {
+ if ( EQ (Vwindow_system, intern ("mac")))
+ HideMenuBar();
+ return Qnil;
+ }
+ #endif /*MAC_OSX*/
+
#endif
\f
/***********************************************************************
*************** Chinese, Japanese, and Korean. */);
*** 4674,4679 ****
--- 4696,4705 ----
#if TARGET_API_MAC_CARBON
defsubr (&Sx_file_dialog);
+ #if MAC_OSX
+ defsubr (&Smac_show_menu_bar);
+ defsubr (&Smac_hide_menu_bar);
+ #endif
#endif
}
[-- Attachment #3: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2005-07-10 14:57 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-07-10 14:57 Mac OS port: mac-hide-menu-bar patch Seiji Zenitani
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.