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

Fix cedet compilation warning

Browse source 
* lisp/cedet/semantic/db.el (semanticdb-dirty-p): Fix compilation
warning by moving to after definition.
This commit is contained in:
Lars Ingebrigtsen 2019-09-23 19:20:54 +02:00
parent b234fb7630
commit 83864ac7af
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -295,11 +295,6 @@ If the buffer is not in memory, load it with `find-file-noselect'."
If OBJ's file is not loaded, read it in first."
(set-buffer (semanticdb-get-buffer obj)))
(cl-defmethod semanticdb-full-filename ((obj semanticdb-table))
"Fetch the full filename that OBJ refers to."
(expand-file-name (oref obj file)
(oref (oref obj parent-db) reference-directory)))
(cl-defmethod semanticdb-dirty-p ((obj semanticdb-table))
"Return non-nil if OBJ is dirty."
(oref obj dirty))
@ -357,6 +352,11 @@ Note: This index will not be saved in a persistent file.")
:documentation "List of `semantic-db-table' objects."))
"Database of file tables.")
(cl-defmethod semanticdb-full-filename ((obj semanticdb-table))
"Fetch the full filename that OBJ refers to."
(expand-file-name (oref obj file)
(oref (oref obj parent-db) reference-directory)))
(cl-defmethod semanticdb-full-filename ((obj semanticdb-project-database))
"Fetch the full filename that OBJ refers to.
Abstract tables do not have file names associated with them."