(U+52BF): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / src / gui-x.c

diff --git a/src/gui-x.c b/src/gui-x.c
index 2cade75..1ebd55a 100644 (file)
--- a/src/gui-x.c
+++ b/src/gui-x.c
@@ -1,6 +1,6 @@
 /* General GUI code -- X-specific. (menubars, scrollbars, toolbars, dialogs)
    Copyright (C) 1995 Board of Trustees, University of Illinois.
 /* General GUI code -- X-specific. (menubars, scrollbars, toolbars, dialogs)
    Copyright (C) 1995 Board of Trustees, University of Illinois.

-   Copyright (C) 1995, 1996 Ben Wing.
+   Copyright (C) 1995, 1996, 2000 Ben Wing.

    Copyright (C) 1995 Sun Microsystems, Inc.
    Copyright (C) 1998 Free Software Foundation, Inc.
 
    Copyright (C) 1995 Sun Microsystems, Inc.
    Copyright (C) 1998 Free Software Foundation, Inc.
 

@@ -23,6 +23,8 @@ Boston, MA 02111-1307, USA.  */
 
 /* Synched up with: Not in FSF. */
 
 
 /* Synched up with: Not in FSF. */
 

+/* This file Mule-ized by Ben Wing, 7-8-00. */
+

 #include <config.h>
 #include "lisp.h"
 
 #include <config.h>
 #include "lisp.h"
 

@@ -40,8 +42,6 @@ Boston, MA 02111-1307, USA.  */
 #include "redisplay.h"
 #include "opaque.h"
 
 #include "redisplay.h"
 #include "opaque.h"
 

-Lisp_Object Qmenu_no_selection_hook;
-

 /* we need a unique id for each popup menu, dialog box, and scrollbar */
 static unsigned int lwlib_id_tick;
 
 /* we need a unique id for each popup menu, dialog box, and scrollbar */
 static unsigned int lwlib_id_tick;
 

