Commit 9279ea0c authored by David Kågedal's avatar David Kågedal
Browse files

* startup.el (lyskom): Använd prefix-argumentet som startvärde på

lyskom-session-priority.
parent 9522dde8
Tue Aug 27 00:51:35 1996 David Kgedal <kg@infovav.se>
* startup.el (lyskom): Anvnd prefix-argumentet som startvrde p
lyskom-session-priority.
Sat Aug 24 23:54:55 1996 Per Cederqvist <ceder@lysator.liu.se>
* flags.el (lyskom-read-options-eval): Use equal instead of = so
......
......@@ -43,7 +43,7 @@
;;;###autoload
(defun lyskom (&optional host username password)
(defun lyskom (&optional host username password session-priority)
"Start a LysKOM session.
Optional arguments: HOST, USERNAME and PASSWORD.
......@@ -53,7 +53,10 @@ See lyskom-mode for details."
(or (getenv "KOMSERVER")
lyskom-default-server)))
nil
nil))
nil
(if current-prefix-arg
(prefix-numeric-value current-prefix-arg)
nil)))
(run-hooks 'lyskom-init-hook)
(setq username
......@@ -107,6 +110,8 @@ See lyskom-mode for details."
(setq proc (open-network-stream name buffer host port))
(switch-to-buffer buffer)
(lyskom-mode) ;Clearing lyskom-default...
(if session-priority
(setq lyskom-session-priority session-priority))
(setq lyskom-buffer buffer)
(setq lyskom-default-user-name username)
(setq lyskom-default-password password)
......
Markdown is supported
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