[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: echo-area-clear-hook definition?
From: |
Pavel Janík |
Subject: |
Re: echo-area-clear-hook definition? |
Date: |
Mon, 29 Oct 2001 17:32:29 +0100 |
User-agent: |
Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.1.50 (i386-suse-linux-gnu) |
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