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
c756cdbe
Commit
c756cdbe
authored
Jul 25, 2000
by
Gerd Moellmann
Browse files
(window_display_table): Cleaned up.
parent
487522fe
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
13 deletions
+14
-13
src/window.c
src/window.c
+14
-13
No files found.
src/window.c
View file @
c756cdbe
...
...
@@ -895,20 +895,21 @@ struct Lisp_Char_Table *
window_display_table
(
w
)
struct
window
*
w
;
{
Lisp_Object
tem
;
tem
=
w
->
display_table
;
if
(
DISP_TABLE_P
(
tem
))
return
XCHAR_TABLE
(
tem
);
if
(
NILP
(
w
->
buffer
))
return
0
;
struct
Lisp_Char_Table
*
dp
=
NULL
;
if
(
DISP_TABLE_P
(
w
->
display_table
))
dp
=
XCHAR_TABLE
(
w
->
display_table
);
else
if
(
BUFFERP
(
w
->
buffer
))
{
struct
buffer
*
b
=
XBUFFER
(
w
->
buffer
);
if
(
DISP_TABLE_P
(
b
->
display_table
))
dp
=
XCHAR_TABLE
(
b
->
display_table
);
else
if
(
DISP_TABLE_P
(
Vstandard_display_table
))
dp
=
XCHAR_TABLE
(
Vstandard_display_table
);
}
tem
=
XBUFFER
(
w
->
buffer
)
->
display_table
;
if
(
DISP_TABLE_P
(
tem
))
return
XCHAR_TABLE
(
tem
);
tem
=
Vstandard_display_table
;
if
(
DISP_TABLE_P
(
tem
))
return
XCHAR_TABLE
(
tem
);
return
0
;
return
dp
;
}
DEFUN
(
"set-window-display-table"
,
Fset_window_display_table
,
Sset_window_display_table
,
2
,
2
,
0
,
...
...
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