Mercurial > emacs

changeset 71968:b0505e901bff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbuffer_local_value, Fbarf_if_buffer_read_only): Use xsignal1.
author Kim F. Storm <storm@cua.dk>
date Tue, 18 Jul 2006 13:25:47 +0000
parents 3254b987edcb
children 34c5e405ed37
files src/buffer.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }