master 99bbc1fa23: ; Fix last change (bug#56902)

[Gerd Moellmann]

branch: master
commit 99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    ; 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(-)

diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 2597a431e1..5895b75fa9 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))