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 1cbb6787460db7be99ef22f84355328f142e97b9..587d084701de04f09328b83f5fdbe99875cdcfb9 100644 (file)
--- a/lisp/cedet/semantic/sort.el
+++ b/lisp/cedet/semantic/sort.el
@@ -1,7 +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, 2000, 2001, 2002, 2003, 2004, 2005, 2007,
-;;; 2008, 2009, 2010 Free Software Foundation, Inc.
+;;; Copyright (C) 1999-2005, 2007-2015 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: syntax
@@ -28,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)
@@ -230,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)))
@@ -463,7 +462,7 @@ include the default behavior, and merely extend your own."
   )
 
 (defun semantic-tag-external-member-parent-default (tag)
-  "Return the name of TAGs parent only if TAG is not defined in it's parent."
+  "Return the name of TAGs parent only if TAG is not defined in its parent."
   ;; Use only the extra spec because a type has a parent which
   ;; means something completely different.
   (let ((tp (semantic-tag-get-attribute tag :parent)))
@@ -473,7 +472,7 @@ include the default behavior, and merely extend your own."
 (define-overloadable-function semantic-tag-external-member-p (parent tag)
   "Return non-nil if PARENT is the parent of TAG.
 TAG is an external member of PARENT when it is somehow tagged
-as having PARENT as it's parent.
+as having PARENT as its parent.
 PARENT and TAG must both be semantic tags.
 
 The default behavior, if not overridden with
@@ -523,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)
@@ -566,5 +565,4 @@ See `semantic-tag-external-class' for details."
 ;; generated-autoload-load-name: "semantic/sort"
 ;; End:
 
-;; arch-tag: 9231c8e7-ac7f-4b35-9302-651a02e5fef0
-;;; semantic-sort.el ends here
+;;; semantic/sort.el ends here