diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
| commit | 06b605171f1c9d8b42bd3326a243b8b03d2e4e58 (patch) | |
| tree | e96c135042999136bf0e75d113aae306e51983e3 /lisp/files-x.el | |
| parent | 04c569546ad52f6270d8fc6d4aa0750950a0ac05 (diff) | |
| download | emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.gz emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.bz2 emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.zip | |
lisp/*.el: Lexical-binding cleanup.
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. |