(let ((alias (progn
(set-buffer balloon-help-buffer)
(goto-char (point-min))
- (when (re-search-forward "\\(^.*\\) (" (eolp) t)
+ (when (re-search-forward "\\(^.*\\) (" (point-at-eol) t)
(substring (match-string 1) 1)))))
(when alias
(emchat-buddy-show-xface-in-balloon alias)))))