From 4f3e95bed523be11f3be7b791c6ae909ffa77a8d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 3 Aug 2022 04:50:54 -0400 Subject: [PATCH] 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`). --- lisp/cedet/semantic/complete.el | 31 ++++++++++++++++--------------- 1 file changed, 16 insertions(+), 15 deletions(-) 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)) -- 2.39.2