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
2f787aa3
Commit
2f787aa3
authored
Jan 10, 1995
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fscroll_other_window): On small windows, scroll by 1 line.
parent
5023d9a0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
src/window.c
src/window.c
+5
-4
No files found.
src/window.c
View file @
2f787aa3
...
...
@@ -2580,14 +2580,15 @@ showing that buffer, popping the buffer up if necessary.")
register
Lisp_Object
n
;
{
register
Lisp_Object
window
;
register
int
h
t
;
register
int
defal
t
;
register
struct
window
*
w
;
register
int
count
=
specpdl_ptr
-
specpdl
;
window
=
Fother_window_for_scrolling
();
w
=
XWINDOW
(
window
);
ht
=
window_internal_height
(
w
);
defalt
=
window_internal_height
(
w
)
-
next_screen_context_lines
;
if
(
defalt
<
1
)
defalt
=
1
;
/* Don't screw up if window_scroll gets an error. */
record_unwind_protect
(
save_excursion_restore
,
save_excursion_save
());
...
...
@@ -2596,9 +2597,9 @@ showing that buffer, popping the buffer up if necessary.")
SET_PT
(
marker_position
(
w
->
pointm
));
if
(
NILP
(
n
))
window_scroll
(
window
,
ht
-
next_screen_context_lines
,
1
);
window_scroll
(
window
,
defalt
,
1
);
else
if
(
EQ
(
n
,
Qminus
))
window_scroll
(
window
,
next_screen_context_lines
-
h
t
,
1
);
window_scroll
(
window
,
-
defal
t
,
1
);
else
{
if
(
CONSP
(
n
))
...
...
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