Re: Q on performance with 10000 faces

[Eli Zaretskii]

> From: Stefan Monnier <address@hidden>
> Date: Tue, 23 May 2006 07:08:47 -0400
> Cc: address@hidden
> 
> I use the patch below (under GNU/Linux) to provide a `moncontrol' elisp file
> that allows me to start/stop C profiling so I can start it once I get into
> a "strangely slow" state.

I think this is a good idea, and it will work on MS-Windows as well,
at least in the MinGW build.

Richard, is it okay for Stefan to install the patch below?  I don't
see how can it possibly do any harm.

> --- orig/src/emacs.c
> +++ mod/src/emacs.c
> @@ -1769,7 +1777,7 @@
>        defined on all systems now.  */
>        monstartup (safe_bcopy, &etext);
>      }
> -  else
> +  /* else */
>      moncontrol (0);
>  #endif
>  #endif
> @@ -1791,6 +1799,14 @@
>    return 0;
>  }
>  
> +DEFUN ("moncontrol", Fmoncontrol, Smoncontrol, 1, 1, 0,
> +                             /* doc: toggle profiling.  */)
> +     (arg)
> +     Lisp_Object arg;
> +{
> +  return moncontrol (!NILP (arg)) ? Qt : Qnil;
> +}
> +
>  /* Sort the args so we can find the most important ones
>     at the beginning of argv.  */
>  
> @@ -2450,6 +2466,7 @@
>  
>    defsubr (&Sinvocation_name);
>    defsubr (&Sinvocation_directory);
> +  defsubr (&Smoncontrol);
>  
>    DEFVAR_LISP ("command-line-args", &Vcommand_line_args,
>              doc: /* Args passed by shell to Emacs, as a list of strings.