d1a7d16f8e
Remove a few redundant `:group` arguments as well. * lisp/cedet/ede.el: Use lexical-binding. Don't load `ede/files` at compile-time. (ede-speedbar): Declare function. (ede-load-project-file): Allow `rootreturn` to be a reference rather than a symbol. (ede-initialize-state-current-buffer): Pass `ROOT` as a reference rather than a symbol to `ede-directory-get-open-project` and `ede-load-project-file` so we don't need to make it dynamically scoped. (ede-flush-deleted-projects): Avoid `add-to-list` on a local var. * lisp/cedet/ede/files.el: Use lexical-binding. (ede-directory-get-open-project): Allow `rootreturn` to be a reference rather than a symbol. (ede-project-root-directory): Remove unused var `root`. (ede-expand-filename-impl): Remove unused vars `path` and `proj`. * lisp/cedet/cedet-idutils.el: Use lexical-binding. (cedet-idutils-search): Remove always-nil variable `scopeflags`. * lisp/cedet/data-debug.el: Use lexical-binding. (data-debug-insert-overlay-button, data-debug-insert-overlay-list-button) (data-debug-insert-buffer-button, data-debug-insert-buffer-list-button) (data-debug-insert-process-button): Remove always-nil variable `tip`. (data-debug-insert-ring-button): Remove unused var `ringthing`. (data-debug-insert-widget-properties): Remove unused var `type`. * lisp/cedet/semantic.el: Use lexical-binding. (semantic-mode): Strength-reduce `eval` to `symbol-value`. * lisp/cedet/ede/custom.el: Use lexical-binding. (ede-project-sort-targets): Remove unused vars `count`, `current`, and `order`. * lisp/cedet/ede/pconf.el: Use lexical-binding. (ede-proj-configure-synchronize): Remove unused var `add-missing`. * lisp/cedet/ede/pmake.el (ede-proj-makefile-garbage-patterns): Simplify via η-reduction. (ede-proj-makefile-dependencies): Use `seq-some` rather than `eval+or`. * lisp/cedet/ede/proj-elisp.el: Use lexical-binding. (project-compile-target): Remove unused var `elc`. (ede-update-version-in-source): Remove unused var `match`. (project-compile-target): Declare function `cedet-update-autoloads` from file we don't have. * lisp/cedet/cedet-cscope.el: Use lexical-binding. * lisp/cedet/cedet-files.el: Use lexical-binding. * lisp/cedet/cedet-global.el: Use lexical-binding. * lisp/cedet/cedet.el: Use lexical-binding. * lisp/cedet/ede/auto.el: Use lexical-binding. * lisp/cedet/ede/autoconf-edit.el: Use lexical-binding. * lisp/cedet/ede/config.el: Use lexical-binding. * lisp/cedet/ede/cpp-root.el: Use lexical-binding. * lisp/cedet/ede/detect.el: Use lexical-binding. * lisp/cedet/ede/generic.el: Use lexical-binding. * lisp/cedet/ede/linux.el: Use lexical-binding. * lisp/cedet/ede/locate.el: Use lexical-binding. * lisp/cedet/ede/makefile-edit.el: Use lexical-binding. * lisp/cedet/ede/proj-info.el: Use lexical-binding. * lisp/cedet/ede/proj-obj.el: Use lexical-binding. * lisp/cedet/ede/proj-prog.el: Use lexical-binding. * lisp/cedet/ede/proj-shared.el: Use lexical-binding. * lisp/cedet/ede/proj.el: Use lexical-binding. * lisp/cedet/ede/shell.el: Use lexical-binding. * lisp/cedet/ede/simple.el: Use lexical-binding. * lisp/cedet/ede/source.el: Use lexical-binding. * lisp/cedet/ede/speedbar.el: Use lexical-binding. * lisp/cedet/ede/util.el: Use lexical-binding.
132 lines
4.9 KiB
EmacsLisp
132 lines
4.9 KiB
EmacsLisp
;;; cedet.el --- Setup CEDET environment -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2002-2021 Free Software Foundation, Inc.
|
|
|
|
;; Author: David Ponce <david@dponce.com>
|
|
;; Maintainer: Eric M. Ludlam <zappo@gnu.org>
|
|
;; Version: 2.0
|
|
;; Keywords: OO, lisp
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
;;
|
|
;; This file depends on the major components of CEDET, so that you can
|
|
;; load them all by doing (require 'cedet). This is mostly for
|
|
;; compatibility with the upstream, stand-alone CEDET distribution.
|
|
|
|
(declare-function inversion-find-version "inversion")
|
|
|
|
(defconst cedet-version "2.0"
|
|
"Current version of CEDET.")
|
|
|
|
(defconst cedet-packages
|
|
`(
|
|
;;PACKAGE MIN-VERSION INSTALLDIR DOCDIR
|
|
(cedet ,cedet-version "common" "common" )
|
|
(eieio "1.4" nil "eieio" )
|
|
(semantic "2.2" nil "semantic/doc")
|
|
(srecode "1.2" nil "srecode" )
|
|
(ede "1.2" nil "ede" )
|
|
)
|
|
"Table of CEDET packages to install.")
|
|
|
|
(defvar cedet-menu-map ;(make-sparse-keymap "CEDET menu")
|
|
(let ((map (make-sparse-keymap "CEDET menu")))
|
|
(define-key map [semantic-force-refresh] #'undefined)
|
|
(define-key map [semantic-edit-menu] #'undefined)
|
|
(define-key map [navigate-menu] #'undefined)
|
|
(define-key map [semantic-options-separator] #'undefined)
|
|
(define-key map [global-semantic-highlight-func-mode] #'undefined)
|
|
(define-key map [global-semantic-stickyfunc-mode] #'undefined)
|
|
(define-key map [global-semantic-decoration-mode] #'undefined)
|
|
(define-key map [global-semantic-idle-completions-mode] #'undefined)
|
|
(define-key map [global-semantic-idle-summary-mode] #'undefined)
|
|
(define-key map [global-semantic-idle-scheduler-mode] #'undefined)
|
|
(define-key map [global-semanticdb-minor-mode] #'undefined)
|
|
(define-key map [cedet-menu-separator] #'undefined)
|
|
(define-key map [ede-find-file] #'undefined)
|
|
(define-key map [ede-speedbar] #'undefined)
|
|
(define-key map [ede] #'undefined)
|
|
(define-key map [ede-new] #'undefined)
|
|
(define-key map [ede-target-options] #'undefined)
|
|
(define-key map [ede-project-options] #'undefined)
|
|
(define-key map [ede-build-forms-menu] #'undefined)
|
|
map)
|
|
"Menu keymap for the CEDET package.
|
|
This is used by `semantic-mode' and `global-ede-mode'.")
|
|
|
|
(defun cedet-version ()
|
|
"Display all active versions of CEDET and dependent packages.
|
|
|
|
The PACKAGE column is the name of a given package from CEDET.
|
|
|
|
REQUESTED VERSION is the version requested by the CEDET load script.
|
|
See `cedet-packages' for details.
|
|
|
|
FILE VERSION is the version number found in the source file
|
|
for the specified PACKAGE.
|
|
|
|
LOADED VERSION is the version of PACKAGE currently loaded in Emacs
|
|
memory and (presumably) running in this Emacs instance. Value is X
|
|
if the package has not been loaded."
|
|
(declare (obsolete emacs-version "28.1"))
|
|
(interactive)
|
|
(require 'inversion)
|
|
(with-output-to-temp-buffer "*CEDET*"
|
|
(princ "CEDET Version:\t") (princ cedet-version)
|
|
(princ "\n \t\t\tRequested\tFile\t\tLoaded")
|
|
(princ "\n Package\t\tVersion\t\tVersion\t\tVersion")
|
|
(princ "\n ----------------------------------------------------------")
|
|
(let ((p cedet-packages))
|
|
(while p
|
|
(let ((sym (symbol-name (car (car p)))))
|
|
(princ "\n ")
|
|
(princ sym)
|
|
(princ ":\t")
|
|
(if (< (length sym) 5)
|
|
(princ "\t"))
|
|
(if (< (length sym) 13)
|
|
(princ "\t"))
|
|
(let ((reqver (nth 1 (car p)))
|
|
(filever (car (inversion-find-version sym)))
|
|
(loadver (when (featurep (car (car p)))
|
|
(symbol-value (intern-soft (concat sym "-version"))))))
|
|
(princ reqver)
|
|
(if (< (length reqver) 8) (princ "\t"))
|
|
(princ "\t")
|
|
(if (string= filever reqver)
|
|
;; I tried the words "check" and "match", but that
|
|
;; just looked lame.
|
|
(princ "ok\t")
|
|
(princ filever)
|
|
(if (< (length filever) 8) (princ "\t")))
|
|
(princ "\t")
|
|
(if loadver
|
|
(if (string= loadver reqver)
|
|
(princ "ok")
|
|
(princ loadver))
|
|
(princ "Not Loaded"))
|
|
))
|
|
(setq p (cdr p))))
|
|
(princ "\n\n\nC-h f cedet-version RET\n for details on output format.")
|
|
))
|
|
|
|
(provide 'cedet)
|
|
|
|
;;; cedet.el ends here
|