From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 23 Sep 2019 17:20:54 +0000 (+0200)
Subject: Fix cedet compilation warning
X-Git-Tag: emacs-27.0.90~1465
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83864ac7afcd1ce9345c9b4390a66d55aa7135a5;p=emacs.git

Fix cedet compilation warning

* lisp/cedet/semantic/db.el (semanticdb-dirty-p): Fix compilation
warning by moving to after definition.
---

diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index 5c7f8423839..8847fcc7558 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -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."