branch: externals/rudel
commit fe4141c97edab1f21671d0598459a67a24858bf4
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Fix left over uses of `call-next-method'
---
rudel-obby-server.el | 4 ++--
rudel-state-machine.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/rudel-obby-server.el b/rudel-obby-server.el
index 1d46923..76e6249 100644
--- a/rudel-obby-server.el
+++ b/rudel-obby-server.el
@@ -1,6 +1,6 @@
;;; rudel-obby-server.el --- Server component of the Rudel obby backend -*-
lexical-binding:t -*-
;;
-;; Copyright (C) 2008-2010, 2014, 2016 Free Software Foundation, Inc.
+;; Copyright (C) 2008-2017 Free Software Foundation, Inc.
;;
;; Author: Jan Moringen <scym...@users.sourceforge.net>
;; Keywords: Rudel, obby, backend, server
@@ -831,7 +831,7 @@ user. COLOR has to be sufficiently different from used
colors."
(cl-defmethod object-print ((this rudel-obby-server) &rest strings)
"Print THIS with number of clients."
(with-slots (clients) this
- (apply #'call-next-method
+ (apply #'cl-call-next-method
this
(format " clients: %d"
(length clients))
diff --git a/rudel-state-machine.el b/rudel-state-machine.el
index eb169cd..3f16282 100644
--- a/rudel-state-machine.el
+++ b/rudel-state-machine.el
@@ -1,6 +1,6 @@
;;; rudel-state-machine.el --- A simple state machine for Rudel -*-
lexical-binding:t -*-
;;
-;; Copyright (C) 2009, 2010, 2014, 2016 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2017 Free Software Foundation, Inc.
;;
;; Author: Jan Moringen <scym...@users.sourceforge.net>
;; Keywords: rudel, fsm
@@ -294,7 +294,7 @@ NEXT can nil, a list or a `rudel-state' object."
"Add current state to the string representation of THIS."
(if (slot-boundp this 'state)
(with-slots (state) this
- (apply #'call-next-method
+ (apply #'cl-call-next-method
this
(format " state: %s"
(object-name-string state))
