diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-11-16 17:03:45 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-11-16 18:08:27 +0100 |
| commit | f0f2c8563b3f57be4c6b174b49fbac1e530ef7ac (patch) | |
| tree | 7c1efd5c9b093ceab1dd1bd2ecdc123f047b974b /lisp/emacs-lisp/regi.el | |
| parent | 4a8c1120f5deac6d4b4a5e7109af583818510735 (diff) | |
| download | emacs-f0f2c8563b3f57be4c6b174b49fbac1e530ef7ac.tar.gz emacs-f0f2c8563b3f57be4c6b174b49fbac1e530ef7ac.tar.bz2 emacs-f0f2c8563b3f57be4c6b174b49fbac1e530ef7ac.zip | |
Don't quote lambdas in emacs-lisp/*.el
* lisp/emacs-lisp/cl-seq.el (cl--parsing-keywords, cl-sort):
* lisp/emacs-lisp/cl-macs.el (cl-typecase):
* lisp/emacs-lisp/cl-extra.el (cl-some, cl-every)
(cl--map-keymap-recursively):
* lisp/emacs-lisp/advice.el (ad-insert-argument-access-forms):
* lisp/emacs-lisp/edebug.el (edebug-sort-alist)
(edebug-set-windows):
* lisp/emacs-lisp/pp.el (pp-display-expression):
* lisp/emacs-lisp/regi.el (regi-interpret): Don't quote lambdas.
Diffstat (limited to 'lisp/emacs-lisp/regi.el')
| -rw-r--r-- | lisp/emacs-lisp/regi.el | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el index 11b28b72cf3..2e6e2b75d6a 100644 --- a/lisp/emacs-lisp/regi.el +++ b/lisp/emacs-lisp/regi.el @@ -163,18 +163,15 @@ useful information: ;; let's find the special tags and remove them from the working ;; frame. note that only the last special tag is used. (mapc - (function - (lambda (entry) - (let ((pred (car entry)) - (func (car (cdr entry)))) - (cond - ((eq pred 'begin) (setq begin-tag func)) - ((eq pred 'end) (setq end-tag func)) - ((eq pred 'every) (setq every-tag func)) - (t - (setq working-frame (append working-frame (list entry)))) - ) ; end-cond - ))) + (lambda (entry) + (let ((pred (car entry)) + (func (car (cdr entry)))) + (cond + ((eq pred 'begin) (setq begin-tag func)) + ((eq pred 'end) (setq end-tag func)) + ((eq pred 'every) (setq every-tag func)) + (t + (setq working-frame (append working-frame (list entry))))))) frame) ; end-mapcar ;; execute the begin entry |