diff options
| author | Lars Ingebrigtsen | 2019-10-19 11:00:21 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-19 11:00:21 +0200 |
| commit | a3726f057b6467d9c4ff0e09d4b86d89bdd380a4 (patch) | |
| tree | 2db6e741295d4b9bfb2dadf360e6fb3fac3afbbc | |
| parent | 53774c45325c7307aeed340e53b851cbc7b7b242 (diff) | |
| download | emacs-a3726f057b6467d9c4ff0e09d4b86d89bdd380a4.tar.gz emacs-a3726f057b6467d9c4ff0e09d4b86d89bdd380a4.zip | |
Remove some compat code from CEDET
* lisp/cedet/semantic.el (pp):
* lisp/cedet/semantic/complete.el (initialize-instance): Remove
old-Emacs compat code.
| -rw-r--r-- | lisp/cedet/semantic.el | 3 | ||||
| -rw-r--r-- | lisp/cedet/semantic/complete.el | 5 |
2 files changed, 2 insertions, 6 deletions
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 0b878cae525..7d5017c6209 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el | |||
| @@ -368,8 +368,7 @@ to use Semantic, and `semantic-init-hook' is run." | |||
| 368 | 368 | ||
| 369 | ;;; Parsing Commands | 369 | ;;; Parsing Commands |
| 370 | ;; | 370 | ;; |
| 371 | (eval-when-compile | 371 | (require 'pp) |
| 372 | (condition-case nil (require 'pp) (error nil))) | ||
| 373 | 372 | ||
| 374 | (defvar semantic-edebug nil | 373 | (defvar semantic-edebug nil |
| 375 | "When non-nil, activate the interactive parsing debugger. | 374 | "When non-nil, activate the interactive parsing debugger. |
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 14d2bd38ee8..29f33d4a10b 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el | |||
| @@ -1666,10 +1666,7 @@ Display mechanism using tooltip for a list of possible completions.") | |||
| 1666 | 1666 | ||
| 1667 | (cl-defmethod initialize-instance :after ((obj semantic-displayer-tooltip) &rest args) | 1667 | (cl-defmethod initialize-instance :after ((obj semantic-displayer-tooltip) &rest args) |
| 1668 | "Make sure we have tooltips required." | 1668 | "Make sure we have tooltips required." |
| 1669 | (condition-case nil | 1669 | (require 'tooltip)) |
| 1670 | (require 'tooltip) | ||
| 1671 | (error nil)) | ||
| 1672 | ) | ||
| 1673 | 1670 | ||
| 1674 | (defvar tooltip-mode) | 1671 | (defvar tooltip-mode) |
| 1675 | 1672 | ||