Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9ae750f0
Commit
9ae750f0
authored
Apr 02, 2008
by
Chong Yidong
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fforward_char, Fbackward_char, Fforward_line)
(Fbeginning_of_line, Fend_of_line): Add ^ interactive spec.
parent
526c9df9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
src/cmds.c
src/cmds.c
+5
-5
No files found.
src/cmds.c
View file @
9ae750f0
...
...
@@ -56,7 +56,7 @@ DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0,
return
make_number
(
PT
+
XINT
(
n
));
}
DEFUN
(
"forward-char"
,
Fforward_char
,
Sforward_char
,
0
,
1
,
"p"
,
DEFUN
(
"forward-char"
,
Fforward_char
,
Sforward_char
,
0
,
1
,
"
^
p"
,
doc
:
/* Move point right N characters (left if N is negative).
On reaching end of buffer, stop and signal error. */
)
(
n
)
...
...
@@ -92,7 +92,7 @@ On reaching end of buffer, stop and signal error. */)
return
Qnil
;
}
DEFUN
(
"backward-char"
,
Fbackward_char
,
Sbackward_char
,
0
,
1
,
"p"
,
DEFUN
(
"backward-char"
,
Fbackward_char
,
Sbackward_char
,
0
,
1
,
"
^
p"
,
doc
:
/* Move point left N characters (right if N is negative).
On attempt to pass beginning or end of buffer, stop and signal error. */
)
(
n
)
...
...
@@ -107,7 +107,7 @@ On attempt to pass beginning or end of buffer, stop and signal error. */)
return
Fforward_char
(
n
);
}
DEFUN
(
"forward-line"
,
Fforward_line
,
Sforward_line
,
0
,
1
,
"p"
,
DEFUN
(
"forward-line"
,
Fforward_line
,
Sforward_line
,
0
,
1
,
"
^
p"
,
doc
:
/* Move N lines forward (backward if N is negative).
Precisely, if point is on line I, move to the start of line I + N.
If there isn't room, go as far as possible (no error).
...
...
@@ -153,7 +153,7 @@ With positive N, a non-empty line at the end counts as one line
return
make_number
(
count
<=
0
?
-
shortage
:
shortage
);
}
DEFUN
(
"beginning-of-line"
,
Fbeginning_of_line
,
Sbeginning_of_line
,
0
,
1
,
"p"
,
DEFUN
(
"beginning-of-line"
,
Fbeginning_of_line
,
Sbeginning_of_line
,
0
,
1
,
"
^
p"
,
doc
:
/* Move point to beginning of current line.
With argument N not nil or 1, move forward N - 1 lines first.
If point reaches the beginning or end of buffer, it stops there.
...
...
@@ -178,7 +178,7 @@ instead. For instance, `(forward-line 0)' does the same thing as
return
Qnil
;
}
DEFUN
(
"end-of-line"
,
Fend_of_line
,
Send_of_line
,
0
,
1
,
"p"
,
DEFUN
(
"end-of-line"
,
Fend_of_line
,
Send_of_line
,
0
,
1
,
"
^
p"
,
doc
:
/* Move point to end of current line.
With argument N not nil or 1, move forward N - 1 lines first.
If point reaches the beginning or end of buffer, it stops there.
...
...
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