From 83864ac7afcd1ce9345c9b4390a66d55aa7135a5 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 23 Sep 2019 19:20:54 +0200 Subject: [PATCH] Fix cedet compilation warning * lisp/cedet/semantic/db.el (semanticdb-dirty-p): Fix compilation warning by moving to after definition. --- lisp/cedet/semantic/db.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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." -- 2.39.2