diff options
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 10 |
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. |
| 2146 | If the text under POSITION (which defaults to point) has the | 2146 | If 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 | } |