[Emacs-diffs] trunk r114258: * cedet/semantic/ia.el (semantic-ia-complete-symbol-menu):

[Glenn Morris]

------------------------------------------------------------
revno: 114258
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14522
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-09-12 23:37:39 -0700
message:
  * cedet/semantic/ia.el (semantic-ia-complete-symbol-menu):
  Comment it out, since it cannot work.
modified:
  lisp/cedet/ChangeLog           changelog-20100919015713-3rbr456yray5m84f-1
  lisp/cedet/semantic/ia.el      ia.el-20091113204419-o5vbwnq5f7feedwu-11284

=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2013-09-12 17:23:48 +0000
+++ b/lisp/cedet/ChangeLog      2013-09-13 06:37:39 +0000
@@ -1,3 +1,8 @@
+2013-09-13  Glenn Morris  <address@hidden>
+
+       * semantic/ia.el (semantic-ia-complete-symbol-menu):
+       Comment it out, since it cannot work.  (Bug#14522)
+
 2013-09-12  Glenn Morris  <address@hidden>
 
        * semantic/find.el (semantic-find-first-tag-by-name):

=== modified file 'lisp/cedet/semantic/ia.el'
--- a/lisp/cedet/semantic/ia.el 2013-01-01 09:11:05 +0000
+++ b/lisp/cedet/semantic/ia.el 2013-09-13 06:37:39 +0000
@@ -149,44 +149,45 @@
   :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
 ;;