diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-08-03 04:50:54 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-08-03 04:51:12 -0400 |
| commit | 4f3e95bed523be11f3be7b791c6ae909ffa77a8d (patch) | |
| tree | cead89612c24cf31ecc0351a81d0b0fc2b1f48f3 | |
| parent | 8ae173a8373c12f17acc9d7b22910cd106c12b4b (diff) | |
| download | emacs-4f3e95bed523be11f3be7b791c6ae909ffa77a8d.tar.gz | |
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`).
| -rw-r--r-- | lisp/cedet/semantic/complete.el | 31 |
1 files 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)) |