procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/cl-generic.el (cl--generic-build-combined-method):

Browse source 
Return the value of the primary rather than the after method.
This commit is contained in:
Stefan Monnier 2015-01-15 08:38:00 -05:00
parent 78e6ccc4a5
commit 9d940c667a
3 changed files with 20 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/cl-generic.el
View file

@ -411,9 +411,10 @@ for all those different tags in the method-cache.")
(setq fun (lambda (&rest args)
(dolist (bf before)
(apply bf args))
(apply next args)
(dolist (af after)
(apply af args))))))
(prog1
(apply next args)
(dolist (af after)
(apply af args)))))))
(cl--generic-nest fun (alist-get :around mets-by-qual))))))))
(defun cl--generic-cache-miss (generic dispatch-arg dispatches-left tags)