diff options
| author | Nicolas Petton | 2015-06-16 23:04:03 +0200 |
|---|---|---|
| committer | Nicolas Petton | 2015-06-16 23:04:03 +0200 |
| commit | 7d5c120fedd86b911bb9ffe423920e701f63a7c3 (patch) | |
| tree | 612d473e816c07145d8547ec77a5b208ee23d7ad | |
| parent | 3986489aef3779b299c099e077d91e0d4b09a2e5 (diff) | |
| download | emacs-7d5c120fedd86b911bb9ffe423920e701f63a7c3.tar.gz emacs-7d5c120fedd86b911bb9ffe423920e701f63a7c3.zip | |
* lisp/emacs-lisp/map.el (map-into): Fix a byte-compiler warning.
| -rw-r--r-- | lisp/emacs-lisp/map.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el index dd7fb9174ef..f5a9fd9ee12 100644 --- a/lisp/emacs-lisp/map.el +++ b/lisp/emacs-lisp/map.el | |||
| @@ -218,7 +218,7 @@ MAP can be a list, hash-table or array." | |||
| 218 | map)) | 218 | map)) |
| 219 | 219 | ||
| 220 | (defun map-filter (pred map) | 220 | (defun map-filter (pred map) |
| 221 | "Return an alist of the key/val pairs for which (PRED key val) is non-nil in MAP. | 221 | "Return an alist of key/val pairs for which (PRED key val) is non-nil in MAP. |
| 222 | 222 | ||
| 223 | MAP can be a list, hash-table or array." | 223 | MAP can be a list, hash-table or array." |
| 224 | (delq nil (map-apply (lambda (key val) | 224 | (delq nil (map-apply (lambda (key val) |
| @@ -297,7 +297,7 @@ MAP can be a list, hash-table or array." | |||
| 297 | (pcase type | 297 | (pcase type |
| 298 | (`list (map-pairs map)) | 298 | (`list (map-pairs map)) |
| 299 | (`hash-table (map--into-hash-table map)) | 299 | (`hash-table (map--into-hash-table map)) |
| 300 | (t (error "Not a map type name: %S" type)))) | 300 | (_ (error "Not a map type name: %S" type)))) |
| 301 | 301 | ||
| 302 | (defun map--apply-alist (function map) | 302 | (defun map--apply-alist (function map) |
| 303 | "Private function used to apply FUNCTION over MAP, MAP being an alist." | 303 | "Private function used to apply FUNCTION over MAP, MAP being an alist." |