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
2f787aa3
Commit
2f787aa3
authored
Jan 10, 1995
by
Karl Heuer
Browse files
(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