Mercurial > emacs

comparison src/xdisp.c @ 30202:bade676e0950

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eval_form): Make it externally visible.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 13 Jul 2000 23:45:21 +0000
parents 1b0331a7c724
children 394c884dc496
comparison
equal deleted inserted replaced
30201:7438876dc5c9 30202:bade676e0950
626 static int string_char_and_length P_ ((unsigned char *, int, int *)); 626 static int string_char_and_length P_ ((unsigned char *, int, int *));
627 static struct text_pos display_prop_end P_ ((struct it *, Lisp_Object, 627 static struct text_pos display_prop_end P_ ((struct it *, Lisp_Object,
628 struct text_pos)); 628 struct text_pos));
629 static int compute_window_start_on_continuation_line P_ ((struct window *)); 629 static int compute_window_start_on_continuation_line P_ ((struct window *));
630 static Lisp_Object eval_handler P_ ((Lisp_Object)); 630 static Lisp_Object eval_handler P_ ((Lisp_Object));
631 static Lisp_Object eval_form P_ ((Lisp_Object));
632 static void insert_left_trunc_glyphs P_ ((struct it *)); 631 static void insert_left_trunc_glyphs P_ ((struct it *));
633 static struct glyph_row *get_overlay_arrow_glyph_row P_ ((struct window *)); 632 static struct glyph_row *get_overlay_arrow_glyph_row P_ ((struct window *));
634 static void extend_face_to_end_of_line P_ ((struct it *)); 633 static void extend_face_to_end_of_line P_ ((struct it *));
635 static int append_space P_ ((struct it *, int)); 634 static int append_space P_ ((struct it *, int));
636 static void make_cursor_line_fully_visible P_ ((struct window *)); 635 static void make_cursor_line_fully_visible P_ ((struct window *));
1061 1060
1062 1061
1063 /* Evaluate SEXPR and return the result, or nil if something went 1062 /* Evaluate SEXPR and return the result, or nil if something went
1064 wrong. */ 1063 wrong. */
1065 1064
1066 static Lisp_Object 1065 Lisp_Object
1067 eval_form (sexpr) 1066 eval_form (sexpr)
1068 Lisp_Object sexpr; 1067 Lisp_Object sexpr;
1069 { 1068 {
1070 int count = specpdl_ptr - specpdl; 1069 int count = specpdl_ptr - specpdl;
1071 Lisp_Object val; 1070 Lisp_Object val;