aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Möllmann2022-08-03 08:46:52 +0200
committerGerd Möllmann2022-08-03 08:46:52 +0200
commit99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3 (patch)
tree9756c4f99c580f74573764309f5d8fe293a3c6bb
parentcfb295f1e55e4d04beaad5d57ede494c436cf277 (diff)
downloademacs-99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3.tar.gz
emacs-99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3.zip
; Fix last change (bug#56902)
* lisp/cedet/semantic/complete.el (semantic-displayer-focus-abstract): Define after base class has been defined.
-rw-r--r--lisp/cedet/semantic/complete.el40
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 2597a431e18..5895b75fa90 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."
313 313
314 314
315 315
316;; Abstract baseclass for any displayer which supports focus
317(defclass semantic-displayer-focus-abstract (semantic-displayer-abstract)
318 ((focus :type number
319 :protection :protected
320 :documentation "A tag index from `table' which has focus.
321Multiple calls to the display function can choose to focus on a
322given tag, by highlighting its location.")
323 (find-file-focus
324 :allocation :class
325 :initform nil
326 :documentation
327 "Non-nil if focusing requires a tag's buffer be in memory.")
328 )
329 "Abstract displayer supporting `focus'.
330A displayer which has the ability to focus in on one tag.
331Focusing is a way of differentiating among multiple tags
332which have the same name."
333 :abstract t)
334
335
336(defun semantic-complete-current-match () 316(defun semantic-complete-current-match ()
337 "Calculate a match from the current completion environment. 317 "Calculate a match from the current completion environment.
338Save this in our completion variable. Make sure that variable 318Save this in our completion variable. Make sure that variable
@@ -1317,6 +1297,7 @@ Uses semanticdb for searching all tags in the current project."
1317;; * semantic-displayer-scroll-request 1297;; * semantic-displayer-scroll-request
1318;; * semantic-displayer-focus-request 1298;; * semantic-displayer-focus-request
1319 1299
1300
1320(defclass semantic-displayer-abstract () 1301(defclass semantic-displayer-abstract ()
1321 ((table :type (or null semanticdb-find-result-with-nil) 1302 ((table :type (or null semanticdb-find-result-with-nil)
1322 :initform nil 1303 :initform nil
@@ -1425,6 +1406,25 @@ to click on the items to aid in completion.")
1425 1406
1426;;; Methods for any displayer which supports focus 1407;;; Methods for any displayer which supports focus
1427 1408
1409;; Abstract baseclass for any displayer which supports focus
1410(defclass semantic-displayer-focus-abstract (semantic-displayer-abstract)
1411 ((focus :type number
1412 :protection :protected
1413 :documentation "A tag index from `table' which has focus.
1414Multiple calls to the display function can choose to focus on a
1415given tag, by highlighting its location.")
1416 (find-file-focus
1417 :allocation :class
1418 :initform nil
1419 :documentation
1420 "Non-nil if focusing requires a tag's buffer be in memory.")
1421 )
1422 "Abstract displayer supporting `focus'.
1423A displayer which has the ability to focus in on one tag.
1424Focusing is a way of differentiating among multiple tags
1425which have the same name."
1426 :abstract t)
1427
1428(define-obsolete-function-alias 'semantic-displayor-next-action 1428(define-obsolete-function-alias 'semantic-displayor-next-action
1429 #'semantic-displayer-next-action "27.1") 1429 #'semantic-displayer-next-action "27.1")
1430(cl-defmethod semantic-displayer-next-action ((obj semantic-displayer-focus-abstract)) 1430(cl-defmethod semantic-displayer-next-action ((obj semantic-displayer-focus-abstract))