diff options
| author | David Engster | 2012-10-25 22:13:16 +0200 |
|---|---|---|
| committer | David Engster | 2012-10-25 22:13:16 +0200 |
| commit | 3f2a848dbeb297cdadfc9dd3cff71bab24679b92 (patch) | |
| tree | 3641e34f25caf6b5a6eca8537afdd24ee074c6a3 /lisp/cedet/srecode | |
| parent | aaabfc8b2744aabe00b9fc97eaca59940b5afdeb (diff) | |
| download | emacs-3f2a848dbeb297cdadfc9dd3cff71bab24679b92.tar.gz emacs-3f2a848dbeb297cdadfc9dd3cff71bab24679b92.zip | |
Merge CEDET upstream.
* emacs-lisp/eieio.el (eieio-update-lisp-imenu-expression):
Removed. This feature is already integrated in imenu.
* emacs-lisp/eieio-opt.el: Remove require for `button' since it is
always loaded. Require `speedbar' unconditionally.
* semantic/analyze.el (semantic-analyze-dereference-alias): New
function to dereference aliases.
(semantic-analyze-current-context-default): Use it.
* semantic/grammar.el (semantic-grammar-create-package):
* srecode/compile.el (srecode-compile-templates): Throw a proper
error if semantic-mode is not enabled (bug#9968).
Compiler warning fixes:
* semantic.el (semantic-elapsed-time): Make it a defsubst.
* srecode/dictionary.el (srecode-adebug-dictionary): Remove
require for `semantic'.
* srecode/map.el:
* srecode/insert.el: Declare functions from `data-debug'.
* semantic/grammar.el: Require `help-fns'. Declare functions from
`eldoc', which is required in function body.
* srecode/java.el:
* semantic/texi.el:
* semantic/grammar-wy.el:
* semantic/db-file.el:
* semantic/db-el.el:
* semantic/chart.el: Fix requires.
* ede/locate.el: Remove useless requires. Declare functions
instead and require in functions when needed.
Diffstat (limited to 'lisp/cedet/srecode')
| -rw-r--r-- | lisp/cedet/srecode/compile.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/dictionary.el | 1 | ||||
| -rw-r--r-- | lisp/cedet/srecode/insert.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/srecode/java.el | 5 | ||||
| -rw-r--r-- | lisp/cedet/srecode/map.el | 3 |
5 files changed, 9 insertions, 6 deletions
diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el index 8a1291f8d72..8457e35abe5 100644 --- a/lisp/cedet/srecode/compile.el +++ b/lisp/cedet/srecode/compile.el | |||
| @@ -199,6 +199,8 @@ Arguments ESCAPE-START and ESCAPE-END are the current escape sequences in use." | |||
| 199 | (defun srecode-compile-templates () | 199 | (defun srecode-compile-templates () |
| 200 | "Compile a semantic recode template file into a mode-local variable." | 200 | "Compile a semantic recode template file into a mode-local variable." |
| 201 | (interactive) | 201 | (interactive) |
| 202 | (unless (semantic-active-p) | ||
| 203 | (error "You have to activate semantic-mode to compile SRecode templates.")) | ||
| 202 | (require 'srecode/insert) | 204 | (require 'srecode/insert) |
| 203 | (message "Compiling template %s..." | 205 | (message "Compiling template %s..." |
| 204 | (file-name-nondirectory (buffer-file-name))) | 206 | (file-name-nondirectory (buffer-file-name))) |
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 6262383c397..2b6bbb51eaa 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el | |||
| @@ -604,7 +604,6 @@ STATE is the current compiler state." | |||
| 604 | "Run data-debug on this mode's dictionary." | 604 | "Run data-debug on this mode's dictionary." |
| 605 | (interactive) | 605 | (interactive) |
| 606 | (require 'eieio-datadebug) | 606 | (require 'eieio-datadebug) |
| 607 | (require 'semantic) | ||
| 608 | (require 'srecode/find) | 607 | (require 'srecode/find) |
| 609 | (let* ((modesym major-mode) | 608 | (let* ((modesym major-mode) |
| 610 | (start (current-time)) | 609 | (start (current-time)) |
diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el index 726aa41cffd..f099c0ca6eb 100644 --- a/lisp/cedet/srecode/insert.el +++ b/lisp/cedet/srecode/insert.el | |||
| @@ -195,6 +195,10 @@ Buffer based features related to change hooks is handled one level up." | |||
| 195 | ;; area. Return value is not important. | 195 | ;; area. Return value is not important. |
| 196 | )) | 196 | )) |
| 197 | 197 | ||
| 198 | (declare-function data-debug-new-buffer "data-debug") | ||
| 199 | (declare-function data-debug-insert-stuff-list "data-debug") | ||
| 200 | (declare-function data-debug-insert-thing dictionary "data-debug") | ||
| 201 | |||
| 198 | (defun srecode-insert-show-error-report (dictionary format &rest args) | 202 | (defun srecode-insert-show-error-report (dictionary format &rest args) |
| 199 | "Display an error report based on DICTIONARY, FORMAT and ARGS. | 203 | "Display an error report based on DICTIONARY, FORMAT and ARGS. |
| 200 | This is intended to diagnose problems with failed template | 204 | This is intended to diagnose problems with failed template |
diff --git a/lisp/cedet/srecode/java.el b/lisp/cedet/srecode/java.el index 3635a39d383..43e9273da76 100644 --- a/lisp/cedet/srecode/java.el +++ b/lisp/cedet/srecode/java.el | |||
| @@ -26,10 +26,7 @@ | |||
| 26 | ;;; Code: | 26 | ;;; Code: |
| 27 | 27 | ||
| 28 | (require 'srecode/dictionary) | 28 | (require 'srecode/dictionary) |
| 29 | (require 'semantic/tag) | 29 | (require 'semantic/find) |
| 30 | |||
| 31 | (eval-when-compile | ||
| 32 | (require 'semantic/find)) | ||
| 33 | 30 | ||
| 34 | ;;;###autoload | 31 | ;;;###autoload |
| 35 | (defun srecode-semantic-handle-:java (dict) | 32 | (defun srecode-semantic-handle-:java (dict) |
diff --git a/lisp/cedet/srecode/map.el b/lisp/cedet/srecode/map.el index d6613ee1b02..7fb5c16a1f3 100644 --- a/lisp/cedet/srecode/map.el +++ b/lisp/cedet/srecode/map.el | |||
| @@ -215,7 +215,8 @@ Optional argument RESET forces a reset of the current map." | |||
| 215 | ;; Eventually, I want to return many maps to search through. | 215 | ;; Eventually, I want to return many maps to search through. |
| 216 | (list srecode-current-map))) | 216 | (list srecode-current-map))) |
| 217 | 217 | ||
| 218 | (eval-when-compile (require 'data-debug)) | 218 | (declare-function data-debug-new-buffer "data-debug") |
| 219 | (declare-function data-debug-insert-stuff-list "data-debug") | ||
| 219 | 220 | ||
| 220 | (defun srecode-adebug-maps () | 221 | (defun srecode-adebug-maps () |
| 221 | "Run ADEBUG on the output of `srecode-get-maps'." | 222 | "Run ADEBUG on the output of `srecode-get-maps'." |