Mercurial > emacs
changeset 13329:3bd6e6e466f7
(command_loop_1): No direct display if Column Number mode.
(Vcolumn_number_mode): New variable.
(syms_of_keyboard): Set up Lisp variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 29 Oct 1995 23:07:56 +0000 |
| parents | 344abd898be9 |
| children | eac254855aad |
| files | src/keyboard.c |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Sun Oct 29 23:03:05 1995 +0000 +++ b/src/keyboard.c Sun Oct 29 23:07:56 1995 +0000 @@ -501,6 +501,9 @@ #ifdef HAVE_X_WINDOWS #define POLL_FOR_INPUT #endif + +/* Non-nil enables Column Number mode. */ +Lisp_Object Vcolumn_number_mode; /* Global variable declarations. */ @@ -1278,6 +1281,7 @@ && !windows_or_buffers_changed && EQ (current_buffer->selective_display, Qnil) && !detect_input_pending () + && NILP (Vcolumn_number_mode) && NILP (Vexecuting_macro)) no_redisplay = direct_output_forward_char (1); goto directly_done; @@ -1301,6 +1305,7 @@ && !windows_or_buffers_changed && EQ (current_buffer->selective_display, Qnil) && !detect_input_pending () + && NILP (Vcolumn_number_mode) && NILP (Vexecuting_macro)) no_redisplay = direct_output_forward_char (-1); goto directly_done; @@ -1330,6 +1335,7 @@ || windows_or_buffers_changed || !EQ (current_buffer->selective_display, Qnil) || detect_input_pending () + || !NILP (Vcolumn_number_mode) || !NILP (Vexecuting_macro)); value = internal_self_insert (c, 0); if (value) @@ -7518,6 +7524,10 @@ The value can be a length of time to show the message for.\n\ If the value is non-nil and not a number, we wait 2 seconds."); Vsuggest_key_bindings = Qt; + + DEFVAR_LISP ("column-number-mode", &Vcolumn_number_mode, + "Non-nil enables display of the current column number in the mode line."); + Vcolumn_number_mode = Qnil; } keys_of_keyboard ()