Synch Semantic to CEDET 1.0.

[gnu-emacs] / lisp / cedet / semantic / analyze / debug.el

diff --git a/lisp/cedet/semantic/analyze/debug.el b/lisp/cedet/semantic/analyze/debug.el
index 1f253214fcba6abfa87575201b6439b6404ec40e..490b57bf83a09baeed2f126d367a0129f922f33a 100644 (file)
--- a/lisp/cedet/semantic/analyze/debug.el
+++ b/lisp/cedet/semantic/analyze/debug.el
@@ -54,6 +54,8 @@
 
     ))
 
+;; @TODO - If this happens, but the last found type is
+;; a datatype, then the below is wrong
 (defun semantic-analyzer-debug-found-prefix (ctxt)
   "Debug the prefix found by the analyzer output CTXT."
   (let* ((pf (oref ctxt prefix))
@@ -97,7 +99,7 @@ Argument COMP are possible completions here."
        )
     (with-output-to-temp-buffer (help-buffer)
       (with-current-buffer standard-output
-       (princ "Unable to find prefix ")
+       (princ "Unable to find symbol ")
        (princ prefix)
        (princ ".\n\n")
 
@@ -217,7 +219,7 @@ Argument COMP are possible completions here."
     (when (not dt) (error "Missing Innertype debugger is confused"))
     (with-output-to-temp-buffer (help-buffer)
       (with-current-buffer standard-output
-       (princ "Cannot find prefix \"")
+       (princ "Cannot find symbol \"")
        (princ prefixitem)
        (princ "\" in datatype:
   ")
@@ -550,24 +552,25 @@ PARENT is a possible parent (by nesting) tag."
   (let ((str (semantic-format-tag-prototype tag parent)))
     (if (and (semantic-tag-with-position-p tag)
             (semantic-tag-file-name tag))
-       (insert-button str
-                      'mouse-face 'custom-button-pressed-face
-                      'tag tag
-                      'action
-                      `(lambda (button)
-                         (let ((buff nil)
-                               (pnt nil))
-                           (save-excursion
-                             (semantic-go-to-tag
-                              (button-get button 'tag))
-                             (setq buff (current-buffer))
-                             (setq pnt (point)))
-                           (if (get-buffer-window buff)
-                               (select-window (get-buffer-window buff))
-                             (pop-to-buffer buff t))
-                           (goto-char pnt)
-                           (pulse-line-hook-function)))
-                      )
+       (with-current-buffer standard-output
+         (insert-button str
+                        'mouse-face 'custom-button-pressed-face
+                        'tag tag
+                        'action
+                        `(lambda (button)
+                           (let ((buff nil)
+                                 (pnt nil))
+                             (save-excursion
+                               (semantic-go-to-tag
+                                (button-get button 'tag))
+                               (setq buff (current-buffer))
+                               (setq pnt (point)))
+                             (if (get-buffer-window buff)
+                                 (select-window (get-buffer-window buff))
+                               (pop-to-buffer buff t))
+                             (goto-char pnt)
+                             (pulse-line-hook-function)))
+                        ))
       (princ "\"")
       (princ str)
       (princ "\""))