(command_loop_1): No direct display if Column Number mode.

(Vcolumn_number_mode): New variable.
(syms_of_keyboard): Set up Lisp variable.

diff --git a/src/keyboard.c b/src/keyboard.c
index 9c2c02af71637023bd423807482bd7be2ae0d800..f46a7b24f6c41fdfd805f05f510cdfd742792e1f 100644 (file)
--- 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;
 \f
 /* 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 ()