(Fbuffer_local_value, Fbarf_if_buffer_read_only):

Use xsignal1.

diff --git a/src/buffer.c b/src/buffer.c
index 722b9460a27558ad09d2a2e1941ba67c2081512a..fcb842de83c547b03e39025c9936e01b77539e1f 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -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;
 }