Mercurial > emacs
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))) |