;;; semantic/edit.el --- Edit Management for Semantic
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;; 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2011 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; confirmed as the lineage of `overlapped-tags'
;; which must have a value by now.
- ;; Loop over the search list to find the preceeding CDR.
- ;; Fortunatly, (car overlapped-tags) happens to be
+ ;; Loop over the search list to find the preceding CDR.
+ ;; Fortunately, (car overlapped-tags) happens to be
;; the first tag positionally.
(let ((tokstart (semantic-tag-start (car overlapped-tags))))
(while (and list-to-search
;; Feb 06 -
;; IDed when the first cache-list tag is after
;; our change, meaning there is nothing before
- ;; the chnge.
+ ;; the change.
((> (semantic-tag-start (car cache-list))
(semantic-overlay-end (car changes)))
(setq last-cond "Beginning of buffer")
))
(message "To Remove Middle Tag: (%s)"
(semantic-format-tag-name first)))
- ;; Find in the cache the preceeding tag
+ ;; Find in the cache the preceding tag
(while (and cachestart (not (eq first (car (cdr cachestart)))))
(setq cachestart (cdr cachestart)))
;; Find the last tag
;; generated-autoload-load-name: "semantic/edit"
;; End:
-;; arch-tag: 91c7fbf0-a418-4220-a90a-b58c74b450e3
;;; semantic/edit.el ends here