From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 3 Aug 2022 08:50:54 +0000 (-0400)
Subject: CEDET: Try and (re)fix bug#56902, in a better way
X-Git-Tag: emacs-29.0.90~1447^2~519
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f3e95bed523be11f3be7b791c6ae909ffa77a8d;p=emacs.git

CEDET: Try and (re)fix bug#56902, in a better way

* lisp/cedet/semantic/complete.el (semantic-displayer-abstract):
Move definition before first use (in `semantic-displayer-focus-abstract`).
---

diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 2597a431e18..dc270603a0c 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -314,6 +314,22 @@ HISTORY is a symbol representing a variable to story the history in."
 
 
 ;; Abstract baseclass for any displayer which supports focus
+
+(defclass semantic-displayer-abstract ()
+  ((table :type (or null semanticdb-find-result-with-nil)
+	  :initform nil
+	  :protection :protected
+	  :documentation "List of tags this displayer is showing.")
+   (last-prefix :type string
+		:protection :protected
+		:documentation "Prefix associated with slot `table'.")
+   )
+  "Abstract displayer baseclass.
+Manages the display of some number of tags.
+Provides the basics for a displayer, including interacting with
+a collector, and tracking tables of completion to display."
+  :abstract t)
+
 (defclass semantic-displayer-focus-abstract (semantic-displayer-abstract)
   ((focus :type number
 	  :protection :protected
@@ -1317,21 +1333,6 @@ 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
-	  :protection :protected
-	  :documentation "List of tags this displayer is showing.")
-   (last-prefix :type string
-		:protection :protected
-		:documentation "Prefix associated with slot `table'.")
-   )
-  "Abstract displayer baseclass.
-Manages the display of some number of tags.
-Provides the basics for a displayer, including interacting with
-a collector, and tracking tables of completion to display."
-  :abstract t)
-
 (define-obsolete-function-alias 'semantic-displayor-cleanup
   #'semantic-displayer-cleanup "27.1")
 (cl-defmethod semantic-displayer-cleanup ((_obj semantic-displayer-abstract))