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

lyskom-session-priority.

src/ChangeLog

+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

src/startup.el

@@ -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)