From 99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3 Mon Sep 17 00:00:00 2001
From: Gerd Möllmann <gerd@gnu.org>
Date: Wed, 3 Aug 2022 08:46:52 +0200
Subject: ; Fix last change (bug#56902)

* lisp/cedet/semantic/complete.el (semantic-displayer-focus-abstract):
Define after base class has been defined.
---
 lisp/cedet/semantic/complete.el | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'lisp/cedet')

diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 2597a431e18..5895b75fa90 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -313,26 +313,6 @@ HISTORY is a symbol representing a variable to story the history in."
 
 
 
-;; Abstract baseclass for any displayer which supports focus
-(defclass semantic-displayer-focus-abstract (semantic-displayer-abstract)
-  ((focus :type number
-	  :protection :protected
-	  :documentation "A tag index from `table' which has focus.
-Multiple calls to the display function can choose to focus on a
-given tag, by highlighting its location.")
-   (find-file-focus
-    :allocation :class
-    :initform nil
-    :documentation
-    "Non-nil if focusing requires a tag's buffer be in memory.")
-   )
-  "Abstract displayer supporting `focus'.
-A displayer which has the ability to focus in on one tag.
-Focusing is a way of differentiating among multiple tags
-which have the same name."
-  :abstract t)
-
-
 (defun semantic-complete-current-match ()
   "Calculate a match from the current completion environment.
 Save this in our completion variable.  Make sure that variable
@@ -1317,6 +1297,7 @@ Uses semanticdb for searching all tags in the current project."
 ;; * semantic-displayer-scroll-request
 ;; * semantic-displayer-focus-request
 
+
 (defclass semantic-displayer-abstract ()
   ((table :type (or null semanticdb-find-result-with-nil)
 	  :initform nil
@@ -1425,6 +1406,25 @@ to click on the items to aid in completion.")
 
 ;;; Methods for any displayer which supports focus
 
+;; Abstract baseclass for any displayer which supports focus
+(defclass semantic-displayer-focus-abstract (semantic-displayer-abstract)
+  ((focus :type number
+	  :protection :protected
+	  :documentation "A tag index from `table' which has focus.
+Multiple calls to the display function can choose to focus on a
+given tag, by highlighting its location.")
+   (find-file-focus
+    :allocation :class
+    :initform nil
+    :documentation
+    "Non-nil if focusing requires a tag's buffer be in memory.")
+   )
+  "Abstract displayer supporting `focus'.
+A displayer which has the ability to focus in on one tag.
+Focusing is a way of differentiating among multiple tags
+which have the same name."
+  :abstract t)
+
 (define-obsolete-function-alias 'semantic-displayor-next-action
   #'semantic-displayer-next-action "27.1")
 (cl-defmethod semantic-displayer-next-action ((obj semantic-displayer-focus-abstract))
-- 
cgit v1.2.3