diff options
| author | John Wiegley | 2017-12-05 13:26:03 -0800 |
|---|---|---|
| committer | John Wiegley | 2017-12-05 13:26:03 -0800 |
| commit | 64ffdb68631b349de6083677210ab9aec2768fd9 (patch) | |
| tree | ec9346abd323a1a640c6b7962b8f4e3e35093213 /test | |
| parent | 65caa3b423e9a535568d3a60551f412916ce4c1f (diff) | |
| download | emacs-64ffdb68631b349de6083677210ab9aec2768fd9.tar.gz emacs-64ffdb68631b349de6083677210ab9aec2768fd9.zip | |
Enhance fix-expansion to take surrounding let bindings into account
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/use-package/use-package-tests.el | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 966c1221ba4..7109d58ea1f 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el | |||
| @@ -81,9 +81,19 @@ | |||
| 81 | (goto-char (match-beginning 0)) | 81 | (goto-char (match-beginning 0)) |
| 82 | (let ((decl (read (current-buffer)))) | 82 | (let ((decl (read (current-buffer)))) |
| 83 | (kill-sexp) | 83 | (kill-sexp) |
| 84 | (let ((use-package-verbose 'errors) | 84 | (let (vars) |
| 85 | (use-package-expand-minimally t)) | 85 | (catch 'exit |
| 86 | (insert ?\n ?\` (pp-to-string (macroexpand-1 decl)))))))) | 86 | (save-excursion |
| 87 | (while (ignore-errors (backward-up-list) t) | ||
| 88 | (when (looking-at "(let\\s-+") | ||
| 89 | (goto-char (match-end 0)) | ||
| 90 | (setq vars (read (current-buffer))) | ||
| 91 | (throw 'exit t))))) | ||
| 92 | (eval | ||
| 93 | `(let (,@ (append vars | ||
| 94 | '((use-package-verbose 'errors) | ||
| 95 | (use-package-expand-minimally t)))) | ||
| 96 | (insert ?\n ?\` (pp-to-string (macroexpand-1 decl)))))))))) | ||
| 87 | 97 | ||
| 88 | (bind-key "C-c C-u" #'fix-expansion emacs-lisp-mode-map) | 98 | (bind-key "C-c C-u" #'fix-expansion emacs-lisp-mode-map) |
| 89 | 99 | ||