mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(Fbuffer_local_value, Fbarf_if_buffer_read_only):

Browse source 
Use xsignal1.
This commit is contained in:
Kim F. Storm 2006-07-18 13:25:47 +00:00
parent 9b306d3759
commit 4c4dc0b09b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/buffer.c
View file

@ -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;
}