summaryrefslogtreecommitdiff
path: root/lisp/cedet/semantic
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2009-09-06 02:18:37 +0000
committerChong Yidong <cyd@stupidchicken.com>2009-09-06 02:18:37 +0000
commit6ca2fce3b8d345e619694f64c99013574000d0b3 (patch)
treee5434f5b8815d0b605f182b1050973cd507d5026 /lisp/cedet/semantic
parentd7576f17fe04f02053d55bad26c3ad81ced245e3 (diff)
downloademacs-6ca2fce3b8d345e619694f64c99013574000d0b3.tar.gz
lisp/cedet/semantic/java.el: File moved here from bovine/ subdirectory.
Diffstat (limited to 'lisp/cedet/semantic')
-rw-r--r--lisp/cedet/semantic/debug.el20
-rw-r--r--lisp/cedet/semantic/java.el (renamed from lisp/cedet/semantic/bovine/java.el)6
2 files changed, 12 insertions, 14 deletions
diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el
index 9c506c54bd1..31100e075c2 100644
--- a/lisp/cedet/semantic/debug.el
+++ b/lisp/cedet/semantic/debug.el
@@ -1,4 +1,4 @@
-;;; debug.el --- Language Debugger framework
+;;; semantic/debug.el --- Language Debugger framework
;;; Copyright (C) 2003, 2004, 2005, 2008 Free Software Foundation, Inc.
@@ -38,8 +38,6 @@
(require 'semantic)
(require 'eieio)
-;; (require 'inversion)
-;; (inversion-require 'eieio "0.18beta1")
;;; Code:
(defvar semantic-debug-parser-source nil
@@ -141,7 +139,7 @@ These buffers are brought into view when layout occurs.")
)
;; Set the number of lines to 1/3, or the size of the data buffer.
(if (< cnt lines) (setq cnt lines))
-
+
(split-window-vertically cnt)
(switch-to-buffer (oref iface data-buffer))
)
@@ -175,7 +173,7 @@ NONTERM is the name of the rule currently being processed that shows up
as a nonterminal (or tag) in the source buffer.
If RULE and MATCH indicies are specified, highlight those also."
(set-buffer (oref iface :parser-buffer))
-
+
(let* ((rules (semantic-find-tags-by-class 'nonterminal (current-buffer)))
(nt (semantic-find-first-tag-by-name nonterm rules))
(o nil)
@@ -183,7 +181,7 @@ If RULE and MATCH indicies are specified, highlight those also."
(when nt
;; I know it is the first symbol appearing in the body of this token.
(goto-char (semantic-tag-start nt))
-
+
(setq o (semantic-make-overlay (point) (progn (forward-sexp 1) (point))))
(semantic-overlay-put o 'face 'highlight)
@@ -264,12 +262,12 @@ on different types of return values."
(defmethod semantic-debug-frame-highlight ((frame semantic-debug-frame))
"Highlight one parser frame."
-
+
)
(defmethod semantic-debug-frame-info ((frame semantic-debug-frame))
"Display info about this one parser frame."
-
+
)
;;; Major Mode
@@ -291,7 +289,7 @@ on different types of return values."
(define-key km "b" 'semantic-debug-set-breakpoint)
;; Some boring bindings.
(define-key km "e" 'eval-expression)
-
+
km)
"Keymap used when in semantic-debug-node.")
@@ -308,7 +306,7 @@ Argument ONOFF is non-nil when we are entering debug mode.
(use-local-map semantic-debug-mode-map)
;; Make the buffer read only
(toggle-read-only 1)
-
+
(set-buffer (oref iface source-buffer))
;; Use our map in the source buffer also
(use-local-map semantic-debug-mode-map)
@@ -563,4 +561,4 @@ A frame is of the form:
(provide 'semantic/debug)
-;;; semantic-debug.el ends here
+;;; semantic/debug.el ends here
diff --git a/lisp/cedet/semantic/bovine/java.el b/lisp/cedet/semantic/java.el
index 1d01eb887f6..3a57c65792d 100644
--- a/lisp/cedet/semantic/bovine/java.el
+++ b/lisp/cedet/semantic/java.el
@@ -1,4 +1,4 @@
-;;; semantic/bovine/java.el --- Semantic functions for Java
+;;; semantic/java.el --- Semantic functions for Java
;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
;;; 2007, 2008, 2009 Free Software Foundation, Inc.
@@ -460,6 +460,6 @@ removed from the result list."
)
-(provide 'semantic/bovine/java)
+(provide 'semantic/java)
-;;; semantic/bovine/java.el ends here
+;;; semantic/java.el ends here