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
e686c647
Commit
e686c647
authored
Feb 24, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(syms_of_cmds): New var `overwrite-binary-mode'.
(internal_self_insert): Handle that var.
parent
e4535288
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
2 deletions
+10
-2
src/cmds.c
src/cmds.c
+10
-2
No files found.
src/cmds.c
View file @
e686c647
...
...
@@ -26,6 +26,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
Lisp_Object
Qkill_forward_chars
,
Qkill_backward_chars
,
Vblink_paren_function
;
int
overwrite_binary_mode
;
DEFUN
(
"forward-char"
,
Fforward_char
,
Sforward_char
,
0
,
1
,
"p"
,
"Move point right ARG characters (left if ARG negative).
\n
\
...
...
@@ -277,8 +278,9 @@ internal_self_insert (c1, noautofill)
if
(
!
NILP
(
current_buffer
->
overwrite_mode
)
&&
point
<
ZV
&&
c
!=
'\n'
&&
FETCH_CHAR
(
point
)
!=
'\n'
&&
(
FETCH_CHAR
(
point
)
!=
'\t'
&&
(
overwrite_binary_mode
||
(
c
!=
'\n'
&&
FETCH_CHAR
(
point
)
!=
'\n'
))
&&
(
overwrite_binary_mode
||
FETCH_CHAR
(
point
)
!=
'\t'
||
XINT
(
current_buffer
->
tab_width
)
<=
0
||
!
((
current_column
()
+
1
)
%
XFASTINT
(
current_buffer
->
tab_width
))))
{
...
...
@@ -332,6 +334,12 @@ syms_of_cmds ()
Qkill_forward_chars
=
intern
(
"kill-forward-chars"
);
staticpro
(
&
Qkill_forward_chars
);
DEFVAR_BOOL
(
"overwrite-binary-mode"
,
&
overwrite_binary_mode
,
"*Non-nil means overwrite mode treats tab and newline normally.
\n
\
Ordinarily, overwriting preserves a tab until its whole width is overwritten
\n
\
and never replaces a newline."
);
overwrite_tabs_mode
=
1
;
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."
);
...
...
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