mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

(Fset_window_fringes): Do nothing on a tty.

Browse Source 
(Fwindow_fringes): Put ? operator after the line break.
This commit is contained in:
Nick Roberts 2006-08-17 21:00:44 +00:00
parent 454e31b372
commit d46c6df554
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/window.c
View File

@ -6656,10 +6656,12 @@ display marginal areas and the text area. */)
CHECK_NATNUM (left_width);
if (!NILP (right_width))
CHECK_NATNUM (right_width);
if (!EQ (w->left_fringe_width, left_width)
|| !EQ (w->right_fringe_width, right_width)
|| !EQ (w->fringes_outside_margins, outside_margins))
/* Do nothing on a tty. */
if (FRAME_WINDOW_P (WINDOW_XFRAME (w))
&& (!EQ (w->left_fringe_width, left_width)
|| !EQ (w->right_fringe_width, right_width)
|| !EQ (w->fringes_outside_margins, outside_margins)))
{
w->left_fringe_width = left_width;
w->right_fringe_width = right_width;
@ -6687,10 +6689,11 @@ Value is a list of the form (LEFT-WIDTH RIGHT-WIDTH OUTSIDE-MARGINS). */)
Lisp_Object window;
{
struct window *w = decode_window (window);
return Fcons (make_number (WINDOW_LEFT_FRINGE_WIDTH (w)),
Fcons (make_number (WINDOW_RIGHT_FRINGE_WIDTH (w)),
Fcons ((WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w) ?
Qt : Qnil), Qnil)));
Fcons ((WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w)
? Qt : Qnil), Qnil)));
}