]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix cedet compilation warning
authorLars Ingebrigtsen <larsi@gnus.org>
Mon, 23 Sep 2019 17:20:54 +0000 (19:20 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Mon, 23 Sep 2019 17:20:54 +0000 (19:20 +0200)
* lisp/cedet/semantic/db.el (semanticdb-dirty-p): Fix compilation
warning by moving to after definition.

lisp/cedet/semantic/db.el

index 5c7f842383983773e8440773081a2adac65e8e3a..8847fcc75586cdaa7bcb5c81a3a07a620b88aa83 100644 (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."