Update copyright year to 2016

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

diff --git a/lisp/cedet/srecode/semantic.el b/lisp/cedet/srecode/semantic.el
index 4a1a15c1d1245f8c9efb0e31997b021f1af08ca2..a76ac40c50835fb358e88261c0b15e27960a7cb9 100644 (file)
--- a/lisp/cedet/srecode/semantic.el
+++ b/lisp/cedet/srecode/semantic.el
@@ -1,6 +1,6 @@
 ;;; srecode/semantic.el --- Semantic specific extensions to SRecode.
 
-;; Copyright (C) 2007-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2016 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
 
@@ -55,7 +55,7 @@
   "Wrap up a collection of semantic tag information.
 This class will be used to derive dictionary values.")
 
-(defmethod srecode-compound-toString((cp srecode-semantic-tag)
+(cl-defmethod srecode-compound-toString((cp srecode-semantic-tag)
                                     function
                                     dictionary)
   "Convert the compound dictionary value CP to a string.
@@ -351,6 +351,12 @@ as `function' will leave point where code might be inserted."
           (setq temp (srecode-semantic-find-template
                       "variable-const" prototype ctxt))
           )
+
+         ((and (semantic-tag-of-class-p tag 'include)
+               (semantic-tag-get-attribute tag :system-flag))
+          (setq temp (srecode-semantic-find-template
+                      "system-include" prototype ctxt))
+          )
          )
 
     (when (not temp)
@@ -394,7 +400,7 @@ as `function' will leave point where code might be inserted."
        (srecode-semantic-apply-tag-to-dict tagobj dict)))
 
     ;; Insert dict-entries into the dictionary LAST so that previous
-    ;; items can be overriden.
+    ;; items can be overridden.
     (let ((entries dict-entries))
       (while entries
        (srecode-dictionary-set-value dict