(cond
((null search-type)
(pop-to-buffer (current-buffer))
- (error "gnatinspect did not return other item"))
+ (error "gnatinspect did not return other item; refresh?"))
((and
(string-equal search-type "declaration")
(when (null result)
(pop-to-buffer (current-buffer))
- (error "gnatinspect did not return other item"))
+ (error "gnatinspect did not return other item; refresh?"))
(message "parsing result ... done")
result)))
(when (null result)
(pop-to-buffer (current-buffer))
- (error "gnatinspect did not return other item"))
+ (error "gnatinspect did not return other item; refresh?"))
(message "parsing result ... done")
result)))