[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 99bbc1fa23: ; Fix last change (bug#56902)
From: |
Gerd Moellmann |
Subject: |
master 99bbc1fa23: ; Fix last change (bug#56902) |
Date: |
Wed, 3 Aug 2022 02:50:12 -0400 (EDT) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 99bbc1fa23: ; Fix last change (bug#56902),
Gerd Moellmann <=