From: Kim F. Storm <storm@cua.dk>
Date: Tue, 18 Jul 2006 13:25:47 +0000 (+0000)
Subject: (Fbuffer_local_value, Fbarf_if_buffer_read_only):
X-Git-Tag: emacs-pretest-22.0.90~1380
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c4dc0b09b15549b690d3a1baae7a3152acc67ee;p=emacs.git

(Fbuffer_local_value, Fbarf_if_buffer_read_only):
Use xsignal1.
---

diff --git a/src/buffer.c b/src/buffer.c
index 722b9460a27..fcb842de83c 100644
--- 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;
 }