Re: echo-area-clear-hook definition?

[Pavel Janík]

   From: address@hidden (Gerd Moellmann)
   Date: 29 Oct 2001 09:45:56 +0100

   > Since echo-area-clear-hook is described in the Lisp reference, I'd say
   > it should have a DEFVAR_LISP.

What about this patch?

--- keyboard.c.~1.634.~ Sun Oct 28 19:25:35 2001
+++ keyboard.c  Mon Oct 29 12:31:14 2001
@@ -437,7 +437,7 @@
 Lisp_Object Vlucid_menu_bar_dirty_flag;
 Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook;
 
-Lisp_Object Qecho_area_clear_hook;
+Lisp_Object Qecho_area_clear_hook, Vecho_area_clear_hook;
 
 /* Hooks to run before and after each command.  */
 Lisp_Object Qpre_command_hook, Vpre_command_hook;
@@ -10281,6 +10281,9 @@
   Qpost_command_idle_hook = intern ("post-command-idle-hook");
   staticpro (&Qpost_command_idle_hook);
 
+  Qecho_area_clear_hook = intern ("echo-area-clear-hook");
+  staticpro (&Qecho_area_clear_hook);
+
   Qdeferred_action_function = intern ("deferred-action-function");
   staticpro (&Qdeferred_action_function);
 
@@ -10720,12 +10723,9 @@
 This is measured in microseconds.  */);
   post_command_idle_delay = 100000;
 
-#if 0
-  DEFVAR_LISP ("echo-area-clear-hook", ...,
+  DEFVAR_LISP ("echo-area-clear-hook", &Vecho_area_clear_hook,
               doc: /* Normal hook run when clearing the echo area.  */);
-#endif
-  Qecho_area_clear_hook = intern ("echo-area-clear-hook");
-  SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil);
+  Vecho_area_clear_hook = Qnil;
 
   DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,
               doc: /* t means menu bar, specified Lucid style, needs to be 
recomputed.  */);

BTW - there must be some reason that this hook was not defined as others...
-- 
Pavel Janík

/* These are the most dangerous and useful defines. They do printk() during
 * the interrupt processing routine(s), so if you manage to get "flooded" by
 * irq's, start thinking about the "Power off/on" button... */
                  -- 2.2.16 drivers/sbus/char/aurora.h