diff options
Diffstat (limited to 'lisp/files-x.el')
| -rw-r--r-- | lisp/files-x.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/files-x.el b/lisp/files-x.el index a9c32477155..a6320b32e50 100644 --- a/lisp/files-x.el +++ b/lisp/files-x.el @@ -299,11 +299,11 @@ from the -*- line ignoring the input argument VALUE." (or (looking-at "[ \t]*\\([^ \t\n:]+\\)[ \t]*:[ \t]*") (throw 'exit (message "Malformed -*- line"))) (goto-char (match-end 0)) - (let ((key (intern (match-string 1))) - (val (save-restriction - (narrow-to-region (point) end) - (let ((read-circle nil)) - (read (current-buffer)))))) + (let ((key (intern (match-string 1)))) + (save-restriction + (narrow-to-region (point) end) + (let ((read-circle nil)) + (read (current-buffer)))) (skip-chars-forward " \t;") (when (eq key variable) (delete-region (match-beginning 0) (point)) @@ -344,6 +344,8 @@ then this function adds it." (list (read-file-local-variable "Delete -*- file-local variable"))) (modify-file-local-variable-prop-line variable nil 'delete)) +(defvar auto-insert) ; from autoinsert.el + (defun modify-dir-local-variable (mode variable value op) "Modify directory-local VARIABLE in .dir-locals.el depending on operation OP. |