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
5ce7b543
Commit
5ce7b543
authored
May 06, 1994
by
Karl Heuer
Browse files
Use PT, not point.
parent
ac7ad037
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
12 deletions
+12
-12
src/window.c
src/window.c
+12
-12
No files found.
src/window.c
View file @
5ce7b543
...
...
@@ -197,7 +197,7 @@ POS defaults to point; WINDOW, to the selected window.")
int
hscroll
;
if
(
NILP
(
pos
))
posint
=
point
;
posint
=
PT
;
else
{
CHECK_NUMBER_COERCE_MARKER
(
pos
,
0
);
...
...
@@ -1361,7 +1361,7 @@ value is reasonable when this function is called.")
window_loop
(
DELETE_OTHER_WINDOWS
,
window
,
0
,
WINDOW_FRAME
(
w
));
Fset_buffer
(
w
->
buffer
);
opoint
=
point
;
opoint
=
PT
;
SET_PT
(
marker_position
(
w
->
start
));
/* Like Frecenter but avoid setting w->force_start. */
Fvertical_motion
(
make_number
(
-
(
top
-
FRAME_MENU_BAR_LINES
(
XFRAME
(
WINDOW_FRAME
(
w
))))),
...
...
@@ -2196,28 +2196,28 @@ window_scroll (window, n, noerror)
int
noerror
;
{
register
struct
window
*
w
=
XWINDOW
(
window
);
register
int
opoint
=
point
;
register
int
opoint
=
PT
;
register
int
pos
;
register
int
ht
=
window_internal_height
(
w
);
register
Lisp_Object
tem
;
int
lose
;
Lisp_Object
bolp
,
nmoved
;
XFASTINT
(
tem
)
=
point
;
XFASTINT
(
tem
)
=
PT
;
tem
=
Fpos_visible_in_window_p
(
tem
,
window
);
if
(
NILP
(
tem
))
{
Fvertical_motion
(
make_number
(
-
(
ht
/
2
)),
window
);
XFASTINT
(
tem
)
=
point
;
XFASTINT
(
tem
)
=
PT
;
Fset_marker
(
w
->
start
,
tem
,
w
->
buffer
);
w
->
force_start
=
Qt
;
}
SET_PT
(
marker_position
(
w
->
start
));
lose
=
n
<
0
&&
point
==
BEGV
;
lose
=
n
<
0
&&
PT
==
BEGV
;
Fvertical_motion
(
make_number
(
n
),
window
);
pos
=
point
;
pos
=
PT
;
bolp
=
Fbolp
();
SET_PT
(
opoint
);
...
...
@@ -2241,7 +2241,7 @@ window_scroll (window, n, noerror)
{
SET_PT
(
pos
);
tem
=
Fvertical_motion
(
make_number
(
ht
),
window
);
if
(
point
>
opoint
||
XFASTINT
(
tem
)
<
ht
)
if
(
PT
>
opoint
||
XFASTINT
(
tem
)
<
ht
)
SET_PT
(
opoint
);
else
Fvertical_motion
(
make_number
(
-
1
),
window
);
...
...
@@ -2384,7 +2384,7 @@ showing that buffer, popping the buffer up if necessary.")
window_scroll
(
window
,
XINT
(
n
),
1
);
}
Fset_marker
(
w
->
pointm
,
make_number
(
point
),
Qnil
);
Fset_marker
(
w
->
pointm
,
make_number
(
PT
),
Qnil
);
unbind_to
(
count
,
Qnil
);
return
Qnil
;
...
...
@@ -2436,7 +2436,7 @@ redraws with point in the center of the current window.")
{
register
struct
window
*
w
=
XWINDOW
(
selected_window
);
register
int
ht
=
window_internal_height
(
w
);
register
int
opoint
=
point
;
register
int
opoint
=
PT
;
Lisp_Object
window
;
if
(
NILP
(
n
))
...
...
@@ -2463,7 +2463,7 @@ redraws with point in the center of the current window.")
XSET
(
window
,
Lisp_Window
,
w
);
Fvertical_motion
(
n
,
window
);
Fset_marker
(
w
->
start
,
make_number
(
point
),
w
->
buffer
);
Fset_marker
(
w
->
start
,
make_number
(
PT
),
w
->
buffer
);
w
->
start_at_line_beg
=
Fbolp
();
SET_PT
(
opoint
);
...
...
@@ -2500,7 +2500,7 @@ negative means relative to bottom of window.")
if
(
start
<
BEGV
||
start
>
ZV
)
{
Fvertical_motion
(
make_number
(
-
(
height
/
2
)),
window
);
Fset_marker
(
w
->
start
,
make_number
(
point
),
w
->
buffer
);
Fset_marker
(
w
->
start
,
make_number
(
PT
),
w
->
buffer
);
w
->
start_at_line_beg
=
Fbolp
();
w
->
force_start
=
Qt
;
}
...
...
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