Mac OS port: mac-hide-menu-bar patch

Mac OS port: mac-hide-menu-bar patch

[Seiji Zenitani]

[-- 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