;;; semantic/tag-ls.el --- Language Specific override functions for tags
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2006, 2007, 2008,
-;; 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2004, 2006-2011 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
(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'.
;; Local variables:
;; generated-autoload-file: "loaddefs.el"
-;; generated-autoload-feature: semantic/loaddefs
;; generated-autoload-load-name: "semantic/tag-ls"
;; End: