CEDET non-regression bug fixes

[David Engster]

I'm asking for permission to apply the following CEDET non-regression
bug fixes to the emacs-24 branch. They fix some pretty annoying bugs but
are so small that I think they should be safe to commit.

- Patch1: Fixes a bug where C++ system headers like "vector"
  are not recognized as C++ and hence parsing fails. The bug was that
  `enable-local-variables' was erronously set to 'nil' when loading
  those files, but it should be ':safe', so that the magic comments are
  recognized.

- Patch2: Without this fix, the interactive function
  `semantic-symref-symbol' simply does not work at all, so it cannot
  possibly make anything worse.

- Patch3: Move to beginning of completions when pressing TAB at the end
  of the Completions buffer.

- Patch4: Fixes a very annoying, long-standing bug were active buffers
  were killed when using GNU global and file was loaded through a
  symlink.

-David

=== modified file 'lisp/cedet/semantic/fw.el'
--- lisp/cedet/semantic/fw.el   2012-10-07 12:07:12 +0000
+++ lisp/cedet/semantic/fw.el   2012-10-27 19:55:04 +0000
@@ -421,14 +421,7 @@
         ;; Don't prompt to insert a template if we visit an empty file
         (auto-insert nil)
         ;; We don't want emacs to query about unsafe local variables
-        (enable-local-variables
-         (if (featurep 'xemacs)
-             ;; XEmacs only has nil as an option?
-             nil
-           ;; Emacs 23 has the spiffy :safe option, nil otherwise.
-           (if (>= emacs-major-version 22)
-               nil
-             :safe)))
+        (enable-local-variables :safe)
         ;; ... or eval variables
         (enable-local-eval nil)
         )

=== modified file 'lisp/cedet/semantic/symref/list.el'
--- lisp/cedet/semantic/symref/list.el  2012-09-02 18:37:45 +0000
+++ lisp/cedet/semantic/symref/list.el  2012-11-04 21:03:27 +0000
@@ -69,7 +69,7 @@
 references are organized by file and the name of the function
 they are used in.
 Display the references in `semantic-symref-results-mode'."
-  (interactive (list (semantic-tag-name (semantic-complete-read-tag-buffer-deep
+  (interactive (list (semantic-tag-name (semantic-complete-read-tag-project
                                         "Symrefs for: "))))
   (semantic-fetch-tags)
   (let ((res nil)

=== modified file 'lisp/cedet/semantic/complete.el'
--- lisp/cedet/semantic/complete.el     2012-10-12 19:56:34 +0000
+++ lisp/cedet/semantic/complete.el     2012-11-04 21:06:33 +0000
@@ -1340,7 +1343,10 @@
 
 (defmethod semantic-displayor-scroll-request ((obj 
semantic-displayor-abstract))
   "A request to for the displayor to scroll the completion list (if needed)."
-  (scroll-other-window))
+  (with-selected-window (get-buffer-window "*Completions*")
+    (if (posn-at-point (point-max))
+       (goto-char (point-min))
+      (scroll-up))))
 
 (defmethod semantic-displayor-focus-previous ((obj 
semantic-displayor-abstract))
   "Set the current focus to the previous item."

=== modified file 'lisp/cedet/semantic/symref.el'
--- lisp/cedet/semantic/symref.el       2012-09-02 16:59:23 +0000
+++ lisp/cedet/semantic/symref.el       2012-11-06 16:35:07 +0000
@@ -356,7 +356,7 @@
          (lambda (hit)
            (let* ((line (car hit))
                   (file (cdr hit))
-                  (buff (get-file-buffer file))
+                  (buff (find-buffer-visiting file))
                   (tag nil)
                   )
              (cond