diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 34 | ||||
| -rw-r--r-- | src/alloc.c | 4 | ||||
| -rw-r--r-- | src/buffer.c | 48 | ||||
| -rw-r--r-- | src/callint.c | 6 | ||||
| -rw-r--r-- | src/callproc.c | 6 | ||||
| -rw-r--r-- | src/charset.c | 2 | ||||
| -rw-r--r-- | src/dosfns.c | 8 | ||||
| -rw-r--r-- | src/eval.c | 80 | ||||
| -rw-r--r-- | src/fileio.c | 4 | ||||
| -rw-r--r-- | src/fns.c | 4 | ||||
| -rw-r--r-- | src/fontset.c | 2 | ||||
| -rw-r--r-- | src/fringe.c | 2 | ||||
| -rw-r--r-- | src/gnutls.c | 28 | ||||
| -rw-r--r-- | src/gnutls.h | 5 | ||||
| -rw-r--r-- | src/indent.c | 2 | ||||
| -rw-r--r-- | src/lread.c | 2 | ||||
| -rw-r--r-- | src/minibuf.c | 11 | ||||
| -rw-r--r-- | src/msdos.c | 2 | ||||
| -rw-r--r-- | src/print.c | 4 | ||||
| -rw-r--r-- | src/process.c | 5 | ||||
| -rw-r--r-- | src/process.h | 1 | ||||
| -rw-r--r-- | src/syntax.c | 2 | ||||
| -rw-r--r-- | src/w32term.c | 4 | ||||
| -rw-r--r-- | src/xdisp.c | 62 | ||||
| -rw-r--r-- | src/xfaces.c | 4 | ||||
| -rw-r--r-- | src/xfns.c | 10 | ||||
| -rw-r--r-- | src/xsettings.c | 2 | ||||
| -rw-r--r-- | src/xterm.c | 4 |
28 files changed, 175 insertions, 173 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index df3336b52e1..7027e9e5a95 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | 2012-04-09 Paul Eggert <eggert@cs.ucla.edu> | 1 | 2012-04-09 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 2 | ||
| 3 | configure: new option --enable-gcc-warnings | 3 | configure: new option --enable-gcc-warnings (Bug#11207) |
| 4 | * Makefile.in (C_WARNINGS_SWITCH): Remove. | 4 | * Makefile.in (C_WARNINGS_SWITCH): Remove. |
| 5 | (WARN_CFLAGS, WERROR_CFLAGS): New macros. | 5 | (WARN_CFLAGS, WERROR_CFLAGS): New macros. |
| 6 | (ALL_CFLAGS): Use new macros rather than old. | 6 | (ALL_CFLAGS): Use new macros rather than old. |
| @@ -11,6 +11,38 @@ | |||
| 11 | the Emacs and Gnulib regex code is merged. | 11 | the Emacs and Gnulib regex code is merged. |
| 12 | (xmalloc, xrealloc): Now static. | 12 | (xmalloc, xrealloc): Now static. |
| 13 | 13 | ||
| 14 | 2012-04-09 Teodor Zlatanov <tzz@lifelogs.com> | ||
| 15 | |||
| 16 | * process.c (make_process): | ||
| 17 | * process.h: Add integer `gnutls_handshakes_tried' member to | ||
| 18 | process struct. | ||
| 19 | |||
| 20 | * gnutls.h: Add `GNUTLS_EMACS_HANDSHAKES_LIMIT' upper limit. Add | ||
| 21 | convenience `GNUTLS_LOG2i' macro. | ||
| 22 | |||
| 23 | * gnutls.c (gnutls_log_function2i): Convenience log function. | ||
| 24 | (emacs_gnutls_read): Use new log functions, | ||
| 25 | `gnutls_handshakes_tried' process member, and | ||
| 26 | `GNUTLS_EMACS_HANDSHAKES_LIMIT' to limit the number of handshake | ||
| 27 | attempts per process (connection). | ||
| 28 | |||
| 29 | 2012-04-09 Chong Yidong <cyd@gnu.org> | ||
| 30 | |||
| 31 | * eval.c (Fuser_variable_p, user_variable_p_eh) | ||
| 32 | (lisp_indirect_variable): Functions deleted. | ||
| 33 | (Fdefvar): Caller changed. | ||
| 34 | |||
| 35 | * callint.c (Finteractive, Fcall_interactively): | ||
| 36 | * minibuf.c (Fread_variable): Callers changed. | ||
| 37 | |||
| 38 | 2012-04-09 Eli Zaretskii <eliz@gnu.org> | ||
| 39 | |||
| 40 | * xdisp.c (set_cursor_from_row): If the display string appears in | ||
| 41 | the buffer at position that is closer to point than the position | ||
| 42 | after the display string, display the cursor on the first glyph of | ||
| 43 | the display string. Fixes cursor display when a 'display' text | ||
| 44 | property immediately follows invisible text. (Bug#11094) | ||
| 45 | |||
| 14 | 2012-04-09 Paul Eggert <eggert@cs.ucla.edu> | 46 | 2012-04-09 Paul Eggert <eggert@cs.ucla.edu> |
| 15 | 47 | ||
| 16 | composite.c: use 'double' consistently | 48 | composite.c: use 'double' consistently |
diff --git a/src/alloc.c b/src/alloc.c index 4cb0ae04664..16b004fc0e9 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -6413,7 +6413,7 @@ void | |||
| 6413 | syms_of_alloc (void) | 6413 | syms_of_alloc (void) |
| 6414 | { | 6414 | { |
| 6415 | DEFVAR_INT ("gc-cons-threshold", gc_cons_threshold, | 6415 | DEFVAR_INT ("gc-cons-threshold", gc_cons_threshold, |
| 6416 | doc: /* *Number of bytes of consing between garbage collections. | 6416 | doc: /* Number of bytes of consing between garbage collections. |
| 6417 | Garbage collection can happen automatically once this many bytes have been | 6417 | Garbage collection can happen automatically once this many bytes have been |
| 6418 | allocated since the last garbage collection. All data types count. | 6418 | allocated since the last garbage collection. All data types count. |
| 6419 | 6419 | ||
| @@ -6424,7 +6424,7 @@ prevent garbage collection during a part of the program. | |||
| 6424 | See also `gc-cons-percentage'. */); | 6424 | See also `gc-cons-percentage'. */); |
| 6425 | 6425 | ||
| 6426 | DEFVAR_LISP ("gc-cons-percentage", Vgc_cons_percentage, | 6426 | DEFVAR_LISP ("gc-cons-percentage", Vgc_cons_percentage, |
| 6427 | doc: /* *Portion of the heap used for allocation. | 6427 | doc: /* Portion of the heap used for allocation. |
| 6428 | Garbage collection can happen automatically once this portion of the heap | 6428 | Garbage collection can happen automatically once this portion of the heap |
| 6429 | has been allocated since the last garbage collection. | 6429 | has been allocated since the last garbage collection. |
| 6430 | If this portion is smaller than `gc-cons-threshold', this is ignored. */); | 6430 | If this portion is smaller than `gc-cons-threshold', this is ignored. */); |
diff --git a/src/buffer.c b/src/buffer.c index 3f9b2744e96..ca8d1ec5db3 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -5231,7 +5231,7 @@ This is the same as (default-value 'ctl-arrow). */); | |||
| 5231 | 5231 | ||
| 5232 | DEFVAR_BUFFER_DEFAULTS ("default-enable-multibyte-characters", | 5232 | DEFVAR_BUFFER_DEFAULTS ("default-enable-multibyte-characters", |
| 5233 | enable_multibyte_characters, | 5233 | enable_multibyte_characters, |
| 5234 | doc: /* *Default value of `enable-multibyte-characters' for buffers not overriding it. | 5234 | doc: /* Default value of `enable-multibyte-characters' for buffers not overriding it. |
| 5235 | This is the same as (default-value 'enable-multibyte-characters). */); | 5235 | This is the same as (default-value 'enable-multibyte-characters). */); |
| 5236 | 5236 | ||
| 5237 | DEFVAR_BUFFER_DEFAULTS ("default-buffer-file-coding-system", | 5237 | DEFVAR_BUFFER_DEFAULTS ("default-buffer-file-coding-system", |
| @@ -5393,7 +5393,7 @@ A string is printed verbatim in the mode line except for %-constructs: | |||
| 5393 | Decimal digits after the % specify field width to which to pad. */); | 5393 | Decimal digits after the % specify field width to which to pad. */); |
| 5394 | 5394 | ||
| 5395 | DEFVAR_BUFFER_DEFAULTS ("default-major-mode", major_mode, | 5395 | DEFVAR_BUFFER_DEFAULTS ("default-major-mode", major_mode, |
| 5396 | doc: /* *Value of `major-mode' for new buffers. */); | 5396 | doc: /* Value of `major-mode' for new buffers. */); |
| 5397 | 5397 | ||
| 5398 | DEFVAR_PER_BUFFER ("major-mode", &BVAR (current_buffer, major_mode), | 5398 | DEFVAR_PER_BUFFER ("major-mode", &BVAR (current_buffer, major_mode), |
| 5399 | make_number (Lisp_Symbol), | 5399 | make_number (Lisp_Symbol), |
| @@ -5424,25 +5424,25 @@ Use the command `abbrev-mode' to change this variable. */); | |||
| 5424 | 5424 | ||
| 5425 | DEFVAR_PER_BUFFER ("case-fold-search", &BVAR (current_buffer, case_fold_search), | 5425 | DEFVAR_PER_BUFFER ("case-fold-search", &BVAR (current_buffer, case_fold_search), |
| 5426 | Qnil, | 5426 | Qnil, |
| 5427 | doc: /* *Non-nil if searches and matches should ignore case. */); | 5427 | doc: /* Non-nil if searches and matches should ignore case. */); |
| 5428 | 5428 | ||
| 5429 | DEFVAR_PER_BUFFER ("fill-column", &BVAR (current_buffer, fill_column), | 5429 | DEFVAR_PER_BUFFER ("fill-column", &BVAR (current_buffer, fill_column), |
| 5430 | make_number (LISP_INT_TAG), | 5430 | make_number (LISP_INT_TAG), |
| 5431 | doc: /* *Column beyond which automatic line-wrapping should happen. | 5431 | doc: /* Column beyond which automatic line-wrapping should happen. |
| 5432 | Interactively, you can set the buffer local value using \\[set-fill-column]. */); | 5432 | Interactively, you can set the buffer local value using \\[set-fill-column]. */); |
| 5433 | 5433 | ||
| 5434 | DEFVAR_PER_BUFFER ("left-margin", &BVAR (current_buffer, left_margin), | 5434 | DEFVAR_PER_BUFFER ("left-margin", &BVAR (current_buffer, left_margin), |
| 5435 | make_number (LISP_INT_TAG), | 5435 | make_number (LISP_INT_TAG), |
| 5436 | doc: /* *Column for the default `indent-line-function' to indent to. | 5436 | doc: /* Column for the default `indent-line-function' to indent to. |
| 5437 | Linefeed indents to this column in Fundamental mode. */); | 5437 | Linefeed indents to this column in Fundamental mode. */); |
| 5438 | 5438 | ||
| 5439 | DEFVAR_PER_BUFFER ("tab-width", &BVAR (current_buffer, tab_width), | 5439 | DEFVAR_PER_BUFFER ("tab-width", &BVAR (current_buffer, tab_width), |
| 5440 | make_number (LISP_INT_TAG), | 5440 | make_number (LISP_INT_TAG), |
| 5441 | doc: /* *Distance between tab stops (for display of tab characters), in columns. | 5441 | doc: /* Distance between tab stops (for display of tab characters), in columns. |
| 5442 | This should be an integer greater than zero. */); | 5442 | This should be an integer greater than zero. */); |
| 5443 | 5443 | ||
| 5444 | DEFVAR_PER_BUFFER ("ctl-arrow", &BVAR (current_buffer, ctl_arrow), Qnil, | 5444 | DEFVAR_PER_BUFFER ("ctl-arrow", &BVAR (current_buffer, ctl_arrow), Qnil, |
| 5445 | doc: /* *Non-nil means display control chars with uparrow. | 5445 | doc: /* Non-nil means display control chars with uparrow. |
| 5446 | A value of nil means use backslash and octal digits. | 5446 | A value of nil means use backslash and octal digits. |
| 5447 | This variable does not apply to characters whose display is specified | 5447 | This variable does not apply to characters whose display is specified |
| 5448 | in the current display table (if there is one). */); | 5448 | in the current display table (if there is one). */); |
| @@ -5483,7 +5483,7 @@ This variable is never applied to a way of decoding a file while reading it. */ | |||
| 5483 | 5483 | ||
| 5484 | DEFVAR_PER_BUFFER ("bidi-paragraph-direction", | 5484 | DEFVAR_PER_BUFFER ("bidi-paragraph-direction", |
| 5485 | &BVAR (current_buffer, bidi_paragraph_direction), Qnil, | 5485 | &BVAR (current_buffer, bidi_paragraph_direction), Qnil, |
| 5486 | doc: /* *If non-nil, forces directionality of text paragraphs in the buffer. | 5486 | doc: /* If non-nil, forces directionality of text paragraphs in the buffer. |
| 5487 | 5487 | ||
| 5488 | If this is nil (the default), the direction of each paragraph is | 5488 | If this is nil (the default), the direction of each paragraph is |
| 5489 | determined by the first strong directional character of its text. | 5489 | determined by the first strong directional character of its text. |
| @@ -5494,7 +5494,7 @@ This variable has no effect unless the buffer's value of | |||
| 5494 | \`bidi-display-reordering' is non-nil. */); | 5494 | \`bidi-display-reordering' is non-nil. */); |
| 5495 | 5495 | ||
| 5496 | DEFVAR_PER_BUFFER ("truncate-lines", &BVAR (current_buffer, truncate_lines), Qnil, | 5496 | DEFVAR_PER_BUFFER ("truncate-lines", &BVAR (current_buffer, truncate_lines), Qnil, |
| 5497 | doc: /* *Non-nil means do not display continuation lines. | 5497 | doc: /* Non-nil means do not display continuation lines. |
| 5498 | Instead, give each line of text just one screen line. | 5498 | Instead, give each line of text just one screen line. |
| 5499 | 5499 | ||
| 5500 | Note that this is overridden by the variable | 5500 | Note that this is overridden by the variable |
| @@ -5504,7 +5504,7 @@ and this buffer is not full-frame width. | |||
| 5504 | Minibuffers set this variable to nil. */); | 5504 | Minibuffers set this variable to nil. */); |
| 5505 | 5505 | ||
| 5506 | DEFVAR_PER_BUFFER ("word-wrap", &BVAR (current_buffer, word_wrap), Qnil, | 5506 | DEFVAR_PER_BUFFER ("word-wrap", &BVAR (current_buffer, word_wrap), Qnil, |
| 5507 | doc: /* *Non-nil means to use word-wrapping for continuation lines. | 5507 | doc: /* Non-nil means to use word-wrapping for continuation lines. |
| 5508 | When word-wrapping is on, continuation lines are wrapped at the space | 5508 | When word-wrapping is on, continuation lines are wrapped at the space |
| 5509 | or tab character nearest to the right window edge. | 5509 | or tab character nearest to the right window edge. |
| 5510 | If nil, continuation lines are wrapped at the right screen edge. | 5510 | If nil, continuation lines are wrapped at the right screen edge. |
| @@ -5625,39 +5625,39 @@ See also the functions `display-table-slot' and `set-display-table-slot'. */); | |||
| 5625 | 5625 | ||
| 5626 | DEFVAR_PER_BUFFER ("left-margin-width", &BVAR (current_buffer, left_margin_cols), | 5626 | DEFVAR_PER_BUFFER ("left-margin-width", &BVAR (current_buffer, left_margin_cols), |
| 5627 | Qnil, | 5627 | Qnil, |
| 5628 | doc: /* *Width of left marginal area for display of a buffer. | 5628 | doc: /* Width of left marginal area for display of a buffer. |
| 5629 | A value of nil means no marginal area. */); | 5629 | A value of nil means no marginal area. */); |
| 5630 | 5630 | ||
| 5631 | DEFVAR_PER_BUFFER ("right-margin-width", &BVAR (current_buffer, right_margin_cols), | 5631 | DEFVAR_PER_BUFFER ("right-margin-width", &BVAR (current_buffer, right_margin_cols), |
| 5632 | Qnil, | 5632 | Qnil, |
| 5633 | doc: /* *Width of right marginal area for display of a buffer. | 5633 | doc: /* Width of right marginal area for display of a buffer. |
| 5634 | A value of nil means no marginal area. */); | 5634 | A value of nil means no marginal area. */); |
| 5635 | 5635 | ||
| 5636 | DEFVAR_PER_BUFFER ("left-fringe-width", &BVAR (current_buffer, left_fringe_width), | 5636 | DEFVAR_PER_BUFFER ("left-fringe-width", &BVAR (current_buffer, left_fringe_width), |
| 5637 | Qnil, | 5637 | Qnil, |
| 5638 | doc: /* *Width of this buffer's left fringe (in pixels). | 5638 | doc: /* Width of this buffer's left fringe (in pixels). |
| 5639 | A value of 0 means no left fringe is shown in this buffer's window. | 5639 | A value of 0 means no left fringe is shown in this buffer's window. |
| 5640 | A value of nil means to use the left fringe width from the window's frame. */); | 5640 | A value of nil means to use the left fringe width from the window's frame. */); |
| 5641 | 5641 | ||
| 5642 | DEFVAR_PER_BUFFER ("right-fringe-width", &BVAR (current_buffer, right_fringe_width), | 5642 | DEFVAR_PER_BUFFER ("right-fringe-width", &BVAR (current_buffer, right_fringe_width), |
| 5643 | Qnil, | 5643 | Qnil, |
| 5644 | doc: /* *Width of this buffer's right fringe (in pixels). | 5644 | doc: /* Width of this buffer's right fringe (in pixels). |
| 5645 | A value of 0 means no right fringe is shown in this buffer's window. | 5645 | A value of 0 means no right fringe is shown in this buffer's window. |
| 5646 | A value of nil means to use the right fringe width from the window's frame. */); | 5646 | A value of nil means to use the right fringe width from the window's frame. */); |
| 5647 | 5647 | ||
| 5648 | DEFVAR_PER_BUFFER ("fringes-outside-margins", &BVAR (current_buffer, fringes_outside_margins), | 5648 | DEFVAR_PER_BUFFER ("fringes-outside-margins", &BVAR (current_buffer, fringes_outside_margins), |
| 5649 | Qnil, | 5649 | Qnil, |
| 5650 | doc: /* *Non-nil means to display fringes outside display margins. | 5650 | doc: /* Non-nil means to display fringes outside display margins. |
| 5651 | A value of nil means to display fringes between margins and buffer text. */); | 5651 | A value of nil means to display fringes between margins and buffer text. */); |
| 5652 | 5652 | ||
| 5653 | DEFVAR_PER_BUFFER ("scroll-bar-width", &BVAR (current_buffer, scroll_bar_width), | 5653 | DEFVAR_PER_BUFFER ("scroll-bar-width", &BVAR (current_buffer, scroll_bar_width), |
| 5654 | Qnil, | 5654 | Qnil, |
| 5655 | doc: /* *Width of this buffer's scroll bars in pixels. | 5655 | doc: /* Width of this buffer's scroll bars in pixels. |
| 5656 | A value of nil means to use the scroll bar width from the window's frame. */); | 5656 | A value of nil means to use the scroll bar width from the window's frame. */); |
| 5657 | 5657 | ||
| 5658 | DEFVAR_PER_BUFFER ("vertical-scroll-bar", &BVAR (current_buffer, vertical_scroll_bar_type), | 5658 | DEFVAR_PER_BUFFER ("vertical-scroll-bar", &BVAR (current_buffer, vertical_scroll_bar_type), |
| 5659 | Qnil, | 5659 | Qnil, |
| 5660 | doc: /* *Position of this buffer's vertical scroll bar. | 5660 | doc: /* Position of this buffer's vertical scroll bar. |
| 5661 | The value takes effect whenever you tell a window to display this buffer; | 5661 | The value takes effect whenever you tell a window to display this buffer; |
| 5662 | for instance, with `set-window-buffer' or when `display-buffer' displays it. | 5662 | for instance, with `set-window-buffer' or when `display-buffer' displays it. |
| 5663 | 5663 | ||
| @@ -5667,13 +5667,13 @@ A value of t (the default) means do whatever the window's frame specifies. */); | |||
| 5667 | 5667 | ||
| 5668 | DEFVAR_PER_BUFFER ("indicate-empty-lines", | 5668 | DEFVAR_PER_BUFFER ("indicate-empty-lines", |
| 5669 | &BVAR (current_buffer, indicate_empty_lines), Qnil, | 5669 | &BVAR (current_buffer, indicate_empty_lines), Qnil, |
| 5670 | doc: /* *Visually indicate empty lines after the buffer end. | 5670 | doc: /* Visually indicate empty lines after the buffer end. |
| 5671 | If non-nil, a bitmap is displayed in the left fringe of a window on | 5671 | If non-nil, a bitmap is displayed in the left fringe of a window on |
| 5672 | window-systems. */); | 5672 | window-systems. */); |
| 5673 | 5673 | ||
| 5674 | DEFVAR_PER_BUFFER ("indicate-buffer-boundaries", | 5674 | DEFVAR_PER_BUFFER ("indicate-buffer-boundaries", |
| 5675 | &BVAR (current_buffer, indicate_buffer_boundaries), Qnil, | 5675 | &BVAR (current_buffer, indicate_buffer_boundaries), Qnil, |
| 5676 | doc: /* *Visually indicate buffer boundaries and scrolling. | 5676 | doc: /* Visually indicate buffer boundaries and scrolling. |
| 5677 | If non-nil, the first and last line of the buffer are marked in the fringe | 5677 | If non-nil, the first and last line of the buffer are marked in the fringe |
| 5678 | of a window on window-systems with angle bitmaps, or if the window can be | 5678 | of a window on window-systems with angle bitmaps, or if the window can be |
| 5679 | scrolled, the top and bottom line of the window are marked with up and down | 5679 | scrolled, the top and bottom line of the window are marked with up and down |
| @@ -5698,7 +5698,7 @@ fringe, but no arrow bitmaps, use ((top . left) (bottom . left)). */); | |||
| 5698 | 5698 | ||
| 5699 | DEFVAR_PER_BUFFER ("fringe-indicator-alist", | 5699 | DEFVAR_PER_BUFFER ("fringe-indicator-alist", |
| 5700 | &BVAR (current_buffer, fringe_indicator_alist), Qnil, | 5700 | &BVAR (current_buffer, fringe_indicator_alist), Qnil, |
| 5701 | doc: /* *Mapping from logical to physical fringe indicator bitmaps. | 5701 | doc: /* Mapping from logical to physical fringe indicator bitmaps. |
| 5702 | The value is an alist where each element (INDICATOR . BITMAPS) | 5702 | The value is an alist where each element (INDICATOR . BITMAPS) |
| 5703 | specifies the fringe bitmaps used to display a specific logical | 5703 | specifies the fringe bitmaps used to display a specific logical |
| 5704 | fringe indicator. | 5704 | fringe indicator. |
| @@ -5717,7 +5717,7 @@ symbol which is used in both left and right fringes. */); | |||
| 5717 | 5717 | ||
| 5718 | DEFVAR_PER_BUFFER ("fringe-cursor-alist", | 5718 | DEFVAR_PER_BUFFER ("fringe-cursor-alist", |
| 5719 | &BVAR (current_buffer, fringe_cursor_alist), Qnil, | 5719 | &BVAR (current_buffer, fringe_cursor_alist), Qnil, |
| 5720 | doc: /* *Mapping from logical to physical fringe cursor bitmaps. | 5720 | doc: /* Mapping from logical to physical fringe cursor bitmaps. |
| 5721 | The value is an alist where each element (CURSOR . BITMAP) | 5721 | The value is an alist where each element (CURSOR . BITMAP) |
| 5722 | specifies the fringe bitmaps used to display a specific logical | 5722 | specifies the fringe bitmaps used to display a specific logical |
| 5723 | cursor type in the fringe. | 5723 | cursor type in the fringe. |
| @@ -5881,7 +5881,7 @@ set when a file is visited. */); | |||
| 5881 | 5881 | ||
| 5882 | DEFVAR_PER_BUFFER ("buffer-auto-save-file-format", | 5882 | DEFVAR_PER_BUFFER ("buffer-auto-save-file-format", |
| 5883 | &BVAR (current_buffer, auto_save_file_format), Qnil, | 5883 | &BVAR (current_buffer, auto_save_file_format), Qnil, |
| 5884 | doc: /* *Format in which to write auto-save files. | 5884 | doc: /* Format in which to write auto-save files. |
| 5885 | Should be a list of symbols naming formats that are defined in `format-alist'. | 5885 | Should be a list of symbols naming formats that are defined in `format-alist'. |
| 5886 | If it is t, which is the default, auto-save files are written in the | 5886 | If it is t, which is the default, auto-save files are written in the |
| 5887 | same format as a regular save would use. */); | 5887 | same format as a regular save would use. */); |
| @@ -5931,7 +5931,7 @@ Lisp programs may give this variable certain special values: | |||
| 5931 | Vtransient_mark_mode = Qnil; | 5931 | Vtransient_mark_mode = Qnil; |
| 5932 | 5932 | ||
| 5933 | DEFVAR_LISP ("inhibit-read-only", Vinhibit_read_only, | 5933 | DEFVAR_LISP ("inhibit-read-only", Vinhibit_read_only, |
| 5934 | doc: /* *Non-nil means disregard read-only status of buffers or characters. | 5934 | doc: /* Non-nil means disregard read-only status of buffers or characters. |
| 5935 | If the value is t, disregard `buffer-read-only' and all `read-only' | 5935 | If the value is t, disregard `buffer-read-only' and all `read-only' |
| 5936 | text properties. If the value is a list, disregard `buffer-read-only' | 5936 | text properties. If the value is a list, disregard `buffer-read-only' |
| 5937 | and disregard a `read-only' text property if the property value | 5937 | and disregard a `read-only' text property if the property value |
| @@ -5966,7 +5966,7 @@ to the default frame line height. A value of nil means add no extra space. */) | |||
| 5966 | 5966 | ||
| 5967 | DEFVAR_PER_BUFFER ("cursor-in-non-selected-windows", | 5967 | DEFVAR_PER_BUFFER ("cursor-in-non-selected-windows", |
| 5968 | &BVAR (current_buffer, cursor_in_non_selected_windows), Qnil, | 5968 | &BVAR (current_buffer, cursor_in_non_selected_windows), Qnil, |
| 5969 | doc: /* *Non-nil means show a cursor in non-selected windows. | 5969 | doc: /* Non-nil means show a cursor in non-selected windows. |
| 5970 | If nil, only shows a cursor in the selected window. | 5970 | If nil, only shows a cursor in the selected window. |
| 5971 | If t, displays a cursor related to the usual cursor type | 5971 | If t, displays a cursor related to the usual cursor type |
| 5972 | \(a solid box becomes hollow, a bar becomes a narrower bar). | 5972 | \(a solid box becomes hollow, a bar becomes a narrower bar). |
diff --git a/src/callint.c b/src/callint.c index e09210f1bb6..c70082e8ae0 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -97,7 +97,7 @@ r -- Region: point and mark as 2 numeric args, smallest first. Does no I/O. | |||
| 97 | s -- Any string. Does not inherit the current input method. | 97 | s -- Any string. Does not inherit the current input method. |
| 98 | S -- Any symbol. | 98 | S -- Any symbol. |
| 99 | U -- Mouse up event discarded by a previous k or K argument. | 99 | U -- Mouse up event discarded by a previous k or K argument. |
| 100 | v -- Variable name: symbol that is user-variable-p. | 100 | v -- Variable name: symbol that is `custom-variable-p'. |
| 101 | x -- Lisp expression read but not evaluated. | 101 | x -- Lisp expression read but not evaluated. |
| 102 | X -- Lisp expression read and evaluated. | 102 | X -- Lisp expression read and evaluated. |
| 103 | z -- Coding system. | 103 | z -- Coding system. |
| @@ -748,7 +748,7 @@ invoke it. If KEYS is omitted or nil, the return value of | |||
| 748 | break; | 748 | break; |
| 749 | 749 | ||
| 750 | case 'v': /* Variable name: symbol that is | 750 | case 'v': /* Variable name: symbol that is |
| 751 | user-variable-p. */ | 751 | custom-variable-p. */ |
| 752 | args[i] = Fread_variable (callint_message, Qnil); | 752 | args[i] = Fread_variable (callint_message, Qnil); |
| 753 | visargs[i] = last_minibuf_string; | 753 | visargs[i] = last_minibuf_string; |
| 754 | break; | 754 | break; |
| @@ -945,7 +945,7 @@ may be set by the debugger as a reminder for itself. */); | |||
| 945 | Vcommand_debug_status = Qnil; | 945 | Vcommand_debug_status = Qnil; |
| 946 | 946 | ||
| 947 | DEFVAR_LISP ("mark-even-if-inactive", Vmark_even_if_inactive, | 947 | DEFVAR_LISP ("mark-even-if-inactive", Vmark_even_if_inactive, |
| 948 | doc: /* *Non-nil means you can use the mark even when inactive. | 948 | doc: /* Non-nil means you can use the mark even when inactive. |
| 949 | This option makes a difference in Transient Mark mode. | 949 | This option makes a difference in Transient Mark mode. |
| 950 | When the option is non-nil, deactivation of the mark | 950 | When the option is non-nil, deactivation of the mark |
| 951 | turns off region highlighting, but commands that use the mark | 951 | turns off region highlighting, but commands that use the mark |
diff --git a/src/callproc.c b/src/callproc.c index b5b8cadeb68..9528c9644d8 100644 --- a/src/callproc.c +++ b/src/callproc.c | |||
| @@ -1637,16 +1637,16 @@ syms_of_callproc (void) | |||
| 1637 | staticpro (&Vtemp_file_name_pattern); | 1637 | staticpro (&Vtemp_file_name_pattern); |
| 1638 | 1638 | ||
| 1639 | DEFVAR_LISP ("shell-file-name", Vshell_file_name, | 1639 | DEFVAR_LISP ("shell-file-name", Vshell_file_name, |
| 1640 | doc: /* *File name to load inferior shells from. | 1640 | doc: /* File name to load inferior shells from. |
| 1641 | Initialized from the SHELL environment variable, or to a system-dependent | 1641 | Initialized from the SHELL environment variable, or to a system-dependent |
| 1642 | default if SHELL is not set. */); | 1642 | default if SHELL is not set. */); |
| 1643 | 1643 | ||
| 1644 | DEFVAR_LISP ("exec-path", Vexec_path, | 1644 | DEFVAR_LISP ("exec-path", Vexec_path, |
| 1645 | doc: /* *List of directories to search programs to run in subprocesses. | 1645 | doc: /* List of directories to search programs to run in subprocesses. |
| 1646 | Each element is a string (directory name) or nil (try default directory). */); | 1646 | Each element is a string (directory name) or nil (try default directory). */); |
| 1647 | 1647 | ||
| 1648 | DEFVAR_LISP ("exec-suffixes", Vexec_suffixes, | 1648 | DEFVAR_LISP ("exec-suffixes", Vexec_suffixes, |
| 1649 | doc: /* *List of suffixes to try to find executable file names. | 1649 | doc: /* List of suffixes to try to find executable file names. |
| 1650 | Each element is a string. */); | 1650 | Each element is a string. */); |
| 1651 | Vexec_suffixes = Qnil; | 1651 | Vexec_suffixes = Qnil; |
| 1652 | 1652 | ||
diff --git a/src/charset.c b/src/charset.c index 57e1603fc19..7b963a94800 100644 --- a/src/charset.c +++ b/src/charset.c | |||
| @@ -2403,7 +2403,7 @@ syms_of_charset (void) | |||
| 2403 | defsubr (&Ssort_charsets); | 2403 | defsubr (&Ssort_charsets); |
| 2404 | 2404 | ||
| 2405 | DEFVAR_LISP ("charset-map-path", Vcharset_map_path, | 2405 | DEFVAR_LISP ("charset-map-path", Vcharset_map_path, |
| 2406 | doc: /* *List of directories to search for charset map files. */); | 2406 | doc: /* List of directories to search for charset map files. */); |
| 2407 | Vcharset_map_path = Qnil; | 2407 | Vcharset_map_path = Qnil; |
| 2408 | 2408 | ||
| 2409 | DEFVAR_BOOL ("inhibit-load-charset-map", inhibit_load_charset_map, | 2409 | DEFVAR_BOOL ("inhibit-load-charset-map", inhibit_load_charset_map, |
diff --git a/src/dosfns.c b/src/dosfns.c index 8ef672fb8bb..d4b96e9df90 100644 --- a/src/dosfns.c +++ b/src/dosfns.c | |||
| @@ -710,7 +710,7 @@ Implicitly modified when the TZ variable is changed. */); | |||
| 710 | #endif | 710 | #endif |
| 711 | 711 | ||
| 712 | DEFVAR_LISP ("dos-display-scancodes", Vdos_display_scancodes, | 712 | DEFVAR_LISP ("dos-display-scancodes", Vdos_display_scancodes, |
| 713 | doc: /* *Controls whether DOS raw keyboard events are displayed as you type. | 713 | doc: /* Whether DOS raw keyboard events are displayed as you type. |
| 714 | When non-nil, the keyboard scan-codes are displayed at the bottom right | 714 | When non-nil, the keyboard scan-codes are displayed at the bottom right |
| 715 | corner of the display (typically at the end of the mode line). | 715 | corner of the display (typically at the end of the mode line). |
| 716 | The output format is: scan code:char code*modifiers. */); | 716 | The output format is: scan code:char code*modifiers. */); |
| @@ -718,17 +718,17 @@ The output format is: scan code:char code*modifiers. */); | |||
| 718 | Vdos_display_scancodes = Qnil; | 718 | Vdos_display_scancodes = Qnil; |
| 719 | 719 | ||
| 720 | DEFVAR_INT ("dos-hyper-key", dos_hyper_key, | 720 | DEFVAR_INT ("dos-hyper-key", dos_hyper_key, |
| 721 | doc: /* *If set to 1, use right ALT key as hyper key. | 721 | doc: /* If set to 1, use right ALT key as hyper key. |
| 722 | If set to 2, use right CTRL key as hyper key. */); | 722 | If set to 2, use right CTRL key as hyper key. */); |
| 723 | dos_hyper_key = 0; | 723 | dos_hyper_key = 0; |
| 724 | 724 | ||
| 725 | DEFVAR_INT ("dos-super-key", dos_super_key, | 725 | DEFVAR_INT ("dos-super-key", dos_super_key, |
| 726 | doc: /* *If set to 1, use right ALT key as super key. | 726 | doc: /* If set to 1, use right ALT key as super key. |
| 727 | If set to 2, use right CTRL key as super key. */); | 727 | If set to 2, use right CTRL key as super key. */); |
| 728 | dos_super_key = 0; | 728 | dos_super_key = 0; |
| 729 | 729 | ||
| 730 | DEFVAR_INT ("dos-keypad-mode", dos_keypad_mode, | 730 | DEFVAR_INT ("dos-keypad-mode", dos_keypad_mode, |
| 731 | doc: /* *Controls what key code is returned by a key in the numeric keypad. | 731 | doc: /* Controls what key code is returned by a key in the numeric keypad. |
| 732 | The `numlock ON' action is only taken if no modifier keys are pressed. | 732 | The `numlock ON' action is only taken if no modifier keys are pressed. |
| 733 | The value is an integer constructed by adding the following bits together: | 733 | The value is an integer constructed by adding the following bits together: |
| 734 | 734 | ||
diff --git a/src/eval.c b/src/eval.c index 4a3f5083b3b..cb0518f34ec 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -808,8 +808,6 @@ The optional argument DOCSTRING is a documentation string for the | |||
| 808 | variable. | 808 | variable. |
| 809 | 809 | ||
| 810 | To define a user option, use `defcustom' instead of `defvar'. | 810 | To define a user option, use `defcustom' instead of `defvar'. |
| 811 | The function `user-variable-p' also identifies a variable as a user | ||
| 812 | option if its DOCSTRING starts with *, but this behavior is obsolete. | ||
| 813 | usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) | 811 | usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) |
| 814 | (Lisp_Object args) | 812 | (Lisp_Object args) |
| 815 | { | 813 | { |
| @@ -923,71 +921,6 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */) | |||
| 923 | return sym; | 921 | return sym; |
| 924 | } | 922 | } |
| 925 | 923 | ||
| 926 | /* Error handler used in Fuser_variable_p. */ | ||
| 927 | static Lisp_Object | ||
| 928 | user_variable_p_eh (Lisp_Object ignore) | ||
| 929 | { | ||
| 930 | return Qnil; | ||
| 931 | } | ||
| 932 | |||
| 933 | static Lisp_Object | ||
| 934 | lisp_indirect_variable (Lisp_Object sym) | ||
| 935 | { | ||
| 936 | struct Lisp_Symbol *s = indirect_variable (XSYMBOL (sym)); | ||
| 937 | XSETSYMBOL (sym, s); | ||
| 938 | return sym; | ||
| 939 | } | ||
| 940 | |||
| 941 | DEFUN ("user-variable-p", Fuser_variable_p, Suser_variable_p, 1, 1, 0, | ||
| 942 | doc: /* Return t if VARIABLE is intended to be set and modified by users. | ||
| 943 | \(The alternative is a variable used internally in a Lisp program.) | ||
| 944 | |||
| 945 | This function returns t if (i) the first character of its | ||
| 946 | documentation is `*', or (ii) it is customizable (its property list | ||
| 947 | contains a non-nil value of `standard-value' or `custom-autoload'), or | ||
| 948 | \(iii) it is an alias for a user variable. | ||
| 949 | |||
| 950 | But condition (i) is considered obsolete, so for most purposes this is | ||
| 951 | equivalent to `custom-variable-p'. */) | ||
| 952 | (Lisp_Object variable) | ||
| 953 | { | ||
| 954 | Lisp_Object documentation; | ||
| 955 | |||
| 956 | if (!SYMBOLP (variable)) | ||
| 957 | return Qnil; | ||
| 958 | |||
| 959 | /* If indirect and there's an alias loop, don't check anything else. */ | ||
| 960 | if (XSYMBOL (variable)->redirect == SYMBOL_VARALIAS | ||
| 961 | && NILP (internal_condition_case_1 (lisp_indirect_variable, variable, | ||
| 962 | Qt, user_variable_p_eh))) | ||
| 963 | return Qnil; | ||
| 964 | |||
| 965 | while (1) | ||
| 966 | { | ||
| 967 | documentation = Fget (variable, Qvariable_documentation); | ||
| 968 | if (INTEGERP (documentation) && XINT (documentation) < 0) | ||
| 969 | return Qt; | ||
| 970 | if (STRINGP (documentation) | ||
| 971 | && ((unsigned char) SREF (documentation, 0) == '*')) | ||
| 972 | return Qt; | ||
| 973 | /* If it is (STRING . INTEGER), a negative integer means a user variable. */ | ||
| 974 | if (CONSP (documentation) | ||
| 975 | && STRINGP (XCAR (documentation)) | ||
| 976 | && INTEGERP (XCDR (documentation)) | ||
| 977 | && XINT (XCDR (documentation)) < 0) | ||
| 978 | return Qt; | ||
| 979 | /* Customizable? See `custom-variable-p'. */ | ||
| 980 | if ((!NILP (Fget (variable, intern ("standard-value")))) | ||
| 981 | || (!NILP (Fget (variable, intern ("custom-autoload"))))) | ||
| 982 | return Qt; | ||
| 983 | |||
| 984 | if (!(XSYMBOL (variable)->redirect == SYMBOL_VARALIAS)) | ||
| 985 | return Qnil; | ||
| 986 | |||
| 987 | /* An indirect variable? Let's follow the chain. */ | ||
| 988 | XSETSYMBOL (variable, SYMBOL_ALIAS (XSYMBOL (variable))); | ||
| 989 | } | ||
| 990 | } | ||
| 991 | 924 | ||
| 992 | DEFUN ("let*", FletX, SletX, 1, UNEVALLED, 0, | 925 | DEFUN ("let*", FletX, SletX, 1, UNEVALLED, 0, |
| 993 | doc: /* Bind variables according to VARLIST then eval BODY. | 926 | doc: /* Bind variables according to VARLIST then eval BODY. |
| @@ -3630,7 +3563,7 @@ void | |||
| 3630 | syms_of_eval (void) | 3563 | syms_of_eval (void) |
| 3631 | { | 3564 | { |
| 3632 | DEFVAR_INT ("max-specpdl-size", max_specpdl_size, | 3565 | DEFVAR_INT ("max-specpdl-size", max_specpdl_size, |
| 3633 | doc: /* *Limit on number of Lisp variable bindings and `unwind-protect's. | 3566 | doc: /* Limit on number of Lisp variable bindings and `unwind-protect's. |
| 3634 | If Lisp code tries to increase the total number past this amount, | 3567 | If Lisp code tries to increase the total number past this amount, |
| 3635 | an error is signaled. | 3568 | an error is signaled. |
| 3636 | You can safely use a value considerably larger than the default value, | 3569 | You can safely use a value considerably larger than the default value, |
| @@ -3638,7 +3571,7 @@ if that proves inconveniently small. However, if you increase it too far, | |||
| 3638 | Emacs could run out of memory trying to make the stack bigger. */); | 3571 | Emacs could run out of memory trying to make the stack bigger. */); |
| 3639 | 3572 | ||
| 3640 | DEFVAR_INT ("max-lisp-eval-depth", max_lisp_eval_depth, | 3573 | DEFVAR_INT ("max-lisp-eval-depth", max_lisp_eval_depth, |
| 3641 | doc: /* *Limit on depth in `eval', `apply' and `funcall' before error. | 3574 | doc: /* Limit on depth in `eval', `apply' and `funcall' before error. |
| 3642 | 3575 | ||
| 3643 | This limit serves to catch infinite recursions for you before they cause | 3576 | This limit serves to catch infinite recursions for you before they cause |
| 3644 | actual stack overflow in C, which would be fatal for Emacs. | 3577 | actual stack overflow in C, which would be fatal for Emacs. |
| @@ -3682,7 +3615,7 @@ before making `inhibit-quit' nil. */); | |||
| 3682 | DEFSYM (Qdebug, "debug"); | 3615 | DEFSYM (Qdebug, "debug"); |
| 3683 | 3616 | ||
| 3684 | DEFVAR_LISP ("debug-on-error", Vdebug_on_error, | 3617 | DEFVAR_LISP ("debug-on-error", Vdebug_on_error, |
| 3685 | doc: /* *Non-nil means enter debugger if an error is signaled. | 3618 | doc: /* Non-nil means enter debugger if an error is signaled. |
| 3686 | Does not apply to errors handled by `condition-case' or those | 3619 | Does not apply to errors handled by `condition-case' or those |
| 3687 | matched by `debug-ignored-errors'. | 3620 | matched by `debug-ignored-errors'. |
| 3688 | If the value is a list, an error only means to enter the debugger | 3621 | If the value is a list, an error only means to enter the debugger |
| @@ -3694,7 +3627,7 @@ See also the variable `debug-on-quit'. */); | |||
| 3694 | Vdebug_on_error = Qnil; | 3627 | Vdebug_on_error = Qnil; |
| 3695 | 3628 | ||
| 3696 | DEFVAR_LISP ("debug-ignored-errors", Vdebug_ignored_errors, | 3629 | DEFVAR_LISP ("debug-ignored-errors", Vdebug_ignored_errors, |
| 3697 | doc: /* *List of errors for which the debugger should not be called. | 3630 | doc: /* List of errors for which the debugger should not be called. |
| 3698 | Each element may be a condition-name or a regexp that matches error messages. | 3631 | Each element may be a condition-name or a regexp that matches error messages. |
| 3699 | If any element applies to a given error, that error skips the debugger | 3632 | If any element applies to a given error, that error skips the debugger |
| 3700 | and just returns to top level. | 3633 | and just returns to top level. |
| @@ -3703,7 +3636,7 @@ It does not apply to errors handled by `condition-case'. */); | |||
| 3703 | Vdebug_ignored_errors = Qnil; | 3636 | Vdebug_ignored_errors = Qnil; |
| 3704 | 3637 | ||
| 3705 | DEFVAR_BOOL ("debug-on-quit", debug_on_quit, | 3638 | DEFVAR_BOOL ("debug-on-quit", debug_on_quit, |
| 3706 | doc: /* *Non-nil means enter debugger if quit is signaled (C-g, for example). | 3639 | doc: /* Non-nil means enter debugger if quit is signaled (C-g, for example). |
| 3707 | Does not apply if quit is handled by a `condition-case'. */); | 3640 | Does not apply if quit is handled by a `condition-case'. */); |
| 3708 | debug_on_quit = 0; | 3641 | debug_on_quit = 0; |
| 3709 | 3642 | ||
| @@ -3732,7 +3665,7 @@ The Edebug package uses this to regain control. */); | |||
| 3732 | Vsignal_hook_function = Qnil; | 3665 | Vsignal_hook_function = Qnil; |
| 3733 | 3666 | ||
| 3734 | DEFVAR_LISP ("debug-on-signal", Vdebug_on_signal, | 3667 | DEFVAR_LISP ("debug-on-signal", Vdebug_on_signal, |
| 3735 | doc: /* *Non-nil means call the debugger regardless of condition handlers. | 3668 | doc: /* Non-nil means call the debugger regardless of condition handlers. |
| 3736 | Note that `debug-on-error', `debug-on-quit' and friends | 3669 | Note that `debug-on-error', `debug-on-quit' and friends |
| 3737 | still determine whether to handle the particular condition. */); | 3670 | still determine whether to handle the particular condition. */); |
| 3738 | Vdebug_on_signal = Qnil; | 3671 | Vdebug_on_signal = Qnil; |
| @@ -3789,7 +3722,6 @@ alist of active lexical bindings. */); | |||
| 3789 | defsubr (&Sdefvar); | 3722 | defsubr (&Sdefvar); |
| 3790 | defsubr (&Sdefvaralias); | 3723 | defsubr (&Sdefvaralias); |
| 3791 | defsubr (&Sdefconst); | 3724 | defsubr (&Sdefconst); |
| 3792 | defsubr (&Suser_variable_p); | ||
| 3793 | defsubr (&Slet); | 3725 | defsubr (&Slet); |
| 3794 | defsubr (&SletX); | 3726 | defsubr (&SletX); |
| 3795 | defsubr (&Swhile); | 3727 | defsubr (&Swhile); |
diff --git a/src/fileio.c b/src/fileio.c index 7efe919a9f0..3a74672b9a6 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -5611,7 +5611,7 @@ syms_of_fileio (void) | |||
| 5611 | DEFSYM (Qexcl, "excl"); | 5611 | DEFSYM (Qexcl, "excl"); |
| 5612 | 5612 | ||
| 5613 | DEFVAR_LISP ("file-name-coding-system", Vfile_name_coding_system, | 5613 | DEFVAR_LISP ("file-name-coding-system", Vfile_name_coding_system, |
| 5614 | doc: /* *Coding system for encoding file names. | 5614 | doc: /* Coding system for encoding file names. |
| 5615 | If it is nil, `default-file-name-coding-system' (which see) is used. */); | 5615 | If it is nil, `default-file-name-coding-system' (which see) is used. */); |
| 5616 | Vfile_name_coding_system = Qnil; | 5616 | Vfile_name_coding_system = Qnil; |
| 5617 | 5617 | ||
| @@ -5765,7 +5765,7 @@ file is usually more useful if it contains the deleted text. */); | |||
| 5765 | 5765 | ||
| 5766 | #ifdef HAVE_FSYNC | 5766 | #ifdef HAVE_FSYNC |
| 5767 | DEFVAR_BOOL ("write-region-inhibit-fsync", write_region_inhibit_fsync, | 5767 | DEFVAR_BOOL ("write-region-inhibit-fsync", write_region_inhibit_fsync, |
| 5768 | doc: /* *Non-nil means don't call fsync in `write-region'. | 5768 | doc: /* Non-nil means don't call fsync in `write-region'. |
| 5769 | This variable affects calls to `write-region' as well as save commands. | 5769 | This variable affects calls to `write-region' as well as save commands. |
| 5770 | A non-nil value may result in data loss! */); | 5770 | A non-nil value may result in data loss! */); |
| 5771 | write_region_inhibit_fsync = 0; | 5771 | write_region_inhibit_fsync = 0; |
| @@ -4933,7 +4933,7 @@ Used by `featurep' and `require', and altered by `provide'. */); | |||
| 4933 | #endif /* HAVE_LANGINFO_CODESET */ | 4933 | #endif /* HAVE_LANGINFO_CODESET */ |
| 4934 | 4934 | ||
| 4935 | DEFVAR_BOOL ("use-dialog-box", use_dialog_box, | 4935 | DEFVAR_BOOL ("use-dialog-box", use_dialog_box, |
| 4936 | doc: /* *Non-nil means mouse commands use dialog boxes to ask questions. | 4936 | doc: /* Non-nil means mouse commands use dialog boxes to ask questions. |
| 4937 | This applies to `y-or-n-p' and `yes-or-no-p' questions asked by commands | 4937 | This applies to `y-or-n-p' and `yes-or-no-p' questions asked by commands |
| 4938 | invoked by mouse clicks and mouse menu items. | 4938 | invoked by mouse clicks and mouse menu items. |
| 4939 | 4939 | ||
| @@ -4942,7 +4942,7 @@ non-nil. */); | |||
| 4942 | use_dialog_box = 1; | 4942 | use_dialog_box = 1; |
| 4943 | 4943 | ||
| 4944 | DEFVAR_BOOL ("use-file-dialog", use_file_dialog, | 4944 | DEFVAR_BOOL ("use-file-dialog", use_file_dialog, |
| 4945 | doc: /* *Non-nil means mouse commands use a file dialog to ask for files. | 4945 | doc: /* Non-nil means mouse commands use a file dialog to ask for files. |
| 4946 | This applies to commands from menus and tool bar buttons even when | 4946 | This applies to commands from menus and tool bar buttons even when |
| 4947 | they are initiated from the keyboard. If `use-dialog-box' is nil, | 4947 | they are initiated from the keyboard. If `use-dialog-box' is nil, |
| 4948 | that disables the use of a file dialog, regardless of the value of | 4948 | that disables the use of a file dialog, regardless of the value of |
diff --git a/src/fontset.c b/src/fontset.c index d06491ddf25..8a61f09f590 100644 --- a/src/fontset.c +++ b/src/fontset.c | |||
| @@ -2227,7 +2227,7 @@ alternate fontnames (if any) are tried instead. */); | |||
| 2227 | 2227 | ||
| 2228 | DEFVAR_LISP ("vertical-centering-font-regexp", | 2228 | DEFVAR_LISP ("vertical-centering-font-regexp", |
| 2229 | Vvertical_centering_font_regexp, | 2229 | Vvertical_centering_font_regexp, |
| 2230 | doc: /* *Regexp matching font names that require vertical centering on display. | 2230 | doc: /* Regexp matching font names that require vertical centering on display. |
| 2231 | When a character is displayed with such fonts, the character is displayed | 2231 | When a character is displayed with such fonts, the character is displayed |
| 2232 | at the vertical center of lines. */); | 2232 | at the vertical center of lines. */); |
| 2233 | Vvertical_centering_font_regexp = Qnil; | 2233 | Vvertical_centering_font_regexp = Qnil; |
diff --git a/src/fringe.c b/src/fringe.c index 5285d09dfb0..62c50e0d420 100644 --- a/src/fringe.c +++ b/src/fringe.c | |||
| @@ -1754,7 +1754,7 @@ syms_of_fringe (void) | |||
| 1754 | defsubr (&Sset_fringe_bitmap_face); | 1754 | defsubr (&Sset_fringe_bitmap_face); |
| 1755 | 1755 | ||
| 1756 | DEFVAR_LISP ("overflow-newline-into-fringe", Voverflow_newline_into_fringe, | 1756 | DEFVAR_LISP ("overflow-newline-into-fringe", Voverflow_newline_into_fringe, |
| 1757 | doc: /* *Non-nil means that newline may flow into the right fringe. | 1757 | doc: /* Non-nil means that newline may flow into the right fringe. |
| 1758 | This means that display lines which are exactly as wide as the window | 1758 | This means that display lines which are exactly as wide as the window |
| 1759 | (not counting the final newline) will only occupy one screen line, by | 1759 | (not counting the final newline) will only occupy one screen line, by |
| 1760 | showing (or hiding) the final newline in the right fringe; when point | 1760 | showing (or hiding) the final newline in the right fringe; when point |
diff --git a/src/gnutls.c b/src/gnutls.c index 6b5cb47001b..70eea3b0b89 100644 --- a/src/gnutls.c +++ b/src/gnutls.c | |||
| @@ -247,18 +247,27 @@ init_gnutls_functions (Lisp_Object libraries) | |||
| 247 | #endif /* !WINDOWSNT */ | 247 | #endif /* !WINDOWSNT */ |
| 248 | 248 | ||
| 249 | 249 | ||
| 250 | /* Function to log a simple message. */ | ||
| 250 | static void | 251 | static void |
| 251 | gnutls_log_function (int level, const char* string) | 252 | gnutls_log_function (int level, const char* string) |
| 252 | { | 253 | { |
| 253 | message ("gnutls.c: [%d] %s", level, string); | 254 | message ("gnutls.c: [%d] %s", level, string); |
| 254 | } | 255 | } |
| 255 | 256 | ||
| 257 | /* Function to log a message and a string. */ | ||
| 256 | static void | 258 | static void |
| 257 | gnutls_log_function2 (int level, const char* string, const char* extra) | 259 | gnutls_log_function2 (int level, const char* string, const char* extra) |
| 258 | { | 260 | { |
| 259 | message ("gnutls.c: [%d] %s %s", level, string, extra); | 261 | message ("gnutls.c: [%d] %s %s", level, string, extra); |
| 260 | } | 262 | } |
| 261 | 263 | ||
| 264 | /* Function to log a message and an integer. */ | ||
| 265 | static void | ||
| 266 | gnutls_log_function2i (int level, const char* string, int extra) | ||
| 267 | { | ||
| 268 | message ("gnutls.c: [%d] %s %d", level, string, extra); | ||
| 269 | } | ||
| 270 | |||
| 262 | static int | 271 | static int |
| 263 | emacs_gnutls_handshake (struct Lisp_Process *proc) | 272 | emacs_gnutls_handshake (struct Lisp_Process *proc) |
| 264 | { | 273 | { |
| @@ -399,10 +408,25 @@ emacs_gnutls_read (struct Lisp_Process *proc, char *buf, EMACS_INT nbyte) | |||
| 399 | ssize_t rtnval; | 408 | ssize_t rtnval; |
| 400 | gnutls_session_t state = proc->gnutls_state; | 409 | gnutls_session_t state = proc->gnutls_state; |
| 401 | 410 | ||
| 411 | int log_level = proc->gnutls_log_level; | ||
| 412 | |||
| 402 | if (proc->gnutls_initstage != GNUTLS_STAGE_READY) | 413 | if (proc->gnutls_initstage != GNUTLS_STAGE_READY) |
| 403 | { | 414 | { |
| 404 | emacs_gnutls_handshake (proc); | 415 | /* If the handshake count is under the limit, try the handshake |
| 405 | return -1; | 416 | again and increment the handshake count. This count is kept |
| 417 | per process (connection), not globally. */ | ||
| 418 | if (proc->gnutls_handshakes_tried < GNUTLS_EMACS_HANDSHAKES_LIMIT) | ||
| 419 | { | ||
| 420 | proc->gnutls_handshakes_tried++; | ||
| 421 | emacs_gnutls_handshake (proc); | ||
| 422 | GNUTLS_LOG2i (5, log_level, "Retried handshake", | ||
| 423 | proc->gnutls_handshakes_tried); | ||
| 424 | return -1; | ||
| 425 | } | ||
| 426 | |||
| 427 | GNUTLS_LOG (2, log_level, "Giving up on handshake; resetting retries"); | ||
| 428 | proc->gnutls_handshakes_tried = 0; | ||
| 429 | return 0; | ||
| 406 | } | 430 | } |
| 407 | rtnval = fn_gnutls_record_recv (state, buf, nbyte); | 431 | rtnval = fn_gnutls_record_recv (state, buf, nbyte); |
| 408 | if (rtnval >= 0) | 432 | if (rtnval >= 0) |
diff --git a/src/gnutls.h b/src/gnutls.h index 474da77aec5..37b9a2eb4df 100644 --- a/src/gnutls.h +++ b/src/gnutls.h | |||
| @@ -23,6 +23,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 23 | #include <gnutls/gnutls.h> | 23 | #include <gnutls/gnutls.h> |
| 24 | #include <gnutls/x509.h> | 24 | #include <gnutls/x509.h> |
| 25 | 25 | ||
| 26 | /* This limits the attempts to handshake per process (connection). */ | ||
| 27 | #define GNUTLS_EMACS_HANDSHAKES_LIMIT 100 | ||
| 28 | |||
| 26 | typedef enum | 29 | typedef enum |
| 27 | { | 30 | { |
| 28 | /* Initialization stages. */ | 31 | /* Initialization stages. */ |
| @@ -53,6 +56,8 @@ typedef enum | |||
| 53 | 56 | ||
| 54 | #define GNUTLS_LOG2(level, max, string, extra) do { if (level <= max) { gnutls_log_function2 (level, "(Emacs) " string, extra); } } while (0) | 57 | #define GNUTLS_LOG2(level, max, string, extra) do { if (level <= max) { gnutls_log_function2 (level, "(Emacs) " string, extra); } } while (0) |
| 55 | 58 | ||
| 59 | #define GNUTLS_LOG2i(level, max, string, extra) do { if (level <= max) { gnutls_log_function2i (level, "(Emacs) " string, extra); } } while (0) | ||
| 60 | |||
| 56 | extern EMACS_INT | 61 | extern EMACS_INT |
| 57 | emacs_gnutls_write (struct Lisp_Process *proc, const char *buf, EMACS_INT nbyte); | 62 | emacs_gnutls_write (struct Lisp_Process *proc, const char *buf, EMACS_INT nbyte); |
| 58 | extern EMACS_INT | 63 | extern EMACS_INT |
diff --git a/src/indent.c b/src/indent.c index 9b4279f0c4e..1531d2ffde8 100644 --- a/src/indent.c +++ b/src/indent.c | |||
| @@ -2163,7 +2163,7 @@ void | |||
| 2163 | syms_of_indent (void) | 2163 | syms_of_indent (void) |
| 2164 | { | 2164 | { |
| 2165 | DEFVAR_BOOL ("indent-tabs-mode", indent_tabs_mode, | 2165 | DEFVAR_BOOL ("indent-tabs-mode", indent_tabs_mode, |
| 2166 | doc: /* *Indentation can insert tabs if this is non-nil. */); | 2166 | doc: /* Indentation can insert tabs if this is non-nil. */); |
| 2167 | indent_tabs_mode = 1; | 2167 | indent_tabs_mode = 1; |
| 2168 | 2168 | ||
| 2169 | defsubr (&Scurrent_indentation); | 2169 | defsubr (&Scurrent_indentation); |
diff --git a/src/lread.c b/src/lread.c index 353f4a3064d..bfb37b4fc89 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -4442,7 +4442,7 @@ were read in. */); | |||
| 4442 | Vread_circle = Qt; | 4442 | Vread_circle = Qt; |
| 4443 | 4443 | ||
| 4444 | DEFVAR_LISP ("load-path", Vload_path, | 4444 | DEFVAR_LISP ("load-path", Vload_path, |
| 4445 | doc: /* *List of directories to search for files to load. | 4445 | doc: /* List of directories to search for files to load. |
| 4446 | Each element is a string (directory name) or nil (try default directory). | 4446 | Each element is a string (directory name) or nil (try default directory). |
| 4447 | Initialized based on EMACSLOADPATH environment variable, if any, | 4447 | Initialized based on EMACSLOADPATH environment variable, if any, |
| 4448 | otherwise to default specified by file `epaths.h' when Emacs was built. */); | 4448 | otherwise to default specified by file `epaths.h' when Emacs was built. */); |
diff --git a/src/minibuf.c b/src/minibuf.c index a9bdf06b735..05f9419ba34 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -72,7 +72,7 @@ Lisp_Object Qcompletion_ignore_case; | |||
| 72 | static Lisp_Object Qminibuffer_completion_table; | 72 | static Lisp_Object Qminibuffer_completion_table; |
| 73 | static Lisp_Object Qminibuffer_completion_predicate; | 73 | static Lisp_Object Qminibuffer_completion_predicate; |
| 74 | static Lisp_Object Qminibuffer_completion_confirm; | 74 | static Lisp_Object Qminibuffer_completion_confirm; |
| 75 | static Lisp_Object Quser_variable_p; | 75 | static Lisp_Object Qcustom_variable_p; |
| 76 | 76 | ||
| 77 | static Lisp_Object Qminibuffer_default; | 77 | static Lisp_Object Qminibuffer_default; |
| 78 | 78 | ||
| @@ -1094,10 +1094,11 @@ Prompt with PROMPT. */) | |||
| 1094 | #endif /* NOTDEF */ | 1094 | #endif /* NOTDEF */ |
| 1095 | 1095 | ||
| 1096 | DEFUN ("read-variable", Fread_variable, Sread_variable, 1, 2, 0, | 1096 | DEFUN ("read-variable", Fread_variable, Sread_variable, 1, 2, 0, |
| 1097 | doc: /* Read the name of a user variable and return it as a symbol. | 1097 | doc: /* Read the name of a user option and return it as a symbol. |
| 1098 | Prompt with PROMPT. By default, return DEFAULT-VALUE or its first element | 1098 | Prompt with PROMPT. By default, return DEFAULT-VALUE or its first element |
| 1099 | if it is a list. | 1099 | if it is a list. |
| 1100 | A user variable is one for which `user-variable-p' returns non-nil. */) | 1100 | A user option, or customizable variable, is one for which |
| 1101 | `custom-variable-p' returns non-nil. */) | ||
| 1101 | (Lisp_Object prompt, Lisp_Object default_value) | 1102 | (Lisp_Object prompt, Lisp_Object default_value) |
| 1102 | { | 1103 | { |
| 1103 | Lisp_Object name, default_string; | 1104 | Lisp_Object name, default_string; |
| @@ -1110,7 +1111,7 @@ A user variable is one for which `user-variable-p' returns non-nil. */) | |||
| 1110 | default_string = default_value; | 1111 | default_string = default_value; |
| 1111 | 1112 | ||
| 1112 | name = Fcompleting_read (prompt, Vobarray, | 1113 | name = Fcompleting_read (prompt, Vobarray, |
| 1113 | Quser_variable_p, Qt, | 1114 | Qcustom_variable_p, Qt, |
| 1114 | Qnil, Qnil, default_string, Qnil); | 1115 | Qnil, Qnil, default_string, Qnil); |
| 1115 | if (NILP (name)) | 1116 | if (NILP (name)) |
| 1116 | return name; | 1117 | return name; |
| @@ -1975,11 +1976,11 @@ syms_of_minibuf (void) | |||
| 1975 | staticpro (&last_minibuf_string); | 1976 | staticpro (&last_minibuf_string); |
| 1976 | last_minibuf_string = Qnil; | 1977 | last_minibuf_string = Qnil; |
| 1977 | 1978 | ||
| 1978 | DEFSYM (Quser_variable_p, "user-variable-p"); | ||
| 1979 | DEFSYM (Qminibuffer_history, "minibuffer-history"); | 1979 | DEFSYM (Qminibuffer_history, "minibuffer-history"); |
| 1980 | DEFSYM (Qbuffer_name_history, "buffer-name-history"); | 1980 | DEFSYM (Qbuffer_name_history, "buffer-name-history"); |
| 1981 | Fset (Qbuffer_name_history, Qnil); | 1981 | Fset (Qbuffer_name_history, Qnil); |
| 1982 | 1982 | ||
| 1983 | DEFSYM (Qcustom_variable_p, "custom-variable-p"); | ||
| 1983 | DEFSYM (Qminibuffer_setup_hook, "minibuffer-setup-hook"); | 1984 | DEFSYM (Qminibuffer_setup_hook, "minibuffer-setup-hook"); |
| 1984 | DEFSYM (Qminibuffer_exit_hook, "minibuffer-exit-hook"); | 1985 | DEFSYM (Qminibuffer_exit_hook, "minibuffer-exit-hook"); |
| 1985 | DEFSYM (Qhistory_length, "history-length"); | 1986 | DEFSYM (Qhistory_length, "history-length"); |
diff --git a/src/msdos.c b/src/msdos.c index 885cedd3df0..5f46829aefd 100644 --- a/src/msdos.c +++ b/src/msdos.c | |||
| @@ -4270,7 +4270,7 @@ syms_of_msdos (void) | |||
| 4270 | DEFSYM (Qreverse, "reverse"); | 4270 | DEFSYM (Qreverse, "reverse"); |
| 4271 | 4271 | ||
| 4272 | DEFVAR_LISP ("dos-unsupported-char-glyph", Vdos_unsupported_char_glyph, | 4272 | DEFVAR_LISP ("dos-unsupported-char-glyph", Vdos_unsupported_char_glyph, |
| 4273 | doc: /* *Glyph to display instead of chars not supported by current codepage. | 4273 | doc: /* Glyph to display instead of chars not supported by current codepage. |
| 4274 | This variable is used only by MS-DOS terminals. */); | 4274 | This variable is used only by MS-DOS terminals. */); |
| 4275 | Vdos_unsupported_char_glyph = make_number ('\177'); | 4275 | Vdos_unsupported_char_glyph = make_number ('\177'); |
| 4276 | 4276 | ||
diff --git a/src/print.c b/src/print.c index 40e0fb6b855..dac7a79d599 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -2149,7 +2149,7 @@ shared once again when the text is read back. */); | |||
| 2149 | Vprint_gensym = Qnil; | 2149 | Vprint_gensym = Qnil; |
| 2150 | 2150 | ||
| 2151 | DEFVAR_LISP ("print-circle", Vprint_circle, | 2151 | DEFVAR_LISP ("print-circle", Vprint_circle, |
| 2152 | doc: /* *Non-nil means print recursive structures using #N= and #N# syntax. | 2152 | doc: /* Non-nil means print recursive structures using #N= and #N# syntax. |
| 2153 | If nil, printing proceeds recursively and may lead to | 2153 | If nil, printing proceeds recursively and may lead to |
| 2154 | `max-lisp-eval-depth' being exceeded or an error may occur: | 2154 | `max-lisp-eval-depth' being exceeded or an error may occur: |
| 2155 | \"Apparently circular structure being printed.\" Also see | 2155 | \"Apparently circular structure being printed.\" Also see |
| @@ -2161,7 +2161,7 @@ where N is a positive decimal integer. */); | |||
| 2161 | Vprint_circle = Qnil; | 2161 | Vprint_circle = Qnil; |
| 2162 | 2162 | ||
| 2163 | DEFVAR_LISP ("print-continuous-numbering", Vprint_continuous_numbering, | 2163 | DEFVAR_LISP ("print-continuous-numbering", Vprint_continuous_numbering, |
| 2164 | doc: /* *Non-nil means number continuously across print calls. | 2164 | doc: /* Non-nil means number continuously across print calls. |
| 2165 | This affects the numbers printed for #N= labels and #M# references. | 2165 | This affects the numbers printed for #N= labels and #M# references. |
| 2166 | See also `print-circle', `print-gensym', and `print-number-table'. | 2166 | See also `print-circle', `print-gensym', and `print-number-table'. |
| 2167 | This variable should not be set with `setq'; bind it with a `let' instead. */); | 2167 | This variable should not be set with `setq'; bind it with a `let' instead. */); |
diff --git a/src/process.c b/src/process.c index f14de474ee0..2609a9cc250 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -647,7 +647,10 @@ make_process (Lisp_Object name) | |||
| 647 | 647 | ||
| 648 | #ifdef HAVE_GNUTLS | 648 | #ifdef HAVE_GNUTLS |
| 649 | p->gnutls_initstage = GNUTLS_STAGE_EMPTY; | 649 | p->gnutls_initstage = GNUTLS_STAGE_EMPTY; |
| 650 | /* Default log level. */ | ||
| 650 | p->gnutls_log_level = 0; | 651 | p->gnutls_log_level = 0; |
| 652 | /* GnuTLS handshakes attempted for this connection. */ | ||
| 653 | p->gnutls_handshakes_tried = 0; | ||
| 651 | p->gnutls_p = 0; | 654 | p->gnutls_p = 0; |
| 652 | p->gnutls_state = NULL; | 655 | p->gnutls_state = NULL; |
| 653 | p->gnutls_x509_cred = NULL; | 656 | p->gnutls_x509_cred = NULL; |
| @@ -7460,7 +7463,7 @@ syms_of_process (void) | |||
| 7460 | DEFSYM (Qargs, "args"); | 7463 | DEFSYM (Qargs, "args"); |
| 7461 | 7464 | ||
| 7462 | DEFVAR_BOOL ("delete-exited-processes", delete_exited_processes, | 7465 | DEFVAR_BOOL ("delete-exited-processes", delete_exited_processes, |
| 7463 | doc: /* *Non-nil means delete processes immediately when they exit. | 7466 | doc: /* Non-nil means delete processes immediately when they exit. |
| 7464 | A value of nil means don't delete them until `list-processes' is run. */); | 7467 | A value of nil means don't delete them until `list-processes' is run. */); |
| 7465 | 7468 | ||
| 7466 | delete_exited_processes = 1; | 7469 | delete_exited_processes = 1; |
diff --git a/src/process.h b/src/process.h index 9efde261386..3eb94cb196b 100644 --- a/src/process.h +++ b/src/process.h | |||
| @@ -134,6 +134,7 @@ struct Lisp_Process | |||
| 134 | gnutls_certificate_client_credentials gnutls_x509_cred; | 134 | gnutls_certificate_client_credentials gnutls_x509_cred; |
| 135 | gnutls_anon_client_credentials_t gnutls_anon_cred; | 135 | gnutls_anon_client_credentials_t gnutls_anon_cred; |
| 136 | int gnutls_log_level; | 136 | int gnutls_log_level; |
| 137 | int gnutls_handshakes_tried; | ||
| 137 | int gnutls_p; | 138 | int gnutls_p; |
| 138 | #endif | 139 | #endif |
| 139 | }; | 140 | }; |
diff --git a/src/syntax.c b/src/syntax.c index 16012d9f88e..7a0e0fd7c52 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -3494,7 +3494,7 @@ See the info node `(elisp)Syntax Properties' for a description of the | |||
| 3494 | 3494 | ||
| 3495 | DEFVAR_BOOL ("open-paren-in-column-0-is-defun-start", | 3495 | DEFVAR_BOOL ("open-paren-in-column-0-is-defun-start", |
| 3496 | open_paren_in_column_0_is_defun_start, | 3496 | open_paren_in_column_0_is_defun_start, |
| 3497 | doc: /* *Non-nil means an open paren in column 0 denotes the start of a defun. */); | 3497 | doc: /* Non-nil means an open paren in column 0 denotes the start of a defun. */); |
| 3498 | open_paren_in_column_0_is_defun_start = 1; | 3498 | open_paren_in_column_0_is_defun_start = 1; |
| 3499 | 3499 | ||
| 3500 | 3500 | ||
diff --git a/src/w32term.c b/src/w32term.c index 8a0e9efc943..18a3753f9e9 100644 --- a/src/w32term.c +++ b/src/w32term.c | |||
| @@ -6411,7 +6411,7 @@ the cursor have no effect. */); | |||
| 6411 | from cus-start.el and other places, like "M-x set-variable". */ | 6411 | from cus-start.el and other places, like "M-x set-variable". */ |
| 6412 | DEFVAR_BOOL ("x-use-underline-position-properties", | 6412 | DEFVAR_BOOL ("x-use-underline-position-properties", |
| 6413 | x_use_underline_position_properties, | 6413 | x_use_underline_position_properties, |
| 6414 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. | 6414 | doc: /* Non-nil means make use of UNDERLINE_POSITION font properties. |
| 6415 | A value of nil means ignore them. If you encounter fonts with bogus | 6415 | A value of nil means ignore them. If you encounter fonts with bogus |
| 6416 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior | 6416 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
| 6417 | to 4.1, set this to nil. You can also use `underline-minimum-offset' | 6417 | to 4.1, set this to nil. You can also use `underline-minimum-offset' |
| @@ -6421,7 +6421,7 @@ sizes. */); | |||
| 6421 | 6421 | ||
| 6422 | DEFVAR_BOOL ("x-underline-at-descent-line", | 6422 | DEFVAR_BOOL ("x-underline-at-descent-line", |
| 6423 | x_underline_at_descent_line, | 6423 | x_underline_at_descent_line, |
| 6424 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. | 6424 | doc: /* Non-nil means to draw the underline at the same place as the descent line. |
| 6425 | A value of nil means to draw the underline according to the value of the | 6425 | A value of nil means to draw the underline according to the value of the |
| 6426 | variable `x-use-underline-position-properties', which is usually at the | 6426 | variable `x-use-underline-position-properties', which is usually at the |
| 6427 | baseline level. The default value is nil. */); | 6427 | baseline level. The default value is nil. */); |
diff --git a/src/xdisp.c b/src/xdisp.c index dcd14a1792a..c6939a5dcf9 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -14042,15 +14042,18 @@ set_cursor_from_row (struct window *w, struct glyph_row *row, | |||
| 14042 | || pos <= tem) | 14042 | || pos <= tem) |
| 14043 | { | 14043 | { |
| 14044 | /* If the string from which this glyph came is | 14044 | /* If the string from which this glyph came is |
| 14045 | found in the buffer at point, then we've | 14045 | found in the buffer at point, or at position |
| 14046 | found the glyph we've been looking for. If | 14046 | that is closer to point than pos_after, then |
| 14047 | it comes from an overlay (tem == 0), and it | 14047 | we've found the glyph we've been looking for. |
| 14048 | has the `cursor' property on one of its | 14048 | If it comes from an overlay (tem == 0), and |
| 14049 | it has the `cursor' property on one of its | ||
| 14049 | glyphs, record that glyph as a candidate for | 14050 | glyphs, record that glyph as a candidate for |
| 14050 | displaying the cursor. (As in the | 14051 | displaying the cursor. (As in the |
| 14051 | unidirectional version, we will display the | 14052 | unidirectional version, we will display the |
| 14052 | cursor on the last candidate we find.) */ | 14053 | cursor on the last candidate we find.) */ |
| 14053 | if (tem == 0 || tem == pt_old) | 14054 | if (tem == 0 |
| 14055 | || tem == pt_old | ||
| 14056 | || (tem - pt_old > 0 && tem < pos_after)) | ||
| 14054 | { | 14057 | { |
| 14055 | /* The glyphs from this string could have | 14058 | /* The glyphs from this string could have |
| 14056 | been reordered. Find the one with the | 14059 | been reordered. Find the one with the |
| @@ -14088,7 +14091,8 @@ set_cursor_from_row (struct window *w, struct glyph_row *row, | |||
| 14088 | } | 14091 | } |
| 14089 | } | 14092 | } |
| 14090 | 14093 | ||
| 14091 | if (tem == pt_old) | 14094 | if (tem == pt_old |
| 14095 | || (tem - pt_old > 0 && tem < pos_after)) | ||
| 14092 | goto compute_x; | 14096 | goto compute_x; |
| 14093 | } | 14097 | } |
| 14094 | if (tem) | 14098 | if (tem) |
| @@ -28280,14 +28284,14 @@ syms_of_xdisp (void) | |||
| 28280 | 28284 | ||
| 28281 | #ifdef HAVE_WINDOW_SYSTEM | 28285 | #ifdef HAVE_WINDOW_SYSTEM |
| 28282 | DEFVAR_BOOL ("x-stretch-cursor", x_stretch_cursor_p, | 28286 | DEFVAR_BOOL ("x-stretch-cursor", x_stretch_cursor_p, |
| 28283 | doc: /* *Non-nil means draw block cursor as wide as the glyph under it. | 28287 | doc: /* Non-nil means draw block cursor as wide as the glyph under it. |
| 28284 | For example, if a block cursor is over a tab, it will be drawn as | 28288 | For example, if a block cursor is over a tab, it will be drawn as |
| 28285 | wide as that tab on the display. */); | 28289 | wide as that tab on the display. */); |
| 28286 | x_stretch_cursor_p = 0; | 28290 | x_stretch_cursor_p = 0; |
| 28287 | #endif | 28291 | #endif |
| 28288 | 28292 | ||
| 28289 | DEFVAR_LISP ("show-trailing-whitespace", Vshow_trailing_whitespace, | 28293 | DEFVAR_LISP ("show-trailing-whitespace", Vshow_trailing_whitespace, |
| 28290 | doc: /* *Non-nil means highlight trailing whitespace. | 28294 | doc: /* Non-nil means highlight trailing whitespace. |
| 28291 | The face used for trailing whitespace is `trailing-whitespace'. */); | 28295 | The face used for trailing whitespace is `trailing-whitespace'. */); |
| 28292 | Vshow_trailing_whitespace = Qnil; | 28296 | Vshow_trailing_whitespace = Qnil; |
| 28293 | 28297 | ||
| @@ -28307,7 +28311,7 @@ A value of nil means no special handling of these characters. */); | |||
| 28307 | Vnobreak_char_display = Qt; | 28311 | Vnobreak_char_display = Qt; |
| 28308 | 28312 | ||
| 28309 | DEFVAR_LISP ("void-text-area-pointer", Vvoid_text_area_pointer, | 28313 | DEFVAR_LISP ("void-text-area-pointer", Vvoid_text_area_pointer, |
| 28310 | doc: /* *The pointer shape to show in void text areas. | 28314 | doc: /* The pointer shape to show in void text areas. |
| 28311 | A value of nil means to show the text pointer. Other options are `arrow', | 28315 | A value of nil means to show the text pointer. Other options are `arrow', |
| 28312 | `text', `hand', `vdrag', `hdrag', `modeline', and `hourglass'. */); | 28316 | `text', `hand', `vdrag', `hdrag', `modeline', and `hourglass'. */); |
| 28313 | Vvoid_text_area_pointer = Qarrow; | 28317 | Vvoid_text_area_pointer = Qarrow; |
| @@ -28340,14 +28344,14 @@ where to display overlay arrows. */); | |||
| 28340 | = Fcons (intern_c_string ("overlay-arrow-position"), Qnil); | 28344 | = Fcons (intern_c_string ("overlay-arrow-position"), Qnil); |
| 28341 | 28345 | ||
| 28342 | DEFVAR_INT ("scroll-step", emacs_scroll_step, | 28346 | DEFVAR_INT ("scroll-step", emacs_scroll_step, |
| 28343 | doc: /* *The number of lines to try scrolling a window by when point moves out. | 28347 | doc: /* The number of lines to try scrolling a window by when point moves out. |
| 28344 | If that fails to bring point back on frame, point is centered instead. | 28348 | If that fails to bring point back on frame, point is centered instead. |
| 28345 | If this is zero, point is always centered after it moves off frame. | 28349 | If this is zero, point is always centered after it moves off frame. |
| 28346 | If you want scrolling to always be a line at a time, you should set | 28350 | If you want scrolling to always be a line at a time, you should set |
| 28347 | `scroll-conservatively' to a large value rather than set this to 1. */); | 28351 | `scroll-conservatively' to a large value rather than set this to 1. */); |
| 28348 | 28352 | ||
| 28349 | DEFVAR_INT ("scroll-conservatively", scroll_conservatively, | 28353 | DEFVAR_INT ("scroll-conservatively", scroll_conservatively, |
| 28350 | doc: /* *Scroll up to this many lines, to bring point back on screen. | 28354 | doc: /* Scroll up to this many lines, to bring point back on screen. |
| 28351 | If point moves off-screen, redisplay will scroll by up to | 28355 | If point moves off-screen, redisplay will scroll by up to |
| 28352 | `scroll-conservatively' lines in order to bring point just barely | 28356 | `scroll-conservatively' lines in order to bring point just barely |
| 28353 | onto the screen again. If that cannot be done, then redisplay | 28357 | onto the screen again. If that cannot be done, then redisplay |
| @@ -28361,7 +28365,7 @@ A value of zero means always recenter point if it moves off screen. */); | |||
| 28361 | scroll_conservatively = 0; | 28365 | scroll_conservatively = 0; |
| 28362 | 28366 | ||
| 28363 | DEFVAR_INT ("scroll-margin", scroll_margin, | 28367 | DEFVAR_INT ("scroll-margin", scroll_margin, |
| 28364 | doc: /* *Number of lines of margin at the top and bottom of a window. | 28368 | doc: /* Number of lines of margin at the top and bottom of a window. |
| 28365 | Recenter the window whenever point gets within this many lines | 28369 | Recenter the window whenever point gets within this many lines |
| 28366 | of the top or bottom of the window. */); | 28370 | of the top or bottom of the window. */); |
| 28367 | scroll_margin = 0; | 28371 | scroll_margin = 0; |
| @@ -28397,20 +28401,20 @@ Any other value means to use the appropriate face, `mode-line', | |||
| 28397 | mode_line_inverse_video = 1; | 28401 | mode_line_inverse_video = 1; |
| 28398 | 28402 | ||
| 28399 | DEFVAR_LISP ("line-number-display-limit", Vline_number_display_limit, | 28403 | DEFVAR_LISP ("line-number-display-limit", Vline_number_display_limit, |
| 28400 | doc: /* *Maximum buffer size for which line number should be displayed. | 28404 | doc: /* Maximum buffer size for which line number should be displayed. |
| 28401 | If the buffer is bigger than this, the line number does not appear | 28405 | If the buffer is bigger than this, the line number does not appear |
| 28402 | in the mode line. A value of nil means no limit. */); | 28406 | in the mode line. A value of nil means no limit. */); |
| 28403 | Vline_number_display_limit = Qnil; | 28407 | Vline_number_display_limit = Qnil; |
| 28404 | 28408 | ||
| 28405 | DEFVAR_INT ("line-number-display-limit-width", | 28409 | DEFVAR_INT ("line-number-display-limit-width", |
| 28406 | line_number_display_limit_width, | 28410 | line_number_display_limit_width, |
| 28407 | doc: /* *Maximum line width (in characters) for line number display. | 28411 | doc: /* Maximum line width (in characters) for line number display. |
| 28408 | If the average length of the lines near point is bigger than this, then the | 28412 | If the average length of the lines near point is bigger than this, then the |
| 28409 | line number may be omitted from the mode line. */); | 28413 | line number may be omitted from the mode line. */); |
| 28410 | line_number_display_limit_width = 200; | 28414 | line_number_display_limit_width = 200; |
| 28411 | 28415 | ||
| 28412 | DEFVAR_BOOL ("highlight-nonselected-windows", highlight_nonselected_windows, | 28416 | DEFVAR_BOOL ("highlight-nonselected-windows", highlight_nonselected_windows, |
| 28413 | doc: /* *Non-nil means highlight region even in nonselected windows. */); | 28417 | doc: /* Non-nil means highlight region even in nonselected windows. */); |
| 28414 | highlight_nonselected_windows = 0; | 28418 | highlight_nonselected_windows = 0; |
| 28415 | 28419 | ||
| 28416 | DEFVAR_BOOL ("multiple-frames", multiple_frames, | 28420 | DEFVAR_BOOL ("multiple-frames", multiple_frames, |
| @@ -28482,7 +28486,7 @@ See `set-window-redisplay-end-trigger'. */); | |||
| 28482 | Vredisplay_end_trigger_functions = Qnil; | 28486 | Vredisplay_end_trigger_functions = Qnil; |
| 28483 | 28487 | ||
| 28484 | DEFVAR_LISP ("mouse-autoselect-window", Vmouse_autoselect_window, | 28488 | DEFVAR_LISP ("mouse-autoselect-window", Vmouse_autoselect_window, |
| 28485 | doc: /* *Non-nil means autoselect window with mouse pointer. | 28489 | doc: /* Non-nil means autoselect window with mouse pointer. |
| 28486 | If nil, do not autoselect windows. | 28490 | If nil, do not autoselect windows. |
| 28487 | A positive number means delay autoselection by that many seconds: a | 28491 | A positive number means delay autoselection by that many seconds: a |
| 28488 | window is autoselected only after the mouse has remained in that | 28492 | window is autoselected only after the mouse has remained in that |
| @@ -28502,7 +28506,7 @@ When customizing this variable make sure that the actual value of | |||
| 28502 | Vmouse_autoselect_window = Qnil; | 28506 | Vmouse_autoselect_window = Qnil; |
| 28503 | 28507 | ||
| 28504 | DEFVAR_LISP ("auto-resize-tool-bars", Vauto_resize_tool_bars, | 28508 | DEFVAR_LISP ("auto-resize-tool-bars", Vauto_resize_tool_bars, |
| 28505 | doc: /* *Non-nil means automatically resize tool-bars. | 28509 | doc: /* Non-nil means automatically resize tool-bars. |
| 28506 | This dynamically changes the tool-bar's height to the minimum height | 28510 | This dynamically changes the tool-bar's height to the minimum height |
| 28507 | that is needed to make all tool-bar items visible. | 28511 | that is needed to make all tool-bar items visible. |
| 28508 | If value is `grow-only', the tool-bar's height is only increased | 28512 | If value is `grow-only', the tool-bar's height is only increased |
| @@ -28510,15 +28514,15 @@ automatically; to decrease the tool-bar height, use \\[recenter]. */); | |||
| 28510 | Vauto_resize_tool_bars = Qt; | 28514 | Vauto_resize_tool_bars = Qt; |
| 28511 | 28515 | ||
| 28512 | DEFVAR_BOOL ("auto-raise-tool-bar-buttons", auto_raise_tool_bar_buttons_p, | 28516 | DEFVAR_BOOL ("auto-raise-tool-bar-buttons", auto_raise_tool_bar_buttons_p, |
| 28513 | doc: /* *Non-nil means raise tool-bar buttons when the mouse moves over them. */); | 28517 | doc: /* Non-nil means raise tool-bar buttons when the mouse moves over them. */); |
| 28514 | auto_raise_tool_bar_buttons_p = 1; | 28518 | auto_raise_tool_bar_buttons_p = 1; |
| 28515 | 28519 | ||
| 28516 | DEFVAR_BOOL ("make-cursor-line-fully-visible", make_cursor_line_fully_visible_p, | 28520 | DEFVAR_BOOL ("make-cursor-line-fully-visible", make_cursor_line_fully_visible_p, |
| 28517 | doc: /* *Non-nil means to scroll (recenter) cursor line if it is not fully visible. */); | 28521 | doc: /* Non-nil means to scroll (recenter) cursor line if it is not fully visible. */); |
| 28518 | make_cursor_line_fully_visible_p = 1; | 28522 | make_cursor_line_fully_visible_p = 1; |
| 28519 | 28523 | ||
| 28520 | DEFVAR_LISP ("tool-bar-border", Vtool_bar_border, | 28524 | DEFVAR_LISP ("tool-bar-border", Vtool_bar_border, |
| 28521 | doc: /* *Border below tool-bar in pixels. | 28525 | doc: /* Border below tool-bar in pixels. |
| 28522 | If an integer, use it as the height of the border. | 28526 | If an integer, use it as the height of the border. |
| 28523 | If it is one of `internal-border-width' or `border-width', use the | 28527 | If it is one of `internal-border-width' or `border-width', use the |
| 28524 | value of the corresponding frame parameter. | 28528 | value of the corresponding frame parameter. |
| @@ -28526,7 +28530,7 @@ Otherwise, no border is added below the tool-bar. */); | |||
| 28526 | Vtool_bar_border = Qinternal_border_width; | 28530 | Vtool_bar_border = Qinternal_border_width; |
| 28527 | 28531 | ||
| 28528 | DEFVAR_LISP ("tool-bar-button-margin", Vtool_bar_button_margin, | 28532 | DEFVAR_LISP ("tool-bar-button-margin", Vtool_bar_button_margin, |
| 28529 | doc: /* *Margin around tool-bar buttons in pixels. | 28533 | doc: /* Margin around tool-bar buttons in pixels. |
| 28530 | If an integer, use that for both horizontal and vertical margins. | 28534 | If an integer, use that for both horizontal and vertical margins. |
| 28531 | Otherwise, value should be a pair of integers `(HORZ . VERT)' with | 28535 | Otherwise, value should be a pair of integers `(HORZ . VERT)' with |
| 28532 | HORZ specifying the horizontal margin, and VERT specifying the | 28536 | HORZ specifying the horizontal margin, and VERT specifying the |
| @@ -28534,7 +28538,7 @@ vertical margin. */); | |||
| 28534 | Vtool_bar_button_margin = make_number (DEFAULT_TOOL_BAR_BUTTON_MARGIN); | 28538 | Vtool_bar_button_margin = make_number (DEFAULT_TOOL_BAR_BUTTON_MARGIN); |
| 28535 | 28539 | ||
| 28536 | DEFVAR_INT ("tool-bar-button-relief", tool_bar_button_relief, | 28540 | DEFVAR_INT ("tool-bar-button-relief", tool_bar_button_relief, |
| 28537 | doc: /* *Relief thickness of tool-bar buttons. */); | 28541 | doc: /* Relief thickness of tool-bar buttons. */); |
| 28538 | tool_bar_button_relief = DEFAULT_TOOL_BAR_BUTTON_RELIEF; | 28542 | tool_bar_button_relief = DEFAULT_TOOL_BAR_BUTTON_RELIEF; |
| 28539 | 28543 | ||
| 28540 | DEFVAR_LISP ("tool-bar-style", Vtool_bar_style, | 28544 | DEFVAR_LISP ("tool-bar-style", Vtool_bar_style, |
| @@ -28549,7 +28553,7 @@ It can be one of | |||
| 28549 | Vtool_bar_style = Qnil; | 28553 | Vtool_bar_style = Qnil; |
| 28550 | 28554 | ||
| 28551 | DEFVAR_INT ("tool-bar-max-label-size", tool_bar_max_label_size, | 28555 | DEFVAR_INT ("tool-bar-max-label-size", tool_bar_max_label_size, |
| 28552 | doc: /* *Maximum number of characters a label can have to be shown. | 28556 | doc: /* Maximum number of characters a label can have to be shown. |
| 28553 | The tool bar style must also show labels for this to have any effect, see | 28557 | The tool bar style must also show labels for this to have any effect, see |
| 28554 | `tool-bar-style'. */); | 28558 | `tool-bar-style'. */); |
| 28555 | tool_bar_max_label_size = DEFAULT_TOOL_BAR_LABEL_SIZE; | 28559 | tool_bar_max_label_size = DEFAULT_TOOL_BAR_LABEL_SIZE; |
| @@ -28564,7 +28568,7 @@ fontified regions the property `fontified'. */); | |||
| 28564 | 28568 | ||
| 28565 | DEFVAR_BOOL ("unibyte-display-via-language-environment", | 28569 | DEFVAR_BOOL ("unibyte-display-via-language-environment", |
| 28566 | unibyte_display_via_language_environment, | 28570 | unibyte_display_via_language_environment, |
| 28567 | doc: /* *Non-nil means display unibyte text according to language environment. | 28571 | doc: /* Non-nil means display unibyte text according to language environment. |
| 28568 | Specifically, this means that raw bytes in the range 160-255 decimal | 28572 | Specifically, this means that raw bytes in the range 160-255 decimal |
| 28569 | are displayed by converting them to the equivalent multibyte characters | 28573 | are displayed by converting them to the equivalent multibyte characters |
| 28570 | according to the current language environment. As a result, they are | 28574 | according to the current language environment. As a result, they are |
| @@ -28575,7 +28579,7 @@ but does not change the fact they are interpreted as raw bytes. */); | |||
| 28575 | unibyte_display_via_language_environment = 0; | 28579 | unibyte_display_via_language_environment = 0; |
| 28576 | 28580 | ||
| 28577 | DEFVAR_LISP ("max-mini-window-height", Vmax_mini_window_height, | 28581 | DEFVAR_LISP ("max-mini-window-height", Vmax_mini_window_height, |
| 28578 | doc: /* *Maximum height for resizing mini-windows (the minibuffer and the echo area). | 28582 | doc: /* Maximum height for resizing mini-windows (the minibuffer and the echo area). |
| 28579 | If a float, it specifies a fraction of the mini-window frame's height. | 28583 | If a float, it specifies a fraction of the mini-window frame's height. |
| 28580 | If an integer, it specifies a number of lines. */); | 28584 | If an integer, it specifies a number of lines. */); |
| 28581 | Vmax_mini_window_height = make_float (0.25); | 28585 | Vmax_mini_window_height = make_float (0.25); |
| @@ -28609,12 +28613,12 @@ point visible. */); | |||
| 28609 | DEFSYM (Qauto_hscroll_mode, "auto-hscroll-mode"); | 28613 | DEFSYM (Qauto_hscroll_mode, "auto-hscroll-mode"); |
| 28610 | 28614 | ||
| 28611 | DEFVAR_INT ("hscroll-margin", hscroll_margin, | 28615 | DEFVAR_INT ("hscroll-margin", hscroll_margin, |
| 28612 | doc: /* *How many columns away from the window edge point is allowed to get | 28616 | doc: /* How many columns away from the window edge point is allowed to get |
| 28613 | before automatic hscrolling will horizontally scroll the window. */); | 28617 | before automatic hscrolling will horizontally scroll the window. */); |
| 28614 | hscroll_margin = 5; | 28618 | hscroll_margin = 5; |
| 28615 | 28619 | ||
| 28616 | DEFVAR_LISP ("hscroll-step", Vhscroll_step, | 28620 | DEFVAR_LISP ("hscroll-step", Vhscroll_step, |
| 28617 | doc: /* *How many columns to scroll the window when point gets too close to the edge. | 28621 | doc: /* How many columns to scroll the window when point gets too close to the edge. |
| 28618 | When point is less than `hscroll-margin' columns from the window | 28622 | When point is less than `hscroll-margin' columns from the window |
| 28619 | edge, automatic hscrolling will scroll the window by the amount of columns | 28623 | edge, automatic hscrolling will scroll the window by the amount of columns |
| 28620 | determined by this variable. If its value is a positive integer, scroll that | 28624 | determined by this variable. If its value is a positive integer, scroll that |
| @@ -28701,7 +28705,7 @@ To add a prefix to continuation lines, use `wrap-prefix'. */); | |||
| 28701 | #endif /* GLYPH_DEBUG */ | 28705 | #endif /* GLYPH_DEBUG */ |
| 28702 | 28706 | ||
| 28703 | DEFVAR_INT ("overline-margin", overline_margin, | 28707 | DEFVAR_INT ("overline-margin", overline_margin, |
| 28704 | doc: /* *Space between overline and text, in pixels. | 28708 | doc: /* Space between overline and text, in pixels. |
| 28705 | The default value is 2: the height of the overline (1 pixel) plus 1 pixel | 28709 | The default value is 2: the height of the overline (1 pixel) plus 1 pixel |
| 28706 | margin to the character height. */); | 28710 | margin to the character height. */); |
| 28707 | overline_margin = 2; | 28711 | overline_margin = 2; |
| @@ -28722,7 +28726,7 @@ cursor shapes. */); | |||
| 28722 | display_hourglass_p = 1; | 28726 | display_hourglass_p = 1; |
| 28723 | 28727 | ||
| 28724 | DEFVAR_LISP ("hourglass-delay", Vhourglass_delay, | 28728 | DEFVAR_LISP ("hourglass-delay", Vhourglass_delay, |
| 28725 | doc: /* *Seconds to wait before displaying an hourglass pointer when Emacs is busy. */); | 28729 | doc: /* Seconds to wait before displaying an hourglass pointer when Emacs is busy. */); |
| 28726 | Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY); | 28730 | Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY); |
| 28727 | 28731 | ||
| 28728 | hourglass_atimer = NULL; | 28732 | hourglass_atimer = NULL; |
diff --git a/src/xfaces.c b/src/xfaces.c index 476fb1e0366..972de234510 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -6558,7 +6558,7 @@ syms_of_xfaces (void) | |||
| 6558 | #endif | 6558 | #endif |
| 6559 | 6559 | ||
| 6560 | DEFVAR_LISP ("font-list-limit", Vfont_list_limit, | 6560 | DEFVAR_LISP ("font-list-limit", Vfont_list_limit, |
| 6561 | doc: /* *Limit for font matching. | 6561 | doc: /* Limit for font matching. |
| 6562 | If an integer > 0, font matching functions won't load more than | 6562 | If an integer > 0, font matching functions won't load more than |
| 6563 | that number of fonts when searching for a matching font. */); | 6563 | that number of fonts when searching for a matching font. */); |
| 6564 | Vfont_list_limit = make_number (DEFAULT_FONT_LIST_LIMIT); | 6564 | Vfont_list_limit = make_number (DEFAULT_FONT_LIST_LIMIT); |
| @@ -6568,7 +6568,7 @@ that number of fonts when searching for a matching font. */); | |||
| 6568 | Vface_new_frame_defaults = Qnil; | 6568 | Vface_new_frame_defaults = Qnil; |
| 6569 | 6569 | ||
| 6570 | DEFVAR_LISP ("face-default-stipple", Vface_default_stipple, | 6570 | DEFVAR_LISP ("face-default-stipple", Vface_default_stipple, |
| 6571 | doc: /* *Default stipple pattern used on monochrome displays. | 6571 | doc: /* Default stipple pattern used on monochrome displays. |
| 6572 | This stipple pattern is used on monochrome displays | 6572 | This stipple pattern is used on monochrome displays |
| 6573 | instead of shades of gray for a face background color. | 6573 | instead of shades of gray for a face background color. |
| 6574 | See `set-face-stipple' for possible values for this variable. */); | 6574 | See `set-face-stipple' for possible values for this variable. */); |
diff --git a/src/xfns.c b/src/xfns.c index 6f08ada1bb9..df1b39b018f 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -5920,32 +5920,32 @@ Chinese, Japanese, and Korean. */); | |||
| 5920 | 5920 | ||
| 5921 | /* This is not ifdef:ed, so other builds than GTK can customize it. */ | 5921 | /* This is not ifdef:ed, so other builds than GTK can customize it. */ |
| 5922 | DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog, | 5922 | DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog, |
| 5923 | doc: /* *Non-nil means prompt with the old GTK file selection dialog. | 5923 | doc: /* Non-nil means prompt with the old GTK file selection dialog. |
| 5924 | If nil or if the file selection dialog is not available, the new GTK file | 5924 | If nil or if the file selection dialog is not available, the new GTK file |
| 5925 | chooser is used instead. To turn off all file dialogs set the | 5925 | chooser is used instead. To turn off all file dialogs set the |
| 5926 | variable `use-file-dialog'. */); | 5926 | variable `use-file-dialog'. */); |
| 5927 | x_gtk_use_old_file_dialog = 0; | 5927 | x_gtk_use_old_file_dialog = 0; |
| 5928 | 5928 | ||
| 5929 | DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files, | 5929 | DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files, |
| 5930 | doc: /* *If non-nil, the GTK file chooser will by default show hidden files. | 5930 | doc: /* If non-nil, the GTK file chooser will by default show hidden files. |
| 5931 | Note that this is just the default, there is a toggle button on the file | 5931 | Note that this is just the default, there is a toggle button on the file |
| 5932 | chooser to show or not show hidden files on a case by case basis. */); | 5932 | chooser to show or not show hidden files on a case by case basis. */); |
| 5933 | x_gtk_show_hidden_files = 0; | 5933 | x_gtk_show_hidden_files = 0; |
| 5934 | 5934 | ||
| 5935 | DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text, | 5935 | DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text, |
| 5936 | doc: /* *If non-nil, the GTK file chooser will show additional help text. | 5936 | doc: /* If non-nil, the GTK file chooser will show additional help text. |
| 5937 | If more space for files in the file chooser dialog is wanted, set this to nil | 5937 | If more space for files in the file chooser dialog is wanted, set this to nil |
| 5938 | to turn the additional text off. */); | 5938 | to turn the additional text off. */); |
| 5939 | x_gtk_file_dialog_help_text = 1; | 5939 | x_gtk_file_dialog_help_text = 1; |
| 5940 | 5940 | ||
| 5941 | DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar, | 5941 | DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar, |
| 5942 | doc: /* *If non-nil, a detached tool bar is shown in full. | 5942 | doc: /* If non-nil, a detached tool bar is shown in full. |
| 5943 | The default is to just show an arrow and pressing on that arrow shows | 5943 | The default is to just show an arrow and pressing on that arrow shows |
| 5944 | the tool bar buttons. */); | 5944 | the tool bar buttons. */); |
| 5945 | x_gtk_whole_detached_tool_bar = 0; | 5945 | x_gtk_whole_detached_tool_bar = 0; |
| 5946 | 5946 | ||
| 5947 | DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips, | 5947 | DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips, |
| 5948 | doc: /* *If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used. | 5948 | doc: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used. |
| 5949 | Otherwise use Emacs own tooltip implementation. | 5949 | Otherwise use Emacs own tooltip implementation. |
| 5950 | When using Gtk+ tooltips, the tooltip face is not used. */); | 5950 | When using Gtk+ tooltips, the tooltip face is not used. */); |
| 5951 | x_gtk_use_system_tooltips = 1; | 5951 | x_gtk_use_system_tooltips = 1; |
diff --git a/src/xsettings.c b/src/xsettings.c index 066c6e795e9..69ef22f55d7 100644 --- a/src/xsettings.c +++ b/src/xsettings.c | |||
| @@ -1024,7 +1024,7 @@ syms_of_xsettings (void) | |||
| 1024 | defsubr (&Sfont_get_system_normal_font); | 1024 | defsubr (&Sfont_get_system_normal_font); |
| 1025 | 1025 | ||
| 1026 | DEFVAR_BOOL ("font-use-system-font", use_system_font, | 1026 | DEFVAR_BOOL ("font-use-system-font", use_system_font, |
| 1027 | doc: /* *Non-nil means to apply the system defined font dynamically. | 1027 | doc: /* Non-nil means to apply the system defined font dynamically. |
| 1028 | When this is non-nil and the system defined fixed width font changes, we | 1028 | When this is non-nil and the system defined fixed width font changes, we |
| 1029 | update frames dynamically. | 1029 | update frames dynamically. |
| 1030 | If this variable is nil, Emacs ignores system font changes. */); | 1030 | If this variable is nil, Emacs ignores system font changes. */); |
diff --git a/src/xterm.c b/src/xterm.c index 9ce166883c3..f5272fc7630 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -10830,7 +10830,7 @@ syms_of_xterm (void) | |||
| 10830 | 10830 | ||
| 10831 | DEFVAR_BOOL ("x-use-underline-position-properties", | 10831 | DEFVAR_BOOL ("x-use-underline-position-properties", |
| 10832 | x_use_underline_position_properties, | 10832 | x_use_underline_position_properties, |
| 10833 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. | 10833 | doc: /* Non-nil means make use of UNDERLINE_POSITION font properties. |
| 10834 | A value of nil means ignore them. If you encounter fonts with bogus | 10834 | A value of nil means ignore them. If you encounter fonts with bogus |
| 10835 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior | 10835 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
| 10836 | to 4.1, set this to nil. You can also use `underline-minimum-offset' | 10836 | to 4.1, set this to nil. You can also use `underline-minimum-offset' |
| @@ -10840,7 +10840,7 @@ sizes. */); | |||
| 10840 | 10840 | ||
| 10841 | DEFVAR_BOOL ("x-underline-at-descent-line", | 10841 | DEFVAR_BOOL ("x-underline-at-descent-line", |
| 10842 | x_underline_at_descent_line, | 10842 | x_underline_at_descent_line, |
| 10843 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. | 10843 | doc: /* Non-nil means to draw the underline at the same place as the descent line. |
| 10844 | A value of nil means to draw the underline according to the value of the | 10844 | A value of nil means to draw the underline according to the value of the |
| 10845 | variable `x-use-underline-position-properties', which is usually at the | 10845 | variable `x-use-underline-position-properties', which is usually at the |
| 10846 | baseline level. The default value is nil. */); | 10846 | baseline level. The default value is nil. */); |