]> code.delx.au - gnu-emacs/blobdiff - lisp/cedet/semantic/util.el
Update copyright year to 2016
[gnu-emacs] / lisp / cedet / semantic / util.el
index acf5f95a217703f01dc1d67ac4a98f4661e6925c..2b40e94677d6482018813498a54ed63da1fea9b7 100644 (file)
@@ -1,6 +1,6 @@
 ;;; semantic/util.el --- Utilities for use with semantic tag tables
 
-;;; Copyright (C) 1999-2005, 2007-2011 Free Software Foundation, Inc.
+;;; Copyright (C) 1999-2005, 2007-2016 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: syntax
@@ -280,7 +280,7 @@ If TAG is not specified, use the tag at point."
                      semantic-parser-name
                      semantic-parse-tree-state
                      semantic-lex-analyzer
-                     semantic-lex-reset-hooks
+                     semantic-lex-reset-functions
                      semantic-lex-syntax-modifications
                      )))
          (dolist (V vars)
@@ -298,6 +298,7 @@ If TAG is not specified, use the tag at point."
                      semantic-dump-parse
                      semantic-type-relation-separator-character
                      semantic-command-separation-character
+                     semantic-new-buffer-fcn-was-run
                      )))
          (dolist (V vars)
            (semantic-describe-buffer-var-helper V buff)))
@@ -418,7 +419,8 @@ determining which symbols are considered."
            (setq list (sort list 'string<))
            (if (> (length list) 1)
                (with-output-to-temp-buffer "*Completions*"
-                 (display-completion-list list pattern))
+                 (display-completion-list
+                  (completion-hilit-commonality list (length pattern) nil)))
              ;; Bury any out-of-date completions buffer.
              (let ((win (get-buffer-window "*Completions*" 0)))
                (if win (with-selected-window win (bury-buffer))))))