Skip to content

GitLab

Commit 9c3912d3 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/gv.el (setf): Fix debug spec for multiple assignments. 

Fixes: debbugs:12879
parent 5e9419e8
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 1 deletion
lisp/ChangeLog
View file @ 9c3912d3
2012-11-14 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/gv.el (setf): Fix debug spec for multiple assignments
(bug#12879).
2012-11-13 Dmitry Gutov <dgutov@yandex.ru> 2012-11-13 Dmitry Gutov <dgutov@yandex.ru>
   
* progmodes/ruby-mode.el (ruby-move-to-block): Looks for a block * progmodes/ruby-mode.el (ruby-move-to-block): Looks for a block
......
lisp/emacs-lisp/gv.el
View file @ 9c3912d3
...@@ -236,7 +236,7 @@ For example, (setf (cadr x) y) is equivalent to (setcar (cdr x) y). ...@@ -236,7 +236,7 @@ For example, (setf (cadr x) y) is equivalent to (setcar (cdr x) y).
The return value is the last VAL in the list. The return value is the last VAL in the list.
\(fn PLACE VAL PLACE VAL ...)" \(fn PLACE VAL PLACE VAL ...)"
(declare (debug (gv-place form))) (declare (debug (&rest [gv-place form])))
(if (and args (null (cddr args))) (if (and args (null (cddr args)))
(let ((place (pop args)) (let ((place (pop args))
(val (car args))) (val (car args)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment