(setq list-to-search nil)))
;; Search list is nil.
))
- ;; If we have a search list, lets go. Otherwise nothing.
+ ;; If we have a search list, let's go. Otherwise nothing.
(while (and list-to-search (not found))
(if (cdr list-to-search)
;; We end when the start of the CDR is after the end of our
;; There are no tags left, and all tags originally
;; found are encompassed by the change. Setup our list
;; from the cache
- (setq list-to-search semantic--buffer-cache);; We have a tag ouside the list. Check for
+ (setq list-to-search semantic--buffer-cache);; We have a tag outside the list. Check for
;; We know we have a parent because it would
;; completely cover the change. A tag can only
;; do that if it is a parent after we get here.
;; 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
;; We want to take some set of changes, and group them
;; together into a small change group. One change forces
;; a reparse of a larger region (the size of some set of
- ;; tags it encompases.) It may contain several tags.
+ ;; tags it encompasses.) It may contain several tags.
;; That region may have other changes in it (several small
;; changes in one function, for example.)
;; Optimize for the simple cases here, but try to handle
;; 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