[Emacs-diffs] master f1f1726: Fix left over uses of `call-next-method'

[Stefan Monnier]

branch: master
commit f1f17265c9b029929a2f52d206cff0e943690847
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    Fix left over uses of `call-next-method'
    
    * lisp/cedet/semantic/db-global.el (object-print):
    * lisp/cedet/semantic/db.el (object-print): Use `cl-call-next-method'.
---
 lisp/cedet/semantic/db-global.el |  2 +-
 lisp/cedet/semantic/db.el        | 23 ++++++++++++-----------
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el
index 8cb9dab..61af619 100644
--- a/lisp/cedet/semantic/db-global.el
+++ b/lisp/cedet/semantic/db-global.el
@@ -115,7 +115,7 @@ if optional DONT-ERR-IF-NOT-AVAILABLE is non-nil; else 
throw an error."
 (cl-defmethod object-print ((obj semanticdb-table-global) &rest strings)
   "Pretty printer extension for `semanticdb-table-global'.
 Adds the number of tags in this file to the object print name."
-  (apply 'call-next-method obj (cons " (proxy)" strings)))
+  (apply #'cl-call-next-method obj (cons " (proxy)" strings)))
 
 (cl-defmethod semanticdb-equivalent-mode ((table semanticdb-table-global) 
&optional buffer)
   "Return t, pretend that this table's mode is equivalent to BUFFER.
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index d9eef32..0ba9f2f 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -180,7 +180,7 @@ Adds the number of tags in this file to the object print 
name."
       ;; Else, add a tags quantifier.
       (cl-call-next-method obj (format " (%d tags)" (length 
(semanticdb-get-tags obj))))
     ;; Pass through.
-    (apply 'call-next-method obj strings)
+    (apply #'cl-call-next-method obj strings)
     ))
 
 ;;; Index Cache
@@ -324,9 +324,10 @@ If OBJ's file is not loaded, read it in first."
 (cl-defmethod object-print ((obj semanticdb-table) &rest strings)
   "Pretty printer extension for `semanticdb-table'.
 Adds the number of tags in this file to the object print name."
-  (apply 'call-next-method obj
-        (cons (format " (%d tags)" (length (semanticdb-get-tags obj)))
-              (cons (if (oref obj dirty) ", DIRTY" "") strings))))
+  (apply #'cl-call-next-method obj
+        (format " (%d tags)" (length (semanticdb-get-tags obj)))
+         (if (oref obj dirty) ", DIRTY" "")
+         strings))
 
 ;;; DATABASE BASE CLASS
 ;;
@@ -382,13 +383,13 @@ where it may need to resynchronize with some persistent 
storage."
 (cl-defmethod object-print ((obj semanticdb-project-database) &rest strings)
   "Pretty printer extension for `semanticdb-project-database'.
 Adds the number of tables in this file to the object print name."
-  (apply 'call-next-method obj
-        (cons (format " (%d tables%s)"
-                      (length (semanticdb-get-database-tables obj))
-                      (if (semanticdb-dirty-p obj)
-                          " DIRTY" "")
-                      )
-              strings)))
+  (apply #'cl-call-next-method obj
+        (format " (%d tables%s)"
+                 (length (semanticdb-get-database-tables obj))
+                 (if (semanticdb-dirty-p obj)
+                     " DIRTY" "")
+                 )
+         strings))
 
 (cl-defmethod semanticdb-create-database ((dbc (subclass 
semanticdb-project-database)) directory)
   "Create a new semantic database of class DBC for DIRECTORY and return it.