;;; semantic/tag-ls.el --- Language Specific override functions for tags
-;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2006, 2007, 2008
-;;; Free Software Foundation, Inc.
+;; Copyright (C) 1999-2004, 2006-2011 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;;; Commentary:
;;
-;; There are some features of tags that are too langauge dependent to
+;; There are some features of tags that are too language dependent to
;; put in the core `semantic-tag' functionality. For instance, the
;; protection of a tag (as specified by UML) could be almost anything.
;; In Java, it is a type specifier. In C, there is a label. This
-;; informatin can be derived, and thus should not be stored in the tag
+;; information can be derived, and thus should not be stored in the tag
;; itself. These are the functions that languages can use to derive
;; the information.
(defun semantic-tag-calculate-parent-default (tag)
"Attempt to calculate the parent of TAG."
(when (semantic-tag-in-buffer-p tag)
- (save-excursion
- (set-buffer (semantic-tag-buffer tag))
+ (with-current-buffer (semantic-tag-buffer tag)
(save-excursion
(goto-char (semantic-tag-start tag))
(semantic-current-tag-parent))
(:override))
(make-obsolete-overload 'semantic-nonterminal-protection
- 'semantic-tag-protection)
+ 'semantic-tag-protection "23.2")
(defun semantic-tag-protection-default (tag &optional parent)
"Return the protection of TAG as a child of PARENT default action.
is to return true if `abstract' is in the type modifiers.")
(make-obsolete-overload 'semantic-nonterminal-abstract
- 'semantic-tag-abstract-p)
+ 'semantic-tag-abstract-p "23.2")
(defun semantic-tag-abstract-p-default (tag &optional parent)
"Return non-nil if TAG is abstract as a child of PARENT default action.
is to return true if `leaf' is in the type modifiers.")
(make-obsolete-overload 'semantic-nonterminal-leaf
- 'semantic-tag-leaf-p)
+ 'semantic-tag-leaf-p "23.2")
(defun semantic-tag-leaf-p-default (tag &optional parent)
"Return non-nil if TAG is leaf as a child of PARENT default action.
(:override-with-args (tag stream))))
(make-obsolete-overload 'semantic-nonterminal-full-name
- 'semantic-tag-full-name)
+ 'semantic-tag-full-name "23.2")
(defun semantic-tag-full-name-default (tag stream)
"Default method for `semantic-tag-full-name'.
Return the name of TAG found in the toplevel STREAM."
(semantic-tag-name tag))
-;;; Compatibility aliases.
-;;
-(semantic-alias-obsolete 'semantic-nonterminal-protection
- 'semantic-tag-protection)
-(semantic-alias-obsolete 'semantic-nonterminal-protection-default
- 'semantic-tag-protection-default)
-(semantic-alias-obsolete 'semantic-nonterminal-abstract
- 'semantic-tag-abstract-p)
-(semantic-alias-obsolete 'semantic-nonterminal-abstract-default
- 'semantic-tag-abstract-p-default)
-(semantic-alias-obsolete 'semantic-nonterminal-leaf
- 'semantic-tag-leaf-p)
-(semantic-alias-obsolete 'semantic-nonterminal-leaf-default
- 'semantic-tag-leaf-p-default)
-(semantic-alias-obsolete 'semantic-nonterminal-static-default
- 'semantic-tag-static-p-default)
-(semantic-alias-obsolete 'semantic-nonterminal-full-name
- 'semantic-tag-full-name)
-(semantic-alias-obsolete 'semantic-nonterminal-full-name-default
- 'semantic-tag-full-name-default)
-
-;; TEMPORARY within betas of CEDET 1.0
-(semantic-alias-obsolete 'semantic-tag-static 'semantic-tag-static-p)
-(semantic-alias-obsolete 'semantic-tag-leaf 'semantic-tag-leaf-p)
-(semantic-alias-obsolete 'semantic-tag-abstract 'semantic-tag-abstract-p)
-
(provide 'semantic/tag-ls)
;; Local variables:
;; generated-autoload-file: "loaddefs.el"
-;; generated-autoload-feature: semantic/loaddefs
;; generated-autoload-load-name: "semantic/tag-ls"
;; End: