diff options
author | Sean Allred <code@seanallred.com> | 2014-11-27 11:21:02 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-11-27 11:21:02 -0500 |
commit | 92ec323425057284de93c90b7ae0e8f5e96611b6 (patch) | |
tree | 65112f05a72c0ba4ac74076d1c53f6612deeb1cd /sx.el | |
parent | 9c2df708ac4dc62c34882b7978761cf1f73e063f (diff) | |
parent | 6848008b60938100d04cda96c093a24cb3370f9a (diff) |
Merge branch 'master' into issue-100
Diffstat (limited to 'sx.el')
-rw-r--r-- | sx.el | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -199,10 +199,13 @@ Return the result of BODY." result)) (defun sx--user-@name (user) - "Get the `display_name' of USER prepended with @." + "Get the `display_name' of USER prepended with @. +In order to correctly @mention the user, all whitespace is +removed from the display name before it is returned." (sx-assoc-let user (when (stringp .display_name) - (concat "@" .display_name)))) + (concat "@" (replace-regexp-in-string + "[[:space:]]" "" .display_name))))) ;;; Assoc-let |