Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3fff2dfa
Commit
3fff2dfa
authored
Feb 11, 1993
by
Richard M. Stallman
Browse files
(Finsert_buffer_substring): Proper error for non-ex buffer.
(Fcompare_buffer_substrings): Likewise.
parent
e9cf2084
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
5 deletions
+14
-5
src/editfns.c
src/editfns.c
+14
-5
No files found.
src/editfns.c
View file @
3fff2dfa
...
...
@@ -763,9 +763,12 @@ They default to the beginning and the end of BUFFER.")
{
register
int
beg
,
end
,
temp
,
len
,
opoint
,
start
;
register
struct
buffer
*
bp
;
Lisp_Object
buffer
;
buf
=
Fget_buffer
(
buf
);
bp
=
XBUFFER
(
buf
);
buffer
=
Fget_buffer
(
buf
);
if
(
NILP
(
buffer
))
nsberror
(
buf
);
bp
=
XBUFFER
(
buffer
);
if
(
NILP
(
b
))
beg
=
BUF_BEGV
(
bp
);
...
...
@@ -842,8 +845,11 @@ determines whether case is significant or ignored.")
bp1
=
current_buffer
;
else
{
buffer1
=
Fget_buffer
(
buffer1
);
bp1
=
XBUFFER
(
buffer1
);
Lisp_Object
buf1
;
buf1
=
Fget_buffer
(
buffer1
);
if
(
NILP
(
buf1
))
nsberror
(
buffer1
);
bp1
=
XBUFFER
(
buf1
);
}
if
(
NILP
(
start1
))
...
...
@@ -875,7 +881,10 @@ determines whether case is significant or ignored.")
bp2
=
current_buffer
;
else
{
buffer2
=
Fget_buffer
(
buffer2
);
Lisp_Object
buf2
;
buf2
=
Fget_buffer
(
buffer2
);
if
(
NILP
(
buf2
))
nsberror
(
buffer2
);
bp2
=
XBUFFER
(
buffer2
);
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment