emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/rudel fe4141c: Fix left over uses of `call-next-method'


From: Stefan Monnier
Subject: [elpa] externals/rudel fe4141c: Fix left over uses of `call-next-method'
Date: Thu, 23 Feb 2017 21:25:20 -0500 (EST)

branch: externals/rudel
commit fe4141c97edab1f21671d0598459a67a24858bf4
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    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 <address@hidden>
 ;; 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 <address@hidden>
 ;; 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]