Minor mswindows patches

src/ChangeLog

+2000-02-20    <davby@ida.liu.se>
+
+	* lyskom-buttons.el (lyskom-view-url-netscape): Added more
+	possible values for window-system on MS-Windows systems (courtesy
+	RMS who does not want to associate "win" with MS-Windows and the
+	XEmacs team who thinks mswindows is prettier than w32 or win32.)
+
 2000-02-17  David Byers  <davby@sen2.ida.liu.se>
 
 	* aux-items.el: Encode aux-items that need to be encoded with the

src/lyskom-buttons.el

@@ -828,7 +828,9 @@ MANAGER is the URL manager that started Netscape.
 This function attempts to load the URL in a running Netscape, but failing
 that, starts a new one."
   (setq url (replace-in-string url "," "%2C"))
-  (let* ((url-string (if (eq window-system 'win32)
+  (let* ((url-string (if (or (eq window-system 'win32)
+                             (eq window-system 'mswindows)
+                             (eq window-system 'w32))
                          (list url)
                        (list "-remote"
                              (format "openUrl(%s)" url))))

src/swedish-strings.el

@@ -82,8 +82,8 @@
   (define-key lyskom-sv-edit-prefix (kbd "C-}")     'lyskom-sv-edit-review-prefix)
   (define-key lyskom-sv-edit-prefix (lyskom-keys 'C-) 'lyskom-sv-edit-review-prefix)
   (define-key lyskom-sv-edit-prefix (lyskom-keys 'C-) 'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "C-") 'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "C-") 'lyskom-sv-edit-review-prefix)
+  (define-key lyskom-sv-edit-prefix [(control )] 'lyskom-sv-edit-review-prefix)
+  (define-key lyskom-sv-edit-prefix [(control )] 'lyskom-sv-edit-review-prefix)
   (define-key lyskom-sv-edit-prefix (kbd "*")       'kom-button-press)
   (define-key lyskom-sv-edit-prefix (kbd "=")       'kom-menu-button-press)
   (define-key lyskom-sv-edit-prefix (kbd "C-i")     'lyskom-sv-edit-insert-prefix)
@@ -1780,10 +1780,10 @@ Du m
   (define-key lyskom-sv-mode-map (lyskom-keys ') 'lyskom-sv-change-prefix)
   (define-key lyskom-sv-mode-map (lyskom-keys ') 'lyskom-sv-review-prefix)
   (define-key lyskom-sv-mode-map (lyskom-keys ') 'lyskom-sv-review-prefix)
-  (define-key lyskom-sv-mode-map (kbd "") 'lyskom-sv-change-prefix)
-  (define-key lyskom-sv-mode-map (kbd "") 'lyskom-sv-change-prefix)
-  (define-key lyskom-sv-mode-map (kbd "") 'lyskom-sv-review-prefix)
-  (define-key lyskom-sv-mode-map (kbd "") 'lyskom-sv-review-prefix)
+  (define-key lyskom-sv-mode-map [] 'lyskom-sv-change-prefix)
+  (define-key lyskom-sv-mode-map [] 'lyskom-sv-change-prefix)
+  (define-key lyskom-sv-mode-map [] 'lyskom-sv-review-prefix)
+  (define-key lyskom-sv-mode-map [] 'lyskom-sv-review-prefix)
 
   (define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button2up)) 'kom-button-click)
   (define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button2)) 'kom-mouse-null)
@@ -1841,8 +1841,8 @@ Du m
   (define-key lyskom-sv-mode-map (kbd "l s") 'kom-membership)
   (define-key lyskom-sv-list-prefix (lyskom-keys ') 'kom-list-summary)
   (define-key lyskom-sv-list-prefix (lyskom-keys ') 'kom-list-summary)
-  (define-key lyskom-sv-list-prefix (kbd "") 'kom-list-summary)
-  (define-key lyskom-sv-list-prefix (kbd "") 'kom-list-summary)
+  (define-key lyskom-sv-list-prefix [] 'kom-list-summary)
+  (define-key lyskom-sv-list-prefix [] 'kom-list-summary)
   (define-key lyskom-sv-mode-map (kbd "l {") 'kom-list-summary)
   (define-key lyskom-sv-mode-map (kbd "l [") 'kom-list-summary)
   (define-key lyskom-sv-mode-map (kbd "l f") 'kom-list-filters)
@@ -1865,8 +1865,8 @@ Du m
   (define-key lyskom-sv-mode-map (kbd "f t") 'kom-move-text)
   (define-key lyskom-sv-filter-get-prefix (lyskom-keys ') 'kom-filter-subject)
   (define-key lyskom-sv-filter-get-prefix (lyskom-keys ') 'kom-filter-subject)
-  (define-key lyskom-sv-filter-get-prefix (kbd "") 'kom-filter-subject)
-  (define-key lyskom-sv-filter-get-prefix (kbd "") 'kom-filter-subject)
+  (define-key lyskom-sv-filter-get-prefix [] 'kom-filter-subject)
+  (define-key lyskom-sv-filter-get-prefix [] 'kom-filter-subject)
   (define-key lyskom-sv-mode-map (kbd "f {") 'kom-filter-subject)
   (define-key lyskom-sv-mode-map (kbd "f [") 'kom-filter-subject)
   (define-key lyskom-sv-mode-map (kbd "f f") 'kom-filter-author)
@@ -1916,8 +1916,8 @@ Du m
   (define-key lyskom-sv-mode-map (kbd "s s") 'kom-status-session)
   (define-key lyskom-sv-S-prefix (lyskom-keys ') 'kom-send-message)
   (define-key lyskom-sv-S-prefix (lyskom-keys ') 'kom-send-message)
-  (define-key lyskom-sv-S-prefix (kbd "") 'kom-send-message)
-  (define-key lyskom-sv-S-prefix (kbd "") 'kom-send-message)
+  (define-key lyskom-sv-S-prefix [] 'kom-send-message)
+  (define-key lyskom-sv-S-prefix [] 'kom-send-message)
   (define-key lyskom-sv-mode-map (kbd "s {") 'kom-send-message)
   (define-key lyskom-sv-mode-map (kbd "s [") 'kom-send-message)