Re: Removing line and column number settings from some buffers

[Jean Louis]

(make-local-variable 'anything-here) will work, but toggle-mode-line
is function and not variable

* daniela-spit@gmx.it <daniela-spit@gmx.it> [2020-12-04 08:58]:
> There is something wrong in resetting the mode line, after trying to save the
> original value.  Michael has said that code only works if evaluated in a 
> buffer.
> 
> Would there be some other call to use?
> 
> (defun toggle-mode-line (n)
>    "Changes Mode Line Information."
> 
>    (make-local-variable 'mode-line-position)
>    (make-local-variable 'line-number-mode)
>    (make-local-variable 'column-number-mode)
>    (make-local-variable 'mode-line-modes)
>    (make-local-variable 'mode-line-format)
>    (make-local-variable 'original-mode-line-format)
>    (make-local-variable 'mode-line-format)
> 
>    (cond
>       ((= n 1)
>        ;; Store current value of mode-line-format
>          (setq original-mode-line-format mode-line-format)
> 
>          (setq mode-line-position nil)
>          (setq line-number-mode nil)
>          (setq column-number-mode nil)
>          (setq mode-line-modes nil)
> 
>          ;; Set format and discard System Load Averages indicator
>          (setq display-time-format "W%W %H:%M")
>          (make-local-variable 'display-time-default-load-average)
>          (setq display-time-default-load-average nil)
> 
>          (display-time))
> 
>       ((= n 2)
>          (setq display-time-format "W%W %H:%M %a %b %d %Y")
>          (display-time))
> 
>       ((= n 3)
>          ;; Put original mode-line-format
>          (setq mode-line-position t)
>          (setq line-number-mode t)
>          (setq column-number-mode t)
>          (setq mode-line-modes t)
> 
>          (setq mode-line-format original-mode-line-format)
>          (force-mode-line-update)) ))
> 
> (make-local-variable 'toggle-mode-line)