From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#9820: 24.0.90; Behaviour of add-file-local-variable Date: Sun, 16 Jun 2013 01:58:07 +0300 Organization: JURTA Message-ID: <87ip1fx8sw.fsf@mail.jurta.org> References: <8162jjj5dp.fsf@gmail.com> <87ehy61n79.fsf@mail.jurta.org> <8139el1v3i.fsf@gmail.com> <81vcrhzid5.fsf@gmail.com> <87fwilkqck.fsf@mail.jurta.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1371339613 513 80.91.229.3 (15 Jun 2013 23:40:13 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 15 Jun 2013 23:40:13 +0000 (UTC) Cc: Jambunathan K , 9820@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Jun 16 01:40:12 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Uo04n-0004lj-UB for geb-bug-gnu-emacs@m.gmane.org; Sun, 16 Jun 2013 01:40:10 +0200 Original-Received: from localhost ([::1]:57407 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uo04n-0007k8-Jl for geb-bug-gnu-emacs@m.gmane.org; Sat, 15 Jun 2013 19:40:09 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:59125) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uo04i-0007iE-Sf for bug-gnu-emacs@gnu.org; Sat, 15 Jun 2013 19:40:07 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uo04h-0007Yl-IL for bug-gnu-emacs@gnu.org; Sat, 15 Jun 2013 19:40:04 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:52723) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uo04h-0007YN-ET for bug-gnu-emacs@gnu.org; Sat, 15 Jun 2013 19:40:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Uo04g-0003Dm-PK for bug-gnu-emacs@gnu.org; Sat, 15 Jun 2013 19:40:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Juri Linkov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 15 Jun 2013 23:40:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 9820 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 9820-submit@debbugs.gnu.org id=B9820.137133957112338 (code B ref 9820); Sat, 15 Jun 2013 23:40:02 +0000 Original-Received: (at 9820) by debbugs.gnu.org; 15 Jun 2013 23:39:31 +0000 Original-Received: from localhost ([127.0.0.1]:47039 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Uo04A-0003Cu-40 for submit@debbugs.gnu.org; Sat, 15 Jun 2013 19:39:30 -0400 Original-Received: from ps18281.dreamhost.com ([69.163.218.105]:58070 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Uo046-0003Ch-HJ for 9820@debbugs.gnu.org; Sat, 15 Jun 2013 19:39:28 -0400 Original-Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 45447258B9E915; Sat, 15 Jun 2013 16:39:24 -0700 (PDT) In-Reply-To: (Stefan Monnier's message of "Sun, 23 Oct 2011 13:59:14 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:75175 Archived-At: This is an old request that I'd like to close now, one way or another. > BTW, I think the message is not yet as good as it should be. E.g. we > could either tell the exact command that needs to be used (e.g. M-x > revert-buffer), or go the other way and only point out the current > situation without indicating how to "fix" it, something like "the change > hasn't yet taken effect". In a similar situation, Dired displays this message: (message "%s" (substitute-command-keys "Directory has changed on disk; type \\[revert-buffer] to update Dired")) So for `add-file-local-variable' it could be: (message "%s" (substitute-command-keys "For this change to take effect revisit file using \\[revert-buffer]")) The following patch displays this message. === modified file 'lisp/files-x.el' --- lisp/files-x.el 2013-06-15 22:44:38 +0000 +++ lisp/files-x.el 2013-06-15 22:57:03 +0000 @@ -115,7 +115,7 @@ (defun read-file-local-variable-mode () ((and (stringp mode) (fboundp (intern mode))) (intern mode)) (t mode)))) -(defun modify-file-local-variable (variable value op) +(defun modify-file-local-variable (variable value op &optional interactive) "Modify file-local VARIABLE in Local Variables depending on operation OP. If OP is `add-or-replace' then delete all existing settings of @@ -198,10 +198,17 @@ (defun modify-file-local-variable (varia ((eq variable 'mode) (goto-char beg)) ((null replaced-pos) (goto-char end)) (replaced-pos (goto-char replaced-pos))) - (insert (format "%s%S: %S%s\n" prefix variable value suffix))))))) + (insert (format "%s%S: %S%s\n" prefix variable value suffix))) + + (when (and interactive + (not (and (symbolp variable) + (boundp variable) + (equal (symbol-value variable) value)))) + (message "%s" (substitute-command-keys + "For this change to take effect revisit file using \\[revert-buffer]")))))))) ;;;###autoload -(defun add-file-local-variable (variable value) +(defun add-file-local-variable (variable value &optional interactive) "Add file-local VARIABLE with its VALUE to the Local Variables list. This command deletes all existing settings of VARIABLE (except `mode' @@ -213,17 +220,17 @@ (defun add-file-local-variable (variable `Local Variables:' and the last line containing the string `End:'." (interactive (let ((variable (read-file-local-variable "Add file-local variable"))) - (list variable (read-file-local-variable-value variable)))) - (modify-file-local-variable variable value 'add-or-replace)) + (list variable (read-file-local-variable-value variable) t))) + (modify-file-local-variable variable value 'add-or-replace interactive)) ;;;###autoload -(defun delete-file-local-variable (variable) +(defun delete-file-local-variable (variable &optional interactive) "Delete all settings of file-local VARIABLE from the Local Variables list." (interactive - (list (read-file-local-variable "Delete file-local variable"))) - (modify-file-local-variable variable nil 'delete)) + (list (read-file-local-variable "Delete file-local variable") t)) + (modify-file-local-variable variable nil 'delete interactive)) -(defun modify-file-local-variable-prop-line (variable value op) +(defun modify-file-local-variable-prop-line (variable value op &optional interactive) "Modify file-local VARIABLE in the -*- line depending on operation OP. If OP is `add-or-replace' then delete all existing settings of @@ -341,10 +348,17 @@ (defun modify-file-local-variable-prop-l (insert ";")) (unless (eq (char-before) ?\s) (insert " ")) (insert (format "%S: %S;" variable value)) - (unless (eq (char-after) ?\s) (insert " ")))))))) + (unless (eq (char-after) ?\s) (insert " ")))))) + + (when (and interactive + (not (and (symbolp variable) + (boundp variable) + (equal (symbol-value variable) value)))) + (message "%s" (substitute-command-keys + "For this change to take effect revisit file using \\[revert-buffer]"))))) ;;;###autoload -(defun add-file-local-variable-prop-line (variable value) +(defun add-file-local-variable-prop-line (variable value &optional interactive) "Add file-local VARIABLE with its VALUE to the -*- line. This command deletes all existing settings of VARIABLE (except `mode' @@ -355,15 +369,15 @@ (defun add-file-local-variable-prop-line then this function adds it." (interactive (let ((variable (read-file-local-variable "Add -*- file-local variable"))) - (list variable (read-file-local-variable-value variable)))) - (modify-file-local-variable-prop-line variable value 'add-or-replace)) + (list variable (read-file-local-variable-value variable) t))) + (modify-file-local-variable-prop-line variable value 'add-or-replace interactive)) ;;;###autoload -(defun delete-file-local-variable-prop-line (variable) +(defun delete-file-local-variable-prop-line (variable &optional interactive) "Delete all settings of file-local VARIABLE from the -*- line." (interactive - (list (read-file-local-variable "Delete -*- file-local variable"))) - (modify-file-local-variable-prop-line variable nil 'delete)) + (list (read-file-local-variable "Delete -*- file-local variable") t)) + (modify-file-local-variable-prop-line variable nil 'delete interactive)) (defvar auto-insert) ; from autoinsert.el