view src/unexsol.c @ 48222:14763abde487

(latex-standard-block-names): Rename from standard-latex-block-names. (tex-font-lock-keywords-1): Add providecommand, renewenvironment, and renewtheorem. Highlight \it and \bf separately since they may overlap. (tex-font-lock-suscript, tex-font-lock-unfontify-region): New funs. (tex-font-lock-keywords-3, tex-verbatim-environments) (tex-font-lock-syntactic-keywords): New vars. (superscript, subscript, tex-verbatim-face): New faces. (tex-font-lock-syntactic-face-function): Handle \verb construct. (tex-common-initialization): Update font-lock-defaults setting. (tex-insert-braces): Make it into a skeleton. (latex-fill-nobreak-predicate): Don't break after \. (latex-insert-block): Rename from tex-latex-block. (latex-down-list): Use tex-mode-syntax-table when skipping parens rather than the indentation syntax-table. (latex-close-block): Rename from tex-close-latex-block. (latex-split-block): New fun. (latex-indent): Don't indent inside a verbatim block. (latex-find-indent): Stick \begin{verbatim} to the margin.

/* Trivial unexec for Solaris.  */

#include <config.h>
#include <stdlib.h>
#include <dlfcn.h>

#include "lisp.h"
#include "buffer.h"
#include "charset.h"
#include "coding.h"

int
unexec (char *new_name, char *old_name, unsigned int data_start,
        unsigned int bss_start, unsigned int entry_address)
{
  Lisp_Object data;
  Lisp_Object errstring;

  if (! dldump (0, new_name, RTLD_MEMORY))
    return 0;

  data = Fcons (build_string (new_name), Qnil);
  synchronize_system_messages_locale ();
  errstring = code_convert_string_norecord (build_string (dlerror ()),
					    Vlocale_coding_system, 0);

  Fsignal (Qfile_error,
	   Fcons (build_string ("Cannot unexec"), Fcons (errstring, data)));
}