annotate lisp/cedet/cedet.el @ 110149:4ac2b883320e

Forgor to save ChangeLog for previous commit.
author Jan D. <jan.h.d@swipnet.se>
date Thu, 02 Sep 2010 12:20:20 +0200
parents a3e1f7134e6e
children b799d38f522a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1 ;;; cedet.el --- Setup CEDET environment
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106150
diff changeset
3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
105325
42404460bd67 Doc/message fixes.
Glenn Morris <rgm@gnu.org>
parents: 104524
diff changeset
4 ;; Free Software Foundation, Inc.
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
5
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
6 ;; Author: David Ponce <david@dponce.com>
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
7 ;; Maintainer: Eric M. Ludlam <zappo@gnu.org>
110016
a3e1f7134e6e Add "Version:" and "Package:" Lisp file headers.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
8 ;; Version: 1.0pre7
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
9 ;; Keywords: OO, lisp
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
10
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
12
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
15 ;; the Free Software Foundation, either version 3 of the License, or
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
16 ;; (at your option) any later version.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
17
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
21 ;; GNU General Public License for more details.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
22
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
25
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
26 ;;; Commentary:
104489
25e047f7f6a2 Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents: 104470
diff changeset
27
25e047f7f6a2 Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents: 104470
diff changeset
28 ;;; Code:
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
29 ;;
104505
5dcce8f7fa66 Update commentary.
Chong Yidong <cyd@stupidchicken.com>
parents: 104504
diff changeset
30 ;; This file depends on the major components of CEDET, so that you can
5dcce8f7fa66 Update commentary.
Chong Yidong <cyd@stupidchicken.com>
parents: 104504
diff changeset
31 ;; load them all by doing (require 'cedet). This is mostly for
5dcce8f7fa66 Update commentary.
Chong Yidong <cyd@stupidchicken.com>
parents: 104504
diff changeset
32 ;; compatibility with the upstream, stand-alone CEDET distribution.
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
33
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
34 (eval-when-compile
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
35 (require 'cl))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
36
104523
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
37 (declare-function inversion-find-version "inversion")
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
38
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
39 (defconst cedet-version "1.0pre7"
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
40 "Current version of CEDET.")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
41
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
42 (defconst cedet-packages
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
43 `(
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
44 ;;PACKAGE MIN-VERSION
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
45 (cedet ,cedet-version)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
46 (eieio "1.2")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
47 (semantic "2.0pre7")
104439
da5b2513c225 cedet/cedet.el (cedet-packages): Bump srecode version.
Chong Yidong <cyd@stupidchicken.com>
parents: 104407
diff changeset
48 (srecode "1.0pre7")
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
49 (ede "1.0pre7")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
50 (speedbar "1.0.3"))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
51 "Table of CEDET packages to install.")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
52
104523
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
53 (defvar cedet-menu-map ;(make-sparse-keymap "CEDET menu")
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
54 (let ((map (make-sparse-keymap "CEDET menu")))
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
55 (define-key map [semantic-force-refresh] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
56 (define-key map [semantic-edit-menu] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
57 (define-key map [navigate-menu] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
58 (define-key map [semantic-options-separator] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
59 (define-key map [global-semantic-highlight-func-mode] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
60 (define-key map [global-semantic-highlight-func-mode] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
61 (define-key map [global-semantic-decoration-mode] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
62 (define-key map [global-semantic-idle-completions-mode] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
63 (define-key map [global-semantic-idle-summary-mode] 'undefined)
106150
269b53d49dd9 * cedet/cedet.el (cedet-menu-map): Re-order menu items.
Chong Yidong <cyd@stupidchicken.com>
parents: 105815
diff changeset
64 (define-key map [global-semantic-idle-scheduler-mode] 'undefined)
104523
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
65 (define-key map [global-semanticdb-minor-mode] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
66 (define-key map [cedet-menu-separator] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
67 (define-key map [ede-find-file] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
68 (define-key map [ede-speedbar] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
69 (define-key map [ede] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
70 (define-key map [ede-new] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
71 (define-key map [ede-target-options] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
72 (define-key map [ede-project-options] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
73 (define-key map [ede-build-forms-menu] 'undefined)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
74 map)
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
75 "Menu keymap for the CEDET package.
18ae68cd64bd * cedet/ede.el (global-ede-mode-map): Move menu to
Chong Yidong <cyd@stupidchicken.com>
parents: 104505
diff changeset
76 This is used by `semantic-mode' and `global-ede-mode'.")
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
77
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
78 (defun cedet-version ()
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
79 "Display all active versions of CEDET and Dependant packages.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
80
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
81 The PACKAGE column is the name of a given package from CEDET.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
82
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
83 REQUESTED VERSION is the version requested by the CEDET load script.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
84 See `cedet-packages' for details.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
85
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
86 FILE VERSION is the version number found in the source file
105325
42404460bd67 Doc/message fixes.
Glenn Morris <rgm@gnu.org>
parents: 104524
diff changeset
87 for the specified PACKAGE.
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
88
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
89 LOADED VERSION is the version of PACKAGE current loaded in Emacs
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
90 memory and (presumably) running in this Emacs instance. Value is X
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
91 if the package has not been loaded."
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
92 (interactive)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
93 (require 'inversion)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
94 (with-output-to-temp-buffer "*CEDET*"
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
95 (princ "CEDET Version:\t") (princ cedet-version)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
96 (princ "\n \t\t\tRequested\tFile\t\tLoaded")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
97 (princ "\n Package\t\tVersion\t\tVersion\t\tVersion")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
98 (princ "\n ----------------------------------------------------------")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
99 (let ((p cedet-packages))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
100 (while p
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
101 (let ((sym (symbol-name (car (car p)))))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
102 (princ "\n ")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
103 (princ sym)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
104 (princ ":\t")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
105 (if (< (length sym) 5)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
106 (princ "\t"))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
107 (if (< (length sym) 13)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
108 (princ "\t"))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
109 (let ((reqver (nth 1 (car p)))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
110 (filever (car (inversion-find-version sym)))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
111 (loadver (when (featurep (car (car p)))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
112 (symbol-value (intern-soft (concat sym "-version"))))))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
113 (princ reqver)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
114 (if (< (length reqver) 8) (princ "\t"))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
115 (princ "\t")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
116 (if (string= filever reqver)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
117 ;; I tried the words "check" and "match", but that
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
118 ;; just looked lame.
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
119 (princ "ok\t")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
120 (princ filever)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
121 (if (< (length filever) 8) (princ "\t")))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
122 (princ "\t")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
123 (if loadver
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
124 (if (string= loadver reqver)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
125 (princ "ok")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
126 (princ loadver))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
127 (princ "Not Loaded"))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
128 ))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
129 (setq p (cdr p))))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
130 (princ "\n\n\nC-h f cedet-version RET\n for details on output format.")
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
131 ))
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
132
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
133 (provide 'cedet)
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
134
105377
7f4c7f5c0eba Add arch tagline
Miles Bader <miles@gnu.org>
parents: 105325
diff changeset
135 ;; arch-tag: ad4b0b63-d1f9-4a41-b003-9bbb2feb5226
104407
4af663a1c4ab cedet-cscope.el, cedet-edebug.el, cedet-global.el, cedet-idutils.el,
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
136 ;;; cedet.el ends here