Commit 4c4dc0b0 authored by Kim F. Storm's avatar Kim F. Storm

(Fbuffer_local_value, Fbarf_if_buffer_read_only):

Use xsignal1.
parent 9b306d37
......@@ -938,10 +938,10 @@ is the default binding of the variable. */)
result = XCDR (result);
}
if (EQ (result, Qunbound))
return Fsignal (Qvoid_variable, Fcons (variable, Qnil));
if (!EQ (result, Qunbound))
return result;
return result;
xsignal1 (Qvoid_variable, variable);
}
/* Return an alist of the Lisp-level buffer-local bindings of
......@@ -1961,7 +1961,7 @@ DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only,
{
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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment