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
cd645247
Commit
cd645247
authored
Apr 11, 1991
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Initial revision
parent
695d13c7
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
427 additions
and
0 deletions
+427
-0
src/cmds.c
src/cmds.c
+357
-0
src/commands.h
src/commands.h
+70
-0
No files found.
src/cmds.c
0 → 100644
View file @
cd645247
/* Simple built-in editing commands.
Copyright (C) 1985 Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "config.h"
#include "lisp.h"
#include "commands.h"
#include "buffer.h"
#include "syntax.h"
Lisp_Object
Qkill_forward_chars
,
Qkill_backward_chars
,
Vblink_paren_function
;
DEFUN
(
"forward-char"
,
Fforward_char
,
Sforward_char
,
0
,
1
,
"p"
,
"Move point right ARG characters (left if ARG negative).
\n
\
On reaching end of buffer, stop and signal error."
)
(
n
)
Lisp_Object
n
;
{
if
(
NULL
(
n
))
XFASTINT
(
n
)
=
1
;
else
CHECK_NUMBER
(
n
,
0
);
SET_PT
(
point
+
XINT
(
n
));
if
(
point
<
BEGV
)
{
SET_PT
(
BEGV
);
Fsignal
(
Qbeginning_of_buffer
,
Qnil
);
}
if
(
point
>
ZV
)
{
SET_PT
(
ZV
);
Fsignal
(
Qend_of_buffer
,
Qnil
);
}
return
Qnil
;
}
DEFUN
(
"backward-char"
,
Fbackward_char
,
Sbackward_char
,
0
,
1
,
"p"
,
"Move point left ARG characters (right if ARG negative).
\n
\
On attempt to pass beginning or end of buffer, stop and signal error."
)
(
n
)
Lisp_Object
n
;
{
if
(
NULL
(
n
))
XFASTINT
(
n
)
=
1
;
else
CHECK_NUMBER
(
n
,
0
);
XSETINT
(
n
,
-
XINT
(
n
));
return
Fforward_char
(
n
);
}
DEFUN
(
"forward-line"
,
Fforward_line
,
Sforward_line
,
0
,
1
,
"p"
,
"Move ARG lines forward (backward if ARG is negative).
\n
\
Precisely, if point is on line I, move to the start of line I + ARG.
\n
\
If there isn't room, go as far as possible (no error).
\n
\
Returns the count of lines left to move. If moving forward,
\n
\
that is ARG - number of lines moved; if backward, ARG + number moved.
\n
\
With positive ARG, a non-empty line at the end counts as one line
\n
\
successfully moved (for the return value)."
)
(
n
)
Lisp_Object
n
;
{
int
pos2
=
point
;
int
pos
;
int
count
,
shortage
,
negp
;
if
(
NULL
(
n
))
count
=
1
;
else
{
CHECK_NUMBER
(
n
,
0
);
count
=
XINT
(
n
);
}
negp
=
count
<=
0
;
pos
=
scan_buffer
(
'\n'
,
pos2
,
count
-
negp
,
&
shortage
);
if
(
shortage
>
0
&&
(
negp
||
(
ZV
>=
BEGV
&&
FETCH_CHAR
(
pos
-
1
)
!=
'\n'
)))
shortage
--
;
SET_PT
(
pos
);
return
make_number
(
negp
?
-
shortage
:
shortage
);
}
DEFUN
(
"beginning-of-line"
,
Fbeginning_of_line
,
Sbeginning_of_line
,
0
,
1
,
"p"
,
"Move point to beginning of current line.
\n
\
With argument ARG not nil or 1, move forward ARG - 1 lines first.
\n
\
If scan reaches end of buffer, stop there without error."
)
(
n
)
Lisp_Object
n
;
{
if
(
NULL
(
n
))
XFASTINT
(
n
)
=
1
;
else
CHECK_NUMBER
(
n
,
0
);
Fforward_line
(
make_number
(
XINT
(
n
)
-
1
));
return
Qnil
;
}
DEFUN
(
"end-of-line"
,
Fend_of_line
,
Send_of_line
,
0
,
1
,
"p"
,
"Move point to end of current line.
\n
\
With argument ARG not nil or 1, move forward ARG - 1 lines first.
\n
\
If scan reaches end of buffer, stop there without error."
)
(
n
)
Lisp_Object
n
;
{
register
int
pos
;
register
int
stop
;
if
(
NULL
(
n
))
XFASTINT
(
n
)
=
1
;
else
CHECK_NUMBER
(
n
,
0
);
if
(
XINT
(
n
)
!=
1
)
Fforward_line
(
make_number
(
XINT
(
n
)
-
1
));
pos
=
point
;
stop
=
ZV
;
while
(
pos
<
stop
&&
FETCH_CHAR
(
pos
)
!=
'\n'
)
pos
++
;
SET_PT
(
pos
);
return
Qnil
;
}
DEFUN
(
"delete-char"
,
Fdelete_char
,
Sdelete_char
,
1
,
2
,
"p
\n
P"
,
"Delete the following ARG characters (previous, with negative arg).
\n
\
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
\n
\
Interactively, ARG is the prefix arg, and KILLFLAG is set if
\n
\
ARG was explicitly specified."
)
(
n
,
killflag
)
Lisp_Object
n
,
killflag
;
{
CHECK_NUMBER
(
n
,
0
);
if
(
NULL
(
killflag
))
{
if
(
XINT
(
n
)
<
0
)
{
if
(
point
+
XINT
(
n
)
<
BEGV
)
Fsignal
(
Qbeginning_of_buffer
,
Qnil
);
else
del_range
(
point
+
XINT
(
n
),
point
);
}
else
{
if
(
point
+
XINT
(
n
)
>
ZV
)
Fsignal
(
Qend_of_buffer
,
Qnil
);
else
del_range
(
point
,
point
+
XINT
(
n
));
}
}
else
{
call1
(
Qkill_forward_chars
,
n
);
}
return
Qnil
;
}
DEFUN
(
"delete-backward-char"
,
Fdelete_backward_char
,
Sdelete_backward_char
,
1
,
2
,
"p
\n
P"
,
"Delete the previous ARG characters (following, with negative ARG).
\n
\
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
\n
\
Interactively, ARG is the prefix arg, and KILLFLAG is set if
\n
\
ARG was explicitly specified."
)
(
n
,
killflag
)
Lisp_Object
n
,
killflag
;
{
CHECK_NUMBER
(
n
,
0
);
return
Fdelete_char
(
make_number
(
-
XINT
(
n
)),
killflag
);
}
DEFUN
(
"self-insert-command"
,
Fself_insert_command
,
Sself_insert_command
,
1
,
1
,
"p"
,
"Insert the character you type.
\n
\
Whichever character you type to run this command is inserted."
)
(
arg
)
Lisp_Object
arg
;
{
CHECK_NUMBER
(
arg
,
0
);
/* Barf if the key that invoked this was not a character. */
if
(
XTYPE
(
last_command_char
)
!=
Lisp_Int
)
bitch_at_user
();
else
while
(
XINT
(
arg
)
>
0
)
{
XFASTINT
(
arg
)
--
;
/* Ok since old and new vals both nonneg */
internal_self_insert
(
XINT
(
last_command_char
),
XFASTINT
(
arg
)
!=
0
);
}
return
Qnil
;
}
DEFUN
(
"newline"
,
Fnewline
,
Snewline
,
0
,
1
,
"P"
,
"Insert a newline. With arg, insert that many newlines.
\n
\
In Auto Fill mode, if no numeric arg, break the preceding line if it's long."
)
(
arg1
)
Lisp_Object
arg1
;
{
int
flag
;
Lisp_Object
arg
;
char
c1
=
'\n'
;
arg
=
Fprefix_numeric_value
(
arg1
);
if
(
!
NULL
(
current_buffer
->
read_only
))
Fsignal
(
Qbuffer_read_only
,
Qnil
);
/* Inserting a newline at the end of a line
produces better redisplay in try_window_id
than inserting at the ebginning fo a line,
And the textual result is the same.
So if at beginning, pretend to be at the end.
Must avoid internal_self_insert in that case since point is wrong.
Luckily internal_self_insert's special features all do nothing in that case. */
flag
=
point
>
BEGV
&&
FETCH_CHAR
(
point
-
1
)
==
'\n'
;
if
(
flag
)
SET_PT
(
point
-
1
);
while
(
XINT
(
arg
)
>
0
)
{
if
(
flag
)
insert
(
&
c1
,
1
);
else
internal_self_insert
(
'\n'
,
!
NULL
(
arg1
));
XFASTINT
(
arg
)
--
;
/* Ok since old and new vals both nonneg */
}
if
(
flag
)
SET_PT
(
point
+
1
);
return
Qnil
;
}
internal_self_insert
(
c1
,
noautofill
)
char
c1
;
int
noautofill
;
{
extern
Lisp_Object
Fexpand_abbrev
();
int
hairy
=
0
;
Lisp_Object
tem
;
register
enum
syntaxcode
synt
;
register
int
c
=
c1
;
if
(
!
NULL
(
Vbefore_change_function
)
||
!
NULL
(
Vafter_change_function
))
hairy
=
1
;
if
(
!
NULL
(
current_buffer
->
overwrite_mode
)
&&
point
<
ZV
&&
c
!=
'\n'
&&
FETCH_CHAR
(
point
)
!=
'\n'
&&
(
FETCH_CHAR
(
point
)
!=
'\t'
||
XINT
(
current_buffer
->
tab_width
)
<=
0
||
!
((
current_column
()
+
1
)
%
XFASTINT
(
current_buffer
->
tab_width
))))
{
del_range
(
point
,
point
+
1
);
hairy
=
1
;
}
if
(
!
NULL
(
current_buffer
->
abbrev_mode
)
&&
SYNTAX
(
c
)
!=
Sword
&&
NULL
(
current_buffer
->
read_only
)
&&
point
>
BEGV
&&
SYNTAX
(
FETCH_CHAR
(
point
-
1
))
==
Sword
)
{
tem
=
Fexpand_abbrev
();
if
(
!
NULL
(
tem
))
hairy
=
1
;
}
if
((
c
==
' '
||
c
==
'\n'
)
&&
!
noautofill
&&
!
NULL
(
current_buffer
->
auto_fill_function
)
&&
current_column
()
>
XFASTINT
(
current_buffer
->
fill_column
))
{
if
(
c1
!=
'\n'
)
insert
(
&
c1
,
1
);
call0
(
current_buffer
->
auto_fill_function
);
if
(
c1
==
'\n'
)
insert
(
&
c1
,
1
);
hairy
=
1
;
}
else
insert
(
&
c1
,
1
);
synt
=
SYNTAX
(
c
);
if
((
synt
==
Sclose
||
synt
==
Smath
)
&&
!
NULL
(
Vblink_paren_function
)
&&
INTERACTIVE
)
{
call0
(
Vblink_paren_function
);
hairy
=
1
;
}
return
hairy
;
}
/* module initialization */
syms_of_cmds
()
{
Qkill_backward_chars
=
intern
(
"kill-backward-chars"
);
staticpro
(
&
Qkill_backward_chars
);
Qkill_forward_chars
=
intern
(
"kill-forward-chars"
);
staticpro
(
&
Qkill_forward_chars
);
DEFVAR_LISP
(
"blink-paren-function"
,
&
Vblink_paren_function
,
"Function called, if non-nil, whenever a close parenthesis is inserted.
\n
\
More precisely, a char with closeparen syntax is self-inserted."
);
Vblink_paren_function
=
Qnil
;
defsubr
(
&
Sforward_char
);
defsubr
(
&
Sbackward_char
);
defsubr
(
&
Sforward_line
);
defsubr
(
&
Sbeginning_of_line
);
defsubr
(
&
Send_of_line
);
defsubr
(
&
Sdelete_char
);
defsubr
(
&
Sdelete_backward_char
);
defsubr
(
&
Sself_insert_command
);
defsubr
(
&
Snewline
);
}
keys_of_cmds
()
{
int
n
;
initial_define_key
(
global_map
,
Ctl
(
'M'
),
"newline"
);
initial_define_key
(
global_map
,
Ctl
(
'I'
),
"self-insert-command"
);
for
(
n
=
040
;
n
<
0177
;
n
++
)
initial_define_key
(
global_map
,
n
,
"self-insert-command"
);
initial_define_key
(
global_map
,
Ctl
(
'A'
),
"beginning-of-line"
);
initial_define_key
(
global_map
,
Ctl
(
'B'
),
"backward-char"
);
initial_define_key
(
global_map
,
Ctl
(
'D'
),
"delete-char"
);
initial_define_key
(
global_map
,
Ctl
(
'E'
),
"end-of-line"
);
initial_define_key
(
global_map
,
Ctl
(
'F'
),
"forward-char"
);
initial_define_key
(
global_map
,
0177
,
"delete-backward-char"
);
}
src/commands.h
0 → 100644
View file @
cd645247
/* Definitions needed by most editing commands.
Copyright (C) 1985 Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define Ctl(c) ((c)&037)
/* Define the names of keymaps, just so people can refer to
them in calls to initial_define_key */
extern
Lisp_Object
global_map
;
extern
Lisp_Object
meta_map
;
extern
Lisp_Object
control_x_map
;
/* Keymap for mouse commands. */
extern
Lisp_Object
Vglobal_mouse_map
;
extern
Lisp_Object
Vminibuffer_local_map
;
extern
Lisp_Object
Vminibuffer_local_ns_map
;
/* keymap used for minibuffers when doing completion */
extern
Lisp_Object
Vminibuffer_local_completion_map
;
/* keymap used for minibuffers when doing completion and require a match */
extern
Lisp_Object
Vminibuffer_local_must_match_map
;
/* Last character of last key sequence. */
extern
Lisp_Object
last_command_char
;
/* Command character to be re-read, or -1 */
extern
int
unread_command_char
;
/* Previous command symbol found here for comparison */
extern
Lisp_Object
last_command
;
/* Nonzero means ^G can quit instantly */
extern
int
immediate_quit
;
extern
Lisp_Object
Vexecuting_macro
;
/* Nonzero if input is coming from the keyboard */
#define INTERACTIVE (NULL (Vexecuting_macro) && !noninteractive)
/* Set this nonzero to force reconsideration of mode line. */
extern
int
update_mode_lines
;
/* Nonzero means reading single-character input with prompt
so put cursor on minibuffer after the prompt. */
extern
int
cursor_in_echo_area
;
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