aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 3e410670c54..98b61c350e2 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2145,16 +2145,16 @@ DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only,
2145 doc: /* Signal a `buffer-read-only' error if the current buffer is read-only. 2145 doc: /* Signal a `buffer-read-only' error if the current buffer is read-only.
2146If the text under POSITION (which defaults to point) has the 2146If the text under POSITION (which defaults to point) has the
2147`inhibit-read-only' text property set, the error will not be raised. */) 2147`inhibit-read-only' text property set, the error will not be raised. */)
2148 (Lisp_Object pos) 2148 (Lisp_Object position)
2149{ 2149{
2150 if (NILP (pos)) 2150 if (NILP (position))
2151 XSETFASTINT (pos, PT); 2151 XSETFASTINT (position, PT);
2152 else 2152 else
2153 CHECK_NUMBER (pos); 2153 CHECK_NUMBER (position);
2154 2154
2155 if (!NILP (BVAR (current_buffer, read_only)) 2155 if (!NILP (BVAR (current_buffer, read_only))
2156 && NILP (Vinhibit_read_only) 2156 && NILP (Vinhibit_read_only)
2157 && NILP (Fget_text_property (pos, Qinhibit_read_only, Qnil))) 2157 && NILP (Fget_text_property (position, Qinhibit_read_only, Qnil)))
2158 xsignal1 (Qbuffer_read_only, Fcurrent_buffer ()); 2158 xsignal1 (Qbuffer_read_only, Fcurrent_buffer ());
2159 return Qnil; 2159 return Qnil;
2160} 2160}