pestctrl/emacs
1
0
Fork 0
forked from Github/emacs
Code Issues Pull requests Projects Releases Packages Wiki Activity

lisp/emacs-lisp/eieio.el (with-slots): Use cl-symbol-macrolet (bug#16998).

Browse source
This commit is contained in:
Jonas Bernoulli 2014-03-12 16:02:45 +01:00 committed by Juanma Barranquero
parent 8960529e6b
commit 08dfa0b75e
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2014-03-12 Jonas Bernoulli <jonas@bernoul.li>
* emacs-lisp/eieio.el (with-slots): Use cl-symbol-macrolet (bug#16998).
2014-03-12 Martin Rudalics <rudalics@gmx.at>
* window.el (fit-frame-to-buffer): Get maximum width from

4
lisp/emacs-lisp/eieio.el
View file

@ -246,13 +246,13 @@ Where each VAR is the local variable given to the associated
SLOT. A slot specified without a variable name is given a
variable name of the same name as the slot."
(declare (indent 2))
;; Transform the spec-list into a symbol-macrolet spec-list.
;; Transform the spec-list into a cl-symbol-macrolet spec-list.
(let ((mappings (mapcar (lambda (entry)
(let ((var (if (listp entry) (car entry) entry))
(slot (if (listp entry) (cadr entry) entry)))
(list var `(slot-value ,object ',slot))))
spec-list)))
(append (list 'symbol-macrolet mappings)
(append (list 'cl-symbol-macrolet mappings)
body)))
;;; Simple generators, and query functions. None of these would do