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
d917be71
Commit
d917be71
authored
Jan 17, 1995
by
Karl Heuer
Browse files
(message_dolog): Ignore narrowing.
Use low-level functions, to bypass modification and motion hooks.
parent
155ef550
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
8 deletions
+11
-8
src/xdisp.c
src/xdisp.c
+11
-8
No files found.
src/xdisp.c
View file @
d917be71
...
...
@@ -212,7 +212,9 @@ int line_number_display_limit;
t means infinite. nil means don't log at all. */
Lisp_Object
Vmessage_log_max
;
/* Add a string to the message log, optionally terminated with a newline. */
/* Add a string to the message log, optionally terminated with a newline.
This function calls low-level routines in order to bypass text property
hooks, etc. which might not be safe to run. */
void
message_dolog
(
m
,
len
,
nlflag
)
...
...
@@ -229,6 +231,8 @@ message_dolog (m, len, nlflag)
oldpoint
=
PT
;
oldbegv
=
BEGV
;
oldzv
=
ZV
;
BEGV
=
BEG
;
ZV
=
Z
;
if
(
oldpoint
==
Z
)
oldpoint
+=
len
+
nlflag
;
if
(
oldzv
==
Z
)
...
...
@@ -240,13 +244,12 @@ message_dolog (m, len, nlflag)
insert_1
(
"
\n
"
,
1
,
1
,
0
);
if
(
NATNUMP
(
Vmessage_log_max
))
{
Lisp_Object
n
;
XSETINT
(
n
,
-
XFASTINT
(
Vmessage_log_max
));
Fforward_line
(
n
);
oldpoint
-=
min
(
PT
,
oldpoint
)
-
BEG
;
oldbegv
-=
min
(
PT
,
oldbegv
)
-
BEG
;
oldzv
-=
min
(
PT
,
oldzv
)
-
BEG
;
del_range
(
BEG
,
PT
);
int
pos
=
scan_buffer
(
'\n'
,
PT
,
0
,
-
XFASTINT
(
Vmessage_log_max
)
-
1
,
0
,
1
);
oldpoint
-=
min
(
pos
,
oldpoint
)
-
BEG
;
oldbegv
-=
min
(
pos
,
oldbegv
)
-
BEG
;
oldzv
-=
min
(
pos
,
oldzv
)
-
BEG
;
del_range_1
(
BEG
,
pos
,
0
);
}
BEGV
=
oldbegv
;
ZV
=
oldzv
;
...
...
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