mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

lisp/cedet/semantic/java.el: File moved here from bovine/ subdirectory.

Browse source
This commit is contained in:
Chong Yidong 2009-09-06 02:18:37 +00:00
parent d7576f17fe
commit 6ca2fce3b8
2 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/cedet/semantic/debug.el
View file

@ -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