From 8bb1c0421032b7f841f13c337afaa77071c6d2a4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 Oct 1995 23:07:56 +0000 Subject: [PATCH] (command_loop_1): No direct display if Column Number mode. (Vcolumn_number_mode): New variable. (syms_of_keyboard): Set up Lisp variable. --- src/keyboard.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/keyboard.c b/src/keyboard.c index 9c2c02af716..f46a7b24f6c 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -501,6 +501,9 @@ int flow_control; #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 @@ command_loop_1 () && !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 @@ command_loop_1 () && !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 @@ command_loop_1 () || 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 @@ whenever `deferred-action-list' is non-nil."); 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 () -- 2.39.2