From 8ae173a8373c12f17acc9d7b22910cd106c12b4b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 3 Aug 2022 04:48:01 -0400 Subject: [PATCH] Revert "; Fix last change (bug#56902)" This reverts commit 99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3. --- 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 5895b75fa90..2597a431e18 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -313,6 +313,26 @@ 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 @@ -1297,7 +1317,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 @@ -1406,25 +1425,6 @@ 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)) -- 2.39.2