diff options
| author | Mattias EngdegÄrd | 2020-06-22 13:07:37 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2020-06-22 13:07:37 +0200 |
| commit | 8ef84632c24192a71cec89a859b064925ed5aca2 (patch) | |
| tree | 9eb4d5e2094d40aef1d7f5a57f791dc4d7736bef /lisp/autoinsert.el | |
| parent | 62426057310b2332037a26e6f70cd5cc8b2e3a11 (diff) | |
| download | emacs-8ef84632c24192a71cec89a859b064925ed5aca2.tar.gz emacs-8ef84632c24192a71cec89a859b064925ed5aca2.zip | |
Accept lexical lambda in auto-insert-alist
This bug was exposed by a previous removal of quoting around lambda
expressions in autoinsert-tests.el (1ecd350f38ee), which caused some
of those tests to fail.
* lisp/autoinsert.el (auto-insert): Cope with lexical closures.
Diffstat (limited to 'lisp/autoinsert.el')
| -rw-r--r-- | lisp/autoinsert.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 25961d41089..4af3d631a2c 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el | |||
| @@ -396,7 +396,7 @@ Matches the visited file name against the elements of `auto-insert-alist'." | |||
| 396 | ;; which might ask the user for something | 396 | ;; which might ask the user for something |
| 397 | (switch-to-buffer (current-buffer)) | 397 | (switch-to-buffer (current-buffer)) |
| 398 | (if (and (consp action) | 398 | (if (and (consp action) |
| 399 | (not (eq (car action) 'lambda))) | 399 | (not (functionp action))) |
| 400 | (skeleton-insert action) | 400 | (skeleton-insert action) |
| 401 | (funcall action))))) | 401 | (funcall action))))) |
| 402 | (if (vectorp action) | 402 | (if (vectorp action) |