Mercurial > emacs

comparison lisp/cedet/semantic/db-global.el @ 105307:786c0adc17cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(data-debug-new-buffer, data-debug-insert-thing): Remove unneeded declarations (one broken). (semanticdb-enable-gnu-global-databases): Fix prompt typo.
author Glenn Morris <rgm@gnu.org>
date Wed, 30 Sep 2009 07:50:48 +0000
parents a6a812dd2d88
children 7f4c7f5c0eba
comparison
equal deleted inserted replaced
105306:7f2af67df0e3 105307:786c0adc17cc
1 ;;; semantic/db-global.el --- Semantic database extensions for GLOBAL 1 ;;; semantic/db-global.el --- Semantic database extensions for GLOBAL
2 2
3 ;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2008, 2009 3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2008, 2009
4 ;;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Eric M. Ludlam <zappo@gnu.org> 6 ;; Author: Eric M. Ludlam <zappo@gnu.org>
7 ;; Keywords: tags 7 ;; Keywords: tags
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
37 (require 'eieio) 37 (require 'eieio)
38 (require 'eieio-opt) 38 (require 'eieio-opt)
39 ) 39 )
40 40
41 ;;; Code: 41 ;;; Code:
42
43 (declare-function data-debug-new-buffer "data-debug")
44 (declare-function data-debug-insert-thing result "data-debug")
45 42
46 ;;;###autoload 43 ;;;###autoload
47 (defun semanticdb-enable-gnu-global-databases (mode) 44 (defun semanticdb-enable-gnu-global-databases (mode)
48 "Enable the use of the GNU Global SemanticDB back end for all files of MODE. 45 "Enable the use of the GNU Global SemanticDB back end for all files of MODE.
49 This will add an instance of a GNU Global database to each buffer 46 This will add an instance of a GNU Global database to each buffer
50 in a GNU Global supported hierarchy." 47 in a GNU Global supported hierarchy."
51 (interactive 48 (interactive
52 (list (completing-read 49 (list (completing-read
53 "Emable in Mode: " obarray 50 "Enable in Mode: " obarray
54 #'(lambda (s) (get s 'mode-local-symbol-table)) 51 #'(lambda (s) (get s 'mode-local-symbol-table))
55 t (symbol-name major-mode)))) 52 t (symbol-name major-mode))))
56 53
57 ;; First, make sure the version is ok. 54 ;; First, make sure the version is ok.
58 (cedet-gnu-global-version-check) 55 (cedet-gnu-global-version-check)