diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-09-28 10:29:27 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-09-28 10:29:27 -0400 |
| commit | fa92b040c6738de7278605cadeace0c5380a0814 (patch) | |
| tree | 477f59c947e0d16fc164a9b205abe8111d2281ed /lisp/emacs-lisp/map.el | |
| parent | 2c3c4446cf14f2c2604df979bb5969a7b41a35bd (diff) | |
| download | emacs-fa92b040c6738de7278605cadeace0c5380a0814.tar.gz emacs-fa92b040c6738de7278605cadeace0c5380a0814.tar.bz2 emacs-fa92b040c6738de7278605cadeace0c5380a0814.zip | |
* lisp/emacs-lisp/map.el: Restore compatibility with Emacs-26
Don't use the new `eql` syntax.
Diffstat (limited to 'lisp/emacs-lisp/map.el')
| -rw-r--r-- | lisp/emacs-lisp/map.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el index e0af448eafc..da4502f9ed8 100644 --- a/lisp/emacs-lisp/map.el +++ b/lisp/emacs-lisp/map.el @@ -5,7 +5,7 @@ ;; Author: Nicolas Petton <nicolas@petton.fr> ;; Maintainer: emacs-devel@gnu.org ;; Keywords: extensions, lisp -;; Version: 3.2 +;; Version: 3.2.1 ;; Package-Requires: ((emacs "26")) ;; This file is part of GNU Emacs. @@ -427,15 +427,15 @@ See `map-into' for all supported values of TYPE." "Convert MAP into a map of TYPE.") ;; FIXME: I wish there was a way to avoid this η-redex! -(cl-defmethod map-into (map (_type (eql 'list))) +(cl-defmethod map-into (map (_type (eql list))) "Convert MAP into an alist." (map-pairs map)) -(cl-defmethod map-into (map (_type (eql 'alist))) +(cl-defmethod map-into (map (_type (eql alist))) "Convert MAP into an alist." (map-pairs map)) -(cl-defmethod map-into (map (_type (eql 'plist))) +(cl-defmethod map-into (map (_type (eql plist))) "Convert MAP into a plist." (let (plist) (map-do (lambda (k v) (setq plist `(,v ,k ,@plist))) map) @@ -530,7 +530,7 @@ KEYWORD-ARGS are forwarded to `make-hash-table'." map) ht)) -(cl-defmethod map-into (map (_type (eql 'hash-table))) +(cl-defmethod map-into (map (_type (eql hash-table))) "Convert MAP into a hash-table with keys compared with `equal'." (map--into-hash map (list :size (map-length map) :test #'equal))) |