Make variables 'left-margin-columns' and 'right-margin-columns' buffer-local

* src/xdisp.c (handle_single_display_spec): Use FIXNATP for margin column.
Also use 'Vleft_margin_columns' instead of 'Fsymbol_value' (bug#80025).
(left-margin-columns, right-margin-columns): Use Fmake_variable_buffer_local.

1 files changed, 7 insertions, 6 deletions

diff --git a/src/xdisp.c b/src/xdisp.c
index c1a2b6003d5..7903ba582a4 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -6410,13 +6410,12 @@ handle_single_display_spec (struct it *it, Lisp_Object spec, Lisp_Object object,
               && (tem = XCDR (tem), CONSP (tem))
               && (tem = XCAR (tem), !NILP (tem)))
             {
-              if (FIXNUMP (tem) && XFIXNUM (tem) >= 0)
+              if (FIXNATP (tem))
                 margin_column = (int) XFIXNUM (tem);
               else if (SYMBOLP (tem))
                 {
-                  Lisp_Object columns_list = Fsymbol_value
-                    (EQ (location, Qleft_margin)
-                     ? Qleft_margin_columns : Qright_margin_columns);
+                  Lisp_Object columns_list = EQ (location, Qleft_margin)
+                    ? Vleft_margin_columns : Vright_margin_columns;
                   int pos = 0;
                   for (Lisp_Object tail = columns_list; CONSP (tail);
                        tail = XCDR (tail), pos++)
@@ -39015,7 +39014,6 @@ The recommended non-zero value is between 100000 and 1000000,
 depending on your patience and the speed of your system.  */);
   max_redisplay_ticks = 0;
 
-  DEFSYM (Qleft_margin_columns, "left-margin-columns");
   DEFVAR_LISP ("left-margin-columns", Vleft_margin_columns,
     doc: /* List of symbols for left margin columns.
 Each symbol represents a mode that displays indicators in the left margin.
@@ -39027,8 +39025,9 @@ flymake indicators appear in column 0, outline in column 1, and hideshow
 in column 2.  Modes can use their symbol in a display spec like
 ((margin left-margin flymake) \">\") instead of a numeric column.  */);
   Vleft_margin_columns = Qnil;
+  DEFSYM (Qleft_margin_columns, "left-margin-columns");
+  Fmake_variable_buffer_local (Qleft_margin_columns);
 
-  DEFSYM (Qright_margin_columns, "right-margin-columns");
   DEFVAR_LISP ("right-margin-columns", Vright_margin_columns,
     doc: /* List of symbols for right margin columns.
 Each symbol represents a mode that displays indicators in the right margin.
@@ -39037,6 +39036,8 @@ where that mode's margin indicators appear.
 
 See `left-margin-columns' for more details.  */);
   Vright_margin_columns = Qnil;
+  DEFSYM (Qright_margin_columns, "right-margin-columns");
+  Fmake_variable_buffer_local (Qright_margin_columns);
 
   /* Called by decode_mode_spec.  */
   DEFSYM (Qfile_remote_p, "file-remote-p");