Update copyright year to 2015

[gnu-emacs] / lisp / cedet / semantic / sort.el

diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el
index d62c3bb17d9ed01692ef0ac9df35943b95820cc7..587d084701de04f09328b83f5fdbe99875cdcfb9 100644 (file)
--- a/lisp/cedet/semantic/sort.el
+++ b/lisp/cedet/semantic/sort.el
@@ -1,6 +1,6 @@
-;;; sort.el --- Utilities for sorting and re-arranging tag tables.
+;;; semantic/sort.el --- Utilities for sorting and re-arranging tag tables.
 
-;;; Copyright (C) 1999-2005, 2007-2011 Free Software Foundation, Inc.
+;;; Copyright (C) 1999-2005, 2007-2015 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: syntax
@@ -27,7 +27,7 @@
 ;; purposes.  Re-organization may be alphabetical, or even a complete
 ;; reorganization of parents and children.
 ;;
-;; Originally written in semantic-util.el
+;; Originally written in semantic/util.el
 ;;
 
 (require 'semantic)
@@ -229,7 +229,7 @@ unmodified as components of their parent tags."
     (mapc (lambda (tag)
            (let ((components (semantic-tag-components tag)))
              (if (and components
-                      ;; unpositined tags can be hazardous to
+                      ;; unpositioned tags can be hazardous to
                       ;; completion.  Do we need any type of tag
                       ;; here?  - EL
                       (semantic-tag-with-position-p (car components)))
@@ -522,7 +522,7 @@ See `semantic-tag-external-member-children' for details."
           (semanticdb-minor-mode-p)
           (require 'semantic/db-find))
       (let ((m (semanticdb-find-tags-external-children-of-type
-               (semantic-tag-name tag))))
+               (semantic-tag-name tag) tag)))
        (if m (apply #'append (mapcar #'cdr m))))
     (semantic--find-tags-by-function
      `(lambda (tok)
@@ -565,4 +565,4 @@ See `semantic-tag-external-class' for details."
 ;; generated-autoload-load-name: "semantic/sort"
 ;; End:
 
-;;; semantic-sort.el ends here
+;;; semantic/sort.el ends here