@@ -153,8 +153,9 @@ widget_value_unwind (Lisp_Object closure)
 static void
 print_widget_value (widget_value *wv, int depth)
 {
 static void
 print_widget_value (widget_value *wv, int depth)
 {

-  /* !!#### This function has not been Mule-ized */
-  char d [200];
+  /* strings in wv are in external format; use printf not stdout_out
+     because the latter takes internal-format strings */
+  Extbyte d [200];

   int i;
   for (i = 0; i < depth; i++) d[i] = ' ';
   d[depth]=0;
   int i;
   for (i = 0; i < depth; i++) d[i] = ' ';
   d[depth]=0;

@@ -206,7 +207,10 @@ free_popup_widget_value_tree (widget_value *wv)
 }
 
 /* The following is actually called from somewhere within XtDispatchEvent(),
 }
 
 /* The following is actually called from somewhere within XtDispatchEvent(),

-   called from XtAppProcessEvent() in event-Xt.c */
+   called from XtAppProcessEvent() in event-Xt.c
+
+   Callback function for widgets and menus.
+ */

 
 void
 popup_selection_callback (Widget widget, LWLIB_ID ignored_id,
 
 void
 popup_selection_callback (Widget widget, LWLIB_ID ignored_id,

@@ -229,10 +233,6 @@ popup_selection_callback (Widget widget, LWLIB_ID ignored_id,
   VOID_TO_LISP (data, client_data);
   XSETFRAME (frame, f);
 
   VOID_TO_LISP (data, client_data);
   XSETFRAME (frame, f);
 

-  image_instance = XCAR (data);
-  callback = XCAR (XCDR (data));
-  callback_ex = XCDR (XCDR (data));
-

 #if 0
   /* #### What the hell?  I can't understand why this call is here,
      and doing it is really courting disaster in the new event
 #if 0
   /* #### What the hell?  I can't understand why this call is here,
      and doing it is really courting disaster in the new event

@@ -255,12 +255,20 @@ popup_selection_callback (Widget widget, LWLIB_ID ignored_id,
     }
   else
     {
     }
   else
     {

+      image_instance = XCAR (data);
+      callback = XCAR (XCDR (data));
+      callback_ex = XCDR (XCDR (data));

       update_subwindows_p = 1;
       update_subwindows_p = 1;

+      /* It is possible for a widget action to cause it to get out of
+        sync with its instantiator. Thus it is necessary to signal
+        this possibility. */
+      if (IMAGE_INSTANCEP (image_instance))
+       XIMAGE_INSTANCE_WIDGET_ACTION_OCCURRED (image_instance) = 1;

 
       if (!NILP (callback_ex) && !UNBOUNDP (callback_ex))
        {
          event = Fmake_event (Qnil, Qnil);
 
       if (!NILP (callback_ex) && !UNBOUNDP (callback_ex))
        {
          event = Fmake_event (Qnil, Qnil);

-         
+

          XEVENT (event)->event_type = misc_user_event;
          XEVENT (event)->channel = frame;
          XEVENT (event)->event.eval.function = Qeval;
          XEVENT (event)->event_type = misc_user_event;
          XEVENT (event)->channel = frame;
          XEVENT (event)->event.eval.function = Qeval;

@@ -284,7 +292,7 @@ popup_selection_callback (Widget widget, LWLIB_ID ignored_id,
     }
 
   /* This is the timestamp used for asserting focus so we need to get an
     }
 
   /* This is the timestamp used for asserting focus so we need to get an

-     up-to-date value event if no events has been dispatched to emacs
+     up-to-date value event if no events have been dispatched to emacs

      */
 #if defined(HAVE_MENUBARS)
   DEVICE_X_MOUSE_TIMESTAMP (d) = x_focus_timestamp_really_sucks_fix_me_better;
      */
 #if defined(HAVE_MENUBARS)
   DEVICE_X_MOUSE_TIMESTAMP (d) = x_focus_timestamp_really_sucks_fix_me_better;

@@ -293,17 +301,10 @@ popup_selection_callback (Widget widget, LWLIB_ID ignored_id,
 #endif
   if (!NILP (event))
     enqueue_Xt_dispatch_event (event);
 #endif
   if (!NILP (event))
     enqueue_Xt_dispatch_event (event);

-  /* The result of this evaluation could cause other instances to change so 
-     enqueue an update callback to check this. We also have to make sure that
-     the function does not appear in the command history.
-     #### I'm sure someone can tell me how to optimize this. */
+  /* The result of this evaluation could cause other instances to change so
+     enqueue an update callback to check this. */

   if (update_subwindows_p && !NILP (event))
   if (update_subwindows_p && !NILP (event))

-    signal_special_Xt_user_event (frame, Qeval,
-                                 list3 (Qlet,
-                                        list2 (Qthis_command,
-                                               Qlast_command),
-                                        list2 (Qupdate_widget_instances,
-                                               frame)));
+    enqueue_magic_eval_event (update_widget_instances, frame);

 }
 
 #if 1
 }
 
 #if 1

@@ -320,11 +321,11 @@ popup_selection_callback (Widget widget, LWLIB_ID ignored_id,
       ((void) (slot = (!NILP (form))))
 #endif
 
       ((void) (slot = (!NILP (form))))
 #endif
 

-char *
-menu_separator_style (const char *s)
+Extbyte *
+menu_separator_style_and_to_external (const Bufbyte *s)

 {
 {

-  const char *p;
-  char first;
+  const Bufbyte *p;
+  Bufbyte first;

 
   if (!s || s[0] == '\0')
     return NULL;
 
   if (!s || s[0] == '\0')
     return NULL;

@@ -344,18 +345,25 @@ menu_separator_style (const char *s)
            ? NULL                      /* single etched is the default */
            : xstrdup ("shadowDoubleEtchedIn"));
   else if (*p == ':')
            ? NULL                      /* single etched is the default */
            : xstrdup ("shadowDoubleEtchedIn"));
   else if (*p == ':')

-    return xstrdup (p+1);
+    {
+      Extbyte *retval;
+
+      C_STRING_TO_EXTERNAL_MALLOC (p + 1, retval, Qlwlib_encoding);
+      return retval;
+    }

 
   return NULL;
 }
 
 
   return NULL;
 }
 

-char *
-strdup_and_add_accel (char *name)
+Extbyte *
+add_accel_and_to_external (Lisp_Object string)

 {
   int i;
   int found_accel = 0;
 {
   int i;
   int found_accel = 0;

+  Extbyte *retval;
+  Bufbyte *name = XSTRING_DATA (string);

 
 

-  for (i=0; name[i]; ++i)
+  for (i = 0; name[i]; ++i)

     if (name[i] == '%' && name[i+1] == '_')
       {
        found_accel = 1;
     if (name[i] == '%' && name[i+1] == '_')
       {
        found_accel = 1;

@@ -363,15 +371,18 @@ strdup_and_add_accel (char *name)
       }
 
   if (found_accel)
       }
 
   if (found_accel)

-    return xstrdup (name);
+    LISP_STRING_TO_EXTERNAL_MALLOC (string, retval, Qlwlib_encoding);

   else
     {
   else
     {

-      char *chars = (char *) alloca (strlen (name) + 3);
+      size_t namelen = XSTRING_LENGTH (string);
+      Bufbyte *chars = (Bufbyte *) alloca (namelen + 3);

       chars[0] = '%';
       chars[1] = '_';
       chars[0] = '%';
       chars[1] = '_';

-      memcpy (chars+2, name, strlen (name) + 1);
-      return xstrdup (chars);
+      memcpy (chars + 2, name, namelen + 1);
+      C_STRING_TO_EXTERNAL_MALLOC (chars, retval, Qlwlib_encoding);

     }
     }

+
+  return retval;

 }
 
 /* This does the dirty work.  gc_currently_forbidden is 1 when this is called.
 }
 
 /* This does the dirty work.  gc_currently_forbidden is 1 when this is called.

@@ -379,10 +390,9 @@ strdup_and_add_accel (char *name)
 int
 button_item_to_widget_value (Lisp_Object gui_object_instance,
                             Lisp_Object gui_item, widget_value *wv,
 int
 button_item_to_widget_value (Lisp_Object gui_object_instance,
                             Lisp_Object gui_item, widget_value *wv,

-                            int allow_text_field_p, int no_keys_p, 
-                            int menu_entry_p)
+                            int allow_text_field_p, int no_keys_p,
+                            int menu_entry_p, int accel_p)

 {
 {

-  /* !!#### This function has not been Mule-ized */

   /* This function cannot GC because gc_currently_forbidden is set when
      it's called */
   Lisp_Gui_Item* pgui = 0;
   /* This function cannot GC because gc_currently_forbidden is set when
      it's called */
   Lisp_Gui_Item* pgui = 0;

@@ -391,17 +401,19 @@ button_item_to_widget_value (Lisp_Object gui_object_instance,
   if (STRINGP (gui_item))
     {
       wv->type = TEXT_TYPE;
   if (STRINGP (gui_item))
     {
       wv->type = TEXT_TYPE;

-      wv->name = (char *) XSTRING_DATA (gui_item);
-      wv->name = strdup_and_add_accel (wv->name);
+      if (accel_p)
+       wv->name = add_accel_and_to_external (gui_item);
+      else
+       LISP_STRING_TO_EXTERNAL_MALLOC (gui_item, wv->name, Qlwlib_encoding);

       return 1;
     }
   else if (!GUI_ITEMP (gui_item))
       return 1;
     }
   else if (!GUI_ITEMP (gui_item))

-    signal_simple_error("need a string or a gui_item here", gui_item);
+    syntax_error ("need a string or a gui_item here", gui_item);

 
   pgui = XGUI_ITEM (gui_item);
 
   if (!NILP (pgui->filter))
 
   pgui = XGUI_ITEM (gui_item);
 
   if (!NILP (pgui->filter))

-    signal_simple_error(":filter keyword not permitted on leaf nodes", gui_item);
+    syntax_error (":filter keyword not permitted on leaf nodes", gui_item);

 
 #ifdef HAVE_MENUBARS
   if (menu_entry_p && !gui_item_included_p (gui_item, Vmenubar_configuration))
 
 #ifdef HAVE_MENUBARS
   if (menu_entry_p && !gui_item_included_p (gui_item, Vmenubar_configuration))

@@ -415,13 +427,19 @@ button_item_to_widget_value (Lisp_Object gui_object_instance,
     pgui->name = Feval (pgui->name);
 
   CHECK_STRING (pgui->name);
     pgui->name = Feval (pgui->name);
 
   CHECK_STRING (pgui->name);

-  wv->name = (char *) XSTRING_DATA (pgui->name);
-  wv->name = xstrdup (wv->name);
-  wv->accel = LISP_TO_VOID (gui_item_accelerator (gui_item));
+  if (accel_p)
+    {
+      wv->name = add_accel_and_to_external (pgui->name);
+      wv->accel = LISP_TO_VOID (gui_item_accelerator (gui_item));
+    }
+  else
+    {
+      LISP_STRING_TO_EXTERNAL_MALLOC (pgui->name, wv->name, Qlwlib_encoding);
+      wv->accel = LISP_TO_VOID (Qnil);
+    }

 
   if (!NILP (pgui->suffix))
     {
 
   if (!NILP (pgui->suffix))
     {

-      const char *const_bogosity;

       Lisp_Object suffix2;
 
       /* Shortcut to avoid evaluating suffix each time */
       Lisp_Object suffix2;
 
       /* Shortcut to avoid evaluating suffix each time */

@@ -433,11 +451,7 @@ button_item_to_widget_value (Lisp_Object gui_object_instance,
          CHECK_STRING (suffix2);
        }
 
          CHECK_STRING (suffix2);
        }
 

-      TO_EXTERNAL_FORMAT (LISP_STRING, suffix2,
-                         C_STRING_ALLOCA, const_bogosity,
-                         Qfile_name);
-      wv->value = (char *) const_bogosity;
-      wv->value = xstrdup (wv->value);
+      LISP_STRING_TO_EXTERNAL_MALLOC (suffix2, wv->value, Qlwlib_encoding);

     }
 
   wv_set_evalable_slot (wv->enabled, pgui->active);
     }
 
   wv_set_evalable_slot (wv->enabled, pgui->active);

@@ -459,7 +473,7 @@ button_item_to_widget_value (Lisp_Object gui_object_instance,
       CHECK_STRING (pgui->keys);
       pgui->keys = Fsubstitute_command_keys (pgui->keys);
       if (XSTRING_LENGTH (pgui->keys) > 0)
       CHECK_STRING (pgui->keys);
       pgui->keys = Fsubstitute_command_keys (pgui->keys);
       if (XSTRING_LENGTH (pgui->keys) > 0)

-       wv->key = xstrdup ((char *) XSTRING_DATA (pgui->keys));
+       LISP_STRING_TO_EXTERNAL_MALLOC (pgui->keys, wv->key, Qlwlib_encoding);

       else
        wv->key = 0;
     }
       else
        wv->key = 0;
     }

@@ -469,7 +483,7 @@ button_item_to_widget_value (Lisp_Object gui_object_instance,
       /* #### Warning, dependency here on current_buffer and point */
       where_is_to_char (pgui->callback, buf);
       if (buf [0])
       /* #### Warning, dependency here on current_buffer and point */
       where_is_to_char (pgui->callback, buf);
       if (buf [0])

-       wv->key = xstrdup (buf);
+       C_STRING_TO_EXTERNAL_MALLOC (buf, wv->key, Qlwlib_encoding);

       else
        wv->key = 0;
     }
       else
        wv->key = 0;
     }

@@ -477,14 +491,19 @@ button_item_to_widget_value (Lisp_Object gui_object_instance,
   CHECK_SYMBOL (pgui->style);
   if (NILP (pgui->style))
     {
   CHECK_SYMBOL (pgui->style);
   if (NILP (pgui->style))
     {

+      Bufbyte *intname;
+      Bytecount intlen;

       /* If the callback is nil, treat this item like unselectable text.
         This way, dashes will show up as a separator. */
       if (!wv->enabled)
        wv->type = BUTTON_TYPE;
       /* If the callback is nil, treat this item like unselectable text.
         This way, dashes will show up as a separator. */
       if (!wv->enabled)
        wv->type = BUTTON_TYPE;

-      if (separator_string_p (wv->name))
+      TO_INTERNAL_FORMAT (C_STRING, wv->name,
+                         ALLOCA, (intname, intlen),
+                         Qlwlib_encoding);
+      if (separator_string_p (intname))

        {
          wv->type = SEPARATOR_TYPE;
        {
          wv->type = SEPARATOR_TYPE;

-         wv->value = menu_separator_style (wv->name);
+         wv->value = menu_separator_style_and_to_external (intname);

        }
       else
        {
        }
       else
        {

@@ -517,27 +536,29 @@ button_item_to_widget_value (Lisp_Object gui_object_instance,
 #endif
     }
   else
 #endif
     }
   else

-    signal_simple_error_2 ("Unknown style", pgui->style, gui_item);
+    syntax_error_2 ("Unknown style", pgui->style, gui_item);

 
   if (!allow_text_field_p && (wv->type == TEXT_TYPE))
 
   if (!allow_text_field_p && (wv->type == TEXT_TYPE))

-    signal_simple_error ("Text field not allowed in this context", gui_item);
+    syntax_error ("Text field not allowed in this context", gui_item);

 
   if (!NILP (pgui->selected) && EQ (pgui->style, Qtext))
 
   if (!NILP (pgui->selected) && EQ (pgui->style, Qtext))

-    signal_simple_error (
-                        ":selected only makes sense with :style toggle, radio or button",
-                        gui_item);
+    syntax_error
+      (":selected only makes sense with :style toggle, radio or button",
+       gui_item);

   return 1;
 }
 
 /* parse tree's of gui items into widget_value hierarchies */
   return 1;
 }
 
 /* parse tree's of gui items into widget_value hierarchies */

-static void gui_item_children_to_widget_values (Lisp_Object gui_object_instance,
+static void gui_item_children_to_widget_values (Lisp_Object
+                                               gui_object_instance,

                                                Lisp_Object items,
                                                Lisp_Object items,

-                                               widget_value* parent);
+                                               widget_value* parent,
+                                               int accel_p);

 
 static widget_value *
 gui_items_to_widget_values_1 (Lisp_Object gui_object_instance,
                              Lisp_Object items, widget_value* parent,
 
 static widget_value *
 gui_items_to_widget_values_1 (Lisp_Object gui_object_instance,
                              Lisp_Object items, widget_value* parent,

-                             widget_value* prev)
+                             widget_value* prev, int accel_p)

 {
   widget_value* wv = 0;
 
 {
   widget_value* wv = 0;
 

@@ -545,13 +566,13 @@ gui_items_to_widget_values_1 (Lisp_Object gui_object_instance,
   /* now walk the tree creating widget_values as appropriate */
   if (!CONSP (items))
     {
   /* now walk the tree creating widget_values as appropriate */
   if (!CONSP (items))
     {

-      wv = xmalloc_widget_value();
+      wv = xmalloc_widget_value ();

       if (parent)
        parent->contents = wv;
       else
        prev->next = wv;
       if (!button_item_to_widget_value (gui_object_instance,
       if (parent)
        parent->contents = wv;
       else
        prev->next = wv;
       if (!button_item_to_widget_value (gui_object_instance,

-                                       items, wv, 0, 1, 0))
+                                       items, wv, 0, 1, 0, accel_p))

        {
          free_widget_value_tree (wv);
          if (parent)
        {
          free_widget_value_tree (wv);
          if (parent)

@@ -560,32 +581,31 @@ gui_items_to_widget_values_1 (Lisp_Object gui_object_instance,
            prev->next = 0;
        }
       else
            prev->next = 0;
        }
       else

-       {
-         wv->value = xstrdup (wv->name);       /* what a mess... */
-       }
+       wv->value = xstrdup (wv->name); /* what a mess... */

     }
   else
     {
       /* first one is the parent */
       if (CONSP (XCAR (items)))
     }
   else
     {
       /* first one is the parent */
       if (CONSP (XCAR (items)))

-       signal_simple_error ("parent item must not be a list", XCAR (items));
+       syntax_error ("parent item must not be a list", XCAR (items));

 
       if (parent)
        wv = gui_items_to_widget_values_1 (gui_object_instance,
 
       if (parent)
        wv = gui_items_to_widget_values_1 (gui_object_instance,

-                                          XCAR (items), parent, 0);
+                                          XCAR (items), parent, 0, accel_p);

       else
        wv = gui_items_to_widget_values_1 (gui_object_instance,
       else
        wv = gui_items_to_widget_values_1 (gui_object_instance,

-                                          XCAR (items), 0, prev);
+                                          XCAR (items), 0, prev, accel_p);

       /* the rest are the children */
       gui_item_children_to_widget_values (gui_object_instance,
       /* the rest are the children */
       gui_item_children_to_widget_values (gui_object_instance,

-                                         XCDR (items), wv);
+                                         XCDR (items), wv, accel_p);

     }
   return wv;
 }
 
 static void
 gui_item_children_to_widget_values (Lisp_Object gui_object_instance,
     }
   return wv;
 }
 
 static void
 gui_item_children_to_widget_values (Lisp_Object gui_object_instance,

-                                   Lisp_Object items, widget_value* parent)
+                                   Lisp_Object items, widget_value* parent,
+                                   int accel_p)

 {
   widget_value* wv = 0, *prev = 0;
   Lisp_Object rest;
 {
   widget_value* wv = 0, *prev = 0;
   Lisp_Object rest;

@@ -593,27 +613,28 @@ gui_item_children_to_widget_values (Lisp_Object gui_object_instance,
 
   /* first one is master */
   prev = gui_items_to_widget_values_1 (gui_object_instance, XCAR (items),
 
   /* first one is master */
   prev = gui_items_to_widget_values_1 (gui_object_instance, XCAR (items),

-                                      parent, 0);
+                                      parent, 0, accel_p);

   /* the rest are the children */
   LIST_LOOP (rest, XCDR (items))
     {
       Lisp_Object tab = XCAR (rest);
   /* the rest are the children */
   LIST_LOOP (rest, XCDR (items))
     {
       Lisp_Object tab = XCAR (rest);

-      wv = gui_items_to_widget_values_1 (gui_object_instance, tab, 0, prev);
+      wv = gui_items_to_widget_values_1 (gui_object_instance, tab, 0, prev,
+                                        accel_p);

       prev = wv;
     }
 }
 
 widget_value *
       prev = wv;
     }
 }
 
 widget_value *

-gui_items_to_widget_values (Lisp_Object gui_object_instance, Lisp_Object items)
+gui_items_to_widget_values (Lisp_Object gui_object_instance, Lisp_Object items,
+                           int accel_p)

 {
 {

-  /* !!#### This function has not been Mule-ized */

   /* This function can GC */
   widget_value *control = 0, *tmp = 0;
   int count = specpdl_depth ();
   Lisp_Object wv_closure;
 
   if (NILP (items))
   /* This function can GC */
   widget_value *control = 0, *tmp = 0;
   int count = specpdl_depth ();
   Lisp_Object wv_closure;
 
   if (NILP (items))

-    signal_simple_error ("must have some items", items);
+    syntax_error ("must have some items", items);

 
   /* Inhibit GC during this conversion.  The reasons for this are
      the same as in menu_item_descriptor_to_widget_value(); see
 
   /* Inhibit GC during this conversion.  The reasons for this are
      the same as in menu_item_descriptor_to_widget_value(); see

@@ -624,11 +645,12 @@ gui_items_to_widget_values (Lisp_Object gui_object_instance, Lisp_Object items)
 
   /* Also make sure that we free the partially-created widget_value
      tree on Lisp error. */
 
   /* Also make sure that we free the partially-created widget_value
      tree on Lisp error. */

-  control = xmalloc_widget_value();
+  control = xmalloc_widget_value ();

   wv_closure = make_opaque_ptr (control);
   record_unwind_protect (widget_value_unwind, wv_closure);
 
   wv_closure = make_opaque_ptr (control);
   record_unwind_protect (widget_value_unwind, wv_closure);
 

-  gui_items_to_widget_values_1 (gui_object_instance, items, control, 0);
+  gui_items_to_widget_values_1 (gui_object_instance, items, control, 0,
+                               accel_p);

 
   /* mess about getting the data we really want */
   tmp = control;
 
   /* mess about getting the data we really want */
   tmp = control;

@@ -706,8 +728,6 @@ void
 syms_of_gui_x (void)
 {
   INIT_LRECORD_IMPLEMENTATION (popup_data);
 syms_of_gui_x (void)
 {
   INIT_LRECORD_IMPLEMENTATION (popup_data);

-
-  defsymbol (&Qmenu_no_selection_hook, "menu-no-selection-hook");

 }
 
 void
 }
 
 void

@@ -729,14 +749,4 @@ vars_of_gui_x (void)
 
   Vpopup_callbacks = Qnil;
   staticpro (&Vpopup_callbacks);
 
   Vpopup_callbacks = Qnil;
   staticpro (&Vpopup_callbacks);

-
-#if 0
-  /* This DEFVAR_LISP is just for the benefit of make-docfile. */
-  /* #### misnamed */
-  DEFVAR_LISP ("menu-no-selection-hook", &Vmenu_no_selection_hook /*
-Function or functions to call when a menu or dialog box is dismissed
-without a selection having been made.
-*/ );
-#endif
-  Fset (Qmenu_no_selection_hook, Qnil);

 }
 }