Mercurial > hg > xemacs-beta

comparison src/window.c @ 2212:51a17f29fab3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-08-12 14:51:34 by james] Remove unused local variables.
author james
date Thu, 12 Aug 2004 14:51:35 +0000
parents 6a91a3c8f1dc
children 04bc9d2f42c7
comparison
equal deleted inserted replaced
2211:518f43ab0991 2212:51a17f29fab3
1099 For a given window, return the width in pixels of the specified margin. 1099 For a given window, return the width in pixels of the specified margin.
1100 ****************************************************************************/ 1100 ****************************************************************************/
1101 static int 1101 static int
1102 margin_width_internal (struct window *w, int left_margin) 1102 margin_width_internal (struct window *w, int left_margin)
1103 { 1103 {
1104 struct buffer *b;
1105 int window_cwidth = window_char_width (w, 1); 1104 int window_cwidth = window_char_width (w, 1);
1106 int margin_cwidth; 1105 int margin_cwidth;
1107 int font_width; 1106 int font_width;
1108 Lisp_Object window; 1107 Lisp_Object window;
1109 1108
1114 /* The minibuffer never has margins. */ 1113 /* The minibuffer never has margins. */
1115 if (MINI_WINDOW_P (w)) 1114 if (MINI_WINDOW_P (w))
1116 return 0; 1115 return 0;
1117 1116
1118 window = wrap_window (w); 1117 window = wrap_window (w);
1119 b = XBUFFER (w->buffer);
1120 margin_cwidth = (left_margin ? XINT (w->left_margin_width) : 1118 margin_cwidth = (left_margin ? XINT (w->left_margin_width) :
1121 XINT (w->right_margin_width)); 1119 XINT (w->right_margin_width));
1122 1120
1123 default_face_height_and_width (window, 0, &font_width); 1121 default_face_height_and_width (window, 0, &font_width);
1124 1122