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

Fix left over uses of `call-next-method'

Browse source 
* lisp/cedet/semantic/db-global.el (object-print):
* lisp/cedet/semantic/db.el (object-print): Use `cl-call-next-method'.
This commit is contained in:
Stefan Monnier 2017-02-23 21:19:20 -05:00
parent dee8674414
commit f1f17265c9
2 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/cedet/semantic/db-global.el
View file

@ -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.

23
lisp/cedet/semantic/db.el
View file

@ -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.