procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Refine previous change.

Browse source
This commit is contained in:
Xue Fuqiao 2013-08-14 22:02:46 +08:00
parent 7510a061cb
commit d48d97ee4a
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/marker.c
View file

@ -536,8 +536,11 @@ set_marker_internal (Lisp_Object marker, Lisp_Object position,
DEFUN ("set-marker", Fset_marker, Sset_marker, 2, 3, 0,
doc: /* Position MARKER before character number POSITION in BUFFER.
If BUFFER is omitted or nil, it defaults to the current buffer. If
POSITION is nil, makes marker point nowhere so it no longer slows down
editing in any buffer. Returns MARKER. */)
POSITION is less than 1, MARKER is moved to the beginning of the
buffer. If POSITION is greater than the size of the buffer, marker is
moved to the end of the buffer. If POSITION is nil, makes marker
point nowhere so it no longer slows down editing in any buffer.
Returns MARKER. */)
(Lisp_Object marker, Lisp_Object position, Lisp_Object buffer)
{
return set_marker_internal (marker, position, buffer, 0);