mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-22 18:35:09 +00:00
bf659b3f58
* semantic.el (semantic-error-if-unparsed): New function. Raise error if buffer was not parsed by Semantic (bug #12045). (navigate-menu, edit-menu, cedet-menu-map): Enable Semantic items only if buffer was parsed. Also, replace ':active' with ':enable' where necessary. * semantic/wisent/python.el (semantic-python-get-system-include-path): Use `python-shell-internal-send-string' if available to query Python for system paths. * semantic/senator.el (senator-next-tag): (senator-previous-tag): (senator-go-to-up-reference): Use `semantic-error-if-unparsed'. * semantic/complete.el (semantic-complete-jump-local): (semantic-complete-jump): (semantic-complete-jump-local-members): (semantic-complete-self-insert): Use `semantic-error-if-unparsed'. (semantic-complete-inline-project): Fix autoload cookie. * semantic/analyze/complete.el (semantic-analyze-possible-completions): Check if buffer was parsed. Only raise an error if function was called interactively, otherwise silently return nil. * cedet.el (cedet-menu-map): Fix copy&paste typo in menu creation.
138 lines
5.0 KiB
EmacsLisp
138 lines
5.0 KiB
EmacsLisp
;;; cedet.el --- Setup CEDET environment
|
|
|
|
;; Copyright (C) 2002-2012 Free Software Foundation, Inc.
|
|
|
|
;; Author: David Ponce <david@dponce.com>
|
|
;; Maintainer: Eric M. Ludlam <zappo@gnu.org>
|
|
;; Version: 1.0pre7
|
|
;; 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 <http://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.
|
|
|
|
(eval-when-compile
|
|
(require 'cl))
|
|
|
|
(declare-function inversion-find-version "inversion")
|
|
|
|
(defconst cedet-version "1.1"
|
|
"Current version of CEDET.")
|
|
|
|
(defconst cedet-packages
|
|
`(
|
|
;;PACKAGE MIN-VERSION INSTALLDIR DOCDIR
|
|
(cedet ,cedet-version "common" "common" )
|
|
(eieio "1.4" nil "eieio" )
|
|
(semantic "2.1" nil "semantic/doc")
|
|
(srecode "1.1" nil "srecode" )
|
|
(ede "1.1" nil "ede" )
|
|
(speedbar "1.0.4" nil "speedbar" )
|
|
(cogre "1.1" nil "cogre" )
|
|
(cedet-contrib "1.1" "contrib" nil )
|
|
)
|
|
"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."
|
|
(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
|