Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
* lisp/cedet/semantic/complete.el (semantic-displayer-abstract):
Move definition before first use (in `semantic-displayer-focus-abstract`).
This commit is contained in:
Stefan Monnier 2022-08-03 04:50:54 -04:00
parent 8ae173a837
commit 4f3e95bed5
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/cedet/semantic/complete.el
View file

@ -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))