Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
13b3db25
Commit
13b3db25
authored
Aug 16, 1991
by
Linus Tolke
Browse files
matchning av maskinnamn klarar wheat-chex
parent
473518c5
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
13b3db25
No preview for this file type
src/commands1.el
View file @
13b3db25
...
...
@@ -1560,8 +1560,9 @@ MY-SESSION-NO is the session number of the running session."
(
defun
lyskom-return-username
(
who-info
)
"Takes the username from the WHO-INFO and returns it on a better format."
(
let*
((
username
(
who-info->username
who-info
))
(
type
(
or
(
string-match
"\\(\\w+\\)%\\(.+\\)@\\(\\w+\\)"
username
)
(
string-match
"\\(\\w+\\)@\\(\\w+\\)"
username
))))
(
type
(
or
(
string-match
"\\([^%@.]+\\)%\\(.+\\)@\\([^%@.]+\\)"
username
)
(
string-match
"\\([^%@.]+\\)@\\([^%@.]+\\)"
username
))))
(
if
type
(
let
((
name
(
substring
username
0
(
match-end
1
)))
(
sent
(
if
(
match-beginning
3
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment