Commit e1a17fd9 authored by David Byers's avatar David Byers
Browse files

Fixed bug 1511

Detailed changes:
> 	Fix bug 1511:
> 	* commands1.el (lyskom-combine-username): Downcase hostnames.
parent 7cadfd4e
2005-02-14 David Byers <>
Fix bug 1511:
* commands1.el (lyskom-combine-username): Downcase hostnames.
Fixed bug 1520:
* lyskom-buttons.el (lyskom-button-menu): Pass filter to functions
that build menus.
......@@ -3240,9 +3240,10 @@ prefix argument \(C-u -), list all sessions."
(defun lyskom-combine-username (username identname hostname)
"Return a description of from where a user is logged in."
;; Ignore ident info for now
(setq hostname (downcase hostname))
(if (string-match "\\(.*\\)%\\(.*\\)" username)
(let ((user (substring username (match-beginning 1) (match-end 1)))
(uhost (substring username (match-beginning 2) (match-end 2))))
(uhost (downcase (substring username (match-beginning 2) (match-end 2)))))
(if (lyskom-string= uhost hostname)
(concat user "@" hostname)
(concat username "@" hostname)))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment