diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-21 13:42:14 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-21 13:42:14 +0100 |
| commit | 1ecd350f38ee782cdebf4b08a59f2c1974ad44bd (patch) | |
| tree | 7fcad02ffb6e21175a34361064479c399409be1e /lisp/emacs-lisp | |
| parent | 4cc6854cd4b0857e223ed6bc1b1b1a051dd83480 (diff) | |
| download | emacs-1ecd350f38ee782cdebf4b08a59f2c1974ad44bd.tar.gz emacs-1ecd350f38ee782cdebf4b08a59f2c1974ad44bd.tar.bz2 emacs-1ecd350f38ee782cdebf4b08a59f2c1974ad44bd.zip | |
Evaluate some unnecessarily quoted lambdas
* lisp/cedet/semantic/complete.el
(semantic-displayer-tooltip-max-tags):
* lisp/emacs-lisp/benchmark.el (benchmark-run-compiled):
* lisp/emacs-lisp/package.el (package--default-summary)
(package-menu-filter-by-version):
* lisp/eshell/em-pred.el (eshell-pred-file-time):
* lisp/progmodes/verilog-mode.el (verilog-auto-lineup)
(verilog-auto-reset-widths, verilog-auto-arg-format)
(verilog-auto-inst-vector, verilog-auto-inst-template-numbers):
* lisp/textmodes/bibtex.el (bibtex-dialect):
* test/lisp/autoinsert-tests.el
(autoinsert-tests-define-auto-insert-before)
(autoinsert-tests-define-auto-insert-after): Remove some unnecessary
quoting around anonymous functions.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/benchmark.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el index a7fcc5cb8f2..984c62ddd54 100644 --- a/lisp/emacs-lisp/benchmark.el +++ b/lisp/emacs-lisp/benchmark.el @@ -81,7 +81,7 @@ result. The overhead of the `lambda's is accounted for." (gcs (make-symbol "gcs")) (gc (make-symbol "gc")) (code (byte-compile `(lambda () ,@forms))) - (lambda-code (byte-compile '(lambda ())))) + (lambda-code (byte-compile (lambda ())))) `(let ((,gc gc-elapsed) (,gcs gcs-done)) (list ,(if (or (symbolp repetitions) (> repetitions 1)) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 6fc80594125..e6f54d206d8 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -441,9 +441,9 @@ synchronously." &aux (name (intern name-string)) (version (version-to-list version-string)) - (reqs (mapcar #'(lambda (elt) - (list (car elt) - (version-to-list (cadr elt)))) + (reqs (mapcar (lambda (elt) + (list (car elt) + (version-to-list (cadr elt)))) (if (eq 'quote (car requirements)) (nth 1 requirements) requirements))) @@ -3871,9 +3871,9 @@ If VERSION is nil or the empty string, show all packages." (package-menu--generate t t) (package-menu--filter-by (let ((fun (pcase predicate - ('= 'version-list-=) - ('< 'version-list-<) - ('> '(lambda (a b) (not (version-list-<= a b)))) + ('= #'version-list-=) + ('< #'version-list-<) + ('> (lambda (a b) (not (version-list-<= a b)))) (_ (error "Unknown predicate: %s" predicate)))) (ver (version-to-list version))) (lambda (pkg-desc) |