comparison src/insdel.c @ 82394:85a3f55b5fdf

(reset_var_on_error): Improve comment.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 15 Aug 2007 20:05:40 +0000
parents 5efb11ce173c
children c7d378d22b24 aaccdab0ee26
comparison
equal deleted inserted replaced
82393:f5d88662fe95 82394:85a3f55b5fdf
2136 2136
2137 #define FETCH_END \ 2137 #define FETCH_END \
2138 (! NILP (end_marker) ? Fmarker_position (end_marker) : end) 2138 (! NILP (end_marker) ? Fmarker_position (end_marker) : end)
2139 2139
2140 /* Set a variable to nil if an error occurred. 2140 /* Set a variable to nil if an error occurred.
2141 VAL is a cons-cell whose car is the variable name, and whose cdr is 2141 Don't change the variable if there was no error.
2142 either nil (to mean that there was indeed an error), or non-nil to mean 2142 VAL is a cons-cell (VARIABLE . NO-ERROR-FLAG).
2143 that the was no error (which thus causes this function to do 2143 VARIABLE is the variable to maybe set to nil.
2144 nothing). */ 2144 NO-ERROR-FLAG is nil if there was an error,
2145 anything else meaning no error (so this function does nothing). */
2145 Lisp_Object 2146 Lisp_Object
2146 reset_var_on_error (val) 2147 reset_var_on_error (val)
2147 Lisp_Object val; 2148 Lisp_Object val;
2148 { 2149 {
2149 if (NILP (XCDR (val))) 2150 if (NILP (XCDR (val)))