Fix a bug in finding digest at point

If (thing-at-point 'word) returns nil, the call of `string-match' raises
an error.