diff options
| author | Gerd Möllmann | 2022-08-03 08:46:52 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2022-08-03 08:46:52 +0200 |
| commit | 99bbc1fa23c3a54f1cbd2c56c57773dd471b3ef3 (patch) | |
| tree | 9756c4f99c580f74573764309f5d8fe293a3c6bb | |
| parent | cfb295f1e55e4d04beaad5d57ede494c436cf277 (diff) | |
| download | emacs-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.el | 40 |
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. | ||
| 321 | Multiple calls to the display function can choose to focus on a | ||
| 322 | given 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'. | ||
| 330 | A displayer which has the ability to focus in on one tag. | ||
| 331 | Focusing is a way of differentiating among multiple tags | ||
| 332 | which 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. |
| 338 | Save this in our completion variable. Make sure that variable | 318 | Save 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. | ||
| 1414 | Multiple calls to the display function can choose to focus on a | ||
| 1415 | given 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'. | ||
| 1423 | A displayer which has the ability to focus in on one tag. | ||
| 1424 | Focusing is a way of differentiating among multiple tags | ||
| 1425 | which 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)) |