* cedet/semantic/ia.el (semantic-ia-complete-symbol-menu):

Comment it out, since it cannot work.

Fixes: debbugs:14522

2 files changed, 44 insertions, 38 deletions

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 6be1c44743a..2094523cdaa 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-13  Glenn Morris  <rgm@gnu.org>
+
+	* semantic/ia.el (semantic-ia-complete-symbol-menu):
+	Comment it out, since it cannot work.  (Bug#14522)
+
 2013-09-12  Glenn Morris  <rgm@gnu.org>
 
 	* semantic/find.el (semantic-find-first-tag-by-name):
diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el
index d087ac6fcde..d1ff7f1d9aa 100644
--- a/lisp/cedet/semantic/ia.el
+++ b/lisp/cedet/semantic/ia.el
@@ -149,44 +149,45 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
   :group 'semantic
   :type semantic-format-tag-custom-list)
 
-;;;###autoload
-(defun semantic-ia-complete-symbol-menu (point)
-  "Complete the current symbol via a menu based at POINT.
-Completion options are calculated with `semantic-analyze-possible-completions'."
-  (interactive "d")
-  (require 'imenu)
-  (let* ((a (semantic-analyze-current-context point))
-	 (syms (semantic-analyze-possible-completions a))
-	 )
-    ;; Complete this symbol.
-    (if (not syms)
-	(progn
-	  (message "No smart completions found.  Trying Senator.")
-	  (when (semantic-analyze-context-p a)
-	    ;; This is a quick way of getting a nice completion list
-	    ;; in the menu if the regular context mechanism fails.
-	    (senator-completion-menu-popup)))
-
-      (let* ((menu
-	      (mapcar
-	       (lambda (tag)
-		 (cons
-		  (funcall semantic-ia-completion-menu-format-tag-function tag)
-		  (vector tag)))
-	       syms))
-	     (ans
-	      (imenu--mouse-menu
-	       ;; XEmacs needs that the menu has at least 2 items.  So,
-	       ;; include a nil item that will be ignored by imenu.
-	       (cons nil menu)
-	       (senator-completion-menu-point-as-event)
-	       "Completions")))
-	(when ans
-	  (if (not (semantic-tag-p ans))
-	      (setq ans (aref (cdr ans) 0)))
-	  (delete-region (car (oref a bounds)) (cdr (oref a bounds)))
-	  (semantic-ia-insert-tag ans))
-	))))
+;; Disabled - see http://debbugs.gnu.org/14522
+;; ;;;###autoload
+;; (defun semantic-ia-complete-symbol-menu (point)
+;;   "Complete the current symbol via a menu based at POINT.
+;; Completion options are calculated with `semantic-analyze-possible-completions'."
+;;   (interactive "d")
+;;   (require 'imenu)
+;;   (let* ((a (semantic-analyze-current-context point))
+;; 	 (syms (semantic-analyze-possible-completions a))
+;; 	 )
+;;     ;; Complete this symbol.
+;;     (if (not syms)
+;; 	(progn
+;; 	  (message "No smart completions found.  Trying Senator.")
+;; 	  (when (semantic-analyze-context-p a)
+;; 	    ;; This is a quick way of getting a nice completion list
+;; 	    ;; in the menu if the regular context mechanism fails.
+;; 	    (senator-completion-menu-popup)))
+;;
+;;       (let* ((menu
+;; 	      (mapcar
+;; 	       (lambda (tag)
+;; 		 (cons
+;; 		  (funcall semantic-ia-completion-menu-format-tag-function tag)
+;; 		  (vector tag)))
+;; 	       syms))
+;; 	     (ans
+;; 	      (imenu--mouse-menu
+;; 	       ;; XEmacs needs that the menu has at least 2 items.  So,
+;; 	       ;; include a nil item that will be ignored by imenu.
+;; 	       (cons nil menu)
+;; 	       (senator-completion-menu-point-as-event)
+;; 	       "Completions")))
+;; 	(when ans
+;; 	  (if (not (semantic-tag-p ans))
+;; 	      (setq ans (aref (cdr ans) 0)))
+;; 	  (delete-region (car (oref a bounds)) (cdr (oref a bounds)))
+;; 	  (semantic-ia-insert-tag ans))
+;; 	))))
 
 ;;; Completions Tip
 ;;