emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

change-major-mode-hook


From: Chong Yidong
Subject: change-major-mode-hook
Date: Sat, 05 Aug 2006 15:04:49 -0400

Is there any deep reason why change-major-mode-hook isn't explicitly
defined?  How about this patch?

*** emacs/src/buffer.c.~1.505.~ 2006-07-18 09:35:12.000000000 -0400
--- emacs/src/buffer.c  2006-08-05 15:02:26.000000000 -0400
***************
*** 146,151 ****
--- 146,154 ----
  Lisp_Object Vkill_buffer_query_functions;
  Lisp_Object Qkill_buffer_query_functions;
  
+ /* Hook run before changing a major mode.  */
+ Lisp_Object Vchange_major_mode_hook, Qchange_major_mode_hook;
+ 
  /* List of functions to call before changing an unmodified buffer.  */
  Lisp_Object Vfirst_change_hook;
  
***************
*** 2386,2392 ****
    Lisp_Object oalist;
  
    if (!NILP (Vrun_hooks))
!     call1 (Vrun_hooks, intern ("change-major-mode-hook"));
    oalist = current_buffer->local_var_alist;
  
    /* Make sure none of the bindings in oalist
--- 2389,2395 ----
    Lisp_Object oalist;
  
    if (!NILP (Vrun_hooks))
!     call1 (Vrun_hooks, Qchange_major_mode_hook);
    oalist = current_buffer->local_var_alist;
  
    /* Make sure none of the bindings in oalist
***************
*** 5998,6003 ****
--- 6001,6013 ----
               doc: /* List of functions called with no args to query before 
killing a buffer.  */);
    Vkill_buffer_query_functions = Qnil;
  
+   DEFVAR_LISP ("change-major-mode-hook", &Vchange_major_mode_hook,
+              doc: /* Normal hook run before changing the major mode of a 
buffer.
+ The function `kill-all-local-variables' runs this before doing anything else. 
 */);
+   Vchange_major_mode_hook = Qnil;
+   Qchange_major_mode_hook = intern ("change-major-mode-hook");
+   staticpro (&Qchange_major_mode_hook);
+ 
    defsubr (&Sbuffer_live_p);
    defsubr (&Sbuffer_list);
    defsubr (&Sget_buffer);




reply via email to

[Prev in Thread] Current Thread [Next in Thread]