# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 815008076 0
# Node ID 3bd6e6e466f7d0addc7f359ecc2a174938bd59d9
# Parent  344abd898be99f4fbc248907bd83922dc0bae514
(command_loop_1): No direct display if Column Number mode.
(Vcolumn_number_mode): New variable.
(syms_of_keyboard): Set up Lisp variable.

diff -r 344abd898be9 -r 3bd6e6e466f7 src/keyboard.c
--- 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 ()