From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Re: Removing line and column number settings from some buffers Date: Fri, 4 Dec 2020 10:19:31 +0300 Message-ID: References: <87czzq9xq5.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="29498"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.0 (3d08634) (2020-11-07) Cc: Michael Heerdegen , Christopher Dimech , help-gnu-emacs@gnu.org To: daniela-spit@gmx.it Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Fri Dec 04 08:20:05 2020 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1kl5Nt-0007a1-Jp for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 04 Dec 2020 08:20:05 +0100 Original-Received: from localhost ([::1]:41840 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kl5Ns-0006Nz-M7 for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 04 Dec 2020 02:20:04 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:43746) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kl5NW-0006Nn-Oc for help-gnu-emacs@gnu.org; Fri, 04 Dec 2020 02:19:42 -0500 Original-Received: from static.rcdrun.com ([95.85.24.50]:55677) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kl5NV-0006GC-3o for help-gnu-emacs@gnu.org; Fri, 04 Dec 2020 02:19:42 -0500 Original-Received: from localhost ([::ffff:197.157.0.57]) (AUTH: PLAIN admin, TLS: TLS1.2,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by static.rcdrun.com with ESMTPSA id 00000000002C0006.000000005FC9E30A.000027D7; Fri, 04 Dec 2020 07:19:38 +0000 Content-Disposition: inline In-Reply-To: Received-SPF: pass client-ip=95.85.24.50; envelope-from=bugs@gnu.support; helo=static.rcdrun.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:125963 Archived-At: (make-local-variable 'anything-here) will work, but toggle-mode-line is function and not variable * 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)