# HG changeset patch # User Kim F. Storm <storm@cua.dk> # Date 1153229147 0 # Node ID b0505e901bff7b5a2ee4bbee1314f9bf436dd5a2 # Parent 3254b987edcba40235f461cc5e3bf580d31e72c5 (Fbuffer_local_value, Fbarf_if_buffer_read_only): Use xsignal1. diff -r 3254b987edcb -r b0505e901bff src/buffer.c --- a/src/buffer.c Tue Jul 18 13:25:40 2006 +0000 +++ b/src/buffer.c Tue Jul 18 13:25:47 2006 +0000 @@ -938,10 +938,10 @@ result = XCDR (result); } - if (EQ (result, Qunbound)) - return Fsignal (Qvoid_variable, Fcons (variable, Qnil)); - - return result; + if (!EQ (result, Qunbound)) + return result; + + xsignal1 (Qvoid_variable, variable); } /* Return an alist of the Lisp-level buffer-local bindings of @@ -1961,7 +1961,7 @@ { if (!NILP (current_buffer->read_only) && NILP (Vinhibit_read_only)) - Fsignal (Qbuffer_read_only, (Fcons (Fcurrent_buffer (), Qnil))); + xsignal1 (Qbuffer_read_only, Fcurrent_buffer ()); return Qnil; }