;;; srecode-tests.el --- Some tests for CEDET's srecode
-;; Copyright (C) 2008-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2008-2015 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
(mapc (lambda (T)
(when (slot-boundp T 'overlay)
- (error "Overlay did not clear off of of field %s"
+ (error "Overlay did not clear off of field %s"
(object-name T))))
fields)
(not (semantic-tag-of-class-p fcn-in 'function)))
(error "No tag of class 'function to insert comment for"))
- (let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex))
+ (let ((lextok (semantic-documentation-comment-preceding-tag fcn-in 'lex))
)
(when (not lextok)