Commit 63a97942 authored by David Byers's avatar David Byers
Browse files

Keybinding MULE fixes

parent b3f950b5
1999-11-25 David Byers <davby@ida.liu.se>
* swedish-strings.el: Use lyskom-keys for all swedish chars in the
keymaps.
* compatibility.el (lyskom-gnu-keysym): Added swedish chars to the
list.
* commands1.el (lyskom-change-pres-or-motd-2): Fixed nesting bug
that caused the callback not to be called.
......
......@@ -208,7 +208,16 @@ KEYS should be a string in the format used for saving keyboard macros
(button3 . "<down-mouse-3>")
(button1up . "<mouse-1>")
(button2up . "<mouse-2>")
(button3up . "<mouse-3>")))
(button3up . "<mouse-3>")
( . [229])
( . [197])
(C- . [(control 229)])
(C- . [(control 197)])
( . [228])
( . [196])
( . [246])
( . [214])
))
(defconst lyskom-xemacs-keysym
'((button1 . "<button1>")
......@@ -216,7 +225,16 @@ KEYS should be a string in the format used for saving keyboard macros
(button3 . "<button3>")
(button1up . "<button1up>")
(button2up . "<button2up>")
(button3up . "<button3up>")))
(button3up . "<button3up>")
( . [(control aring)])
( . [(control Aring)])
( . [aring])
( . [Aring])
( . [adiaeresis])
( . [Adiaeresis])
( . [odiaeresis])
( . [Odiaeresis])
))
(defun lyskom-keys (sym)
......
......@@ -353,7 +353,7 @@ If successful then set the buffer not-modified. Else print a warning."
"Handles the call from where we have the text."
(if text ;+++ Other error handler
(let* ((lyskom-options-text (text->text-mass text))
(pointers (lyskom-read-options-eval-get-holerith))
(pointers (lyskom-read-options-eval-get-holerith t))
common-no elisp-no
(rest lyskom-options-text)
working
......@@ -362,7 +362,7 @@ If successful then set the buffer not-modified. Else print a warning."
word
(r 1))
(while (> (length lyskom-options-text) 2)
(setq word (lyskom-read-options-eval-get-holerith))
(setq word (lyskom-read-options-eval-get-holerith t))
(cond
((lyskom-string= word "common")
(setq common-no r))
......@@ -378,7 +378,7 @@ If successful then set the buffer not-modified. Else print a warning."
(nreverse lyskom-other-clients-user-areas))
(setq lyskom-options-text rest)
(while (> (length lyskom-options-text) 2)
(setq working (lyskom-read-options-eval-get-holerith))
(setq working (lyskom-read-options-eval-get-holerith t))
(cond
;; Note that common-no may be nil here, so the comparison
;; cannot be performed with '=.
......@@ -438,8 +438,8 @@ If successful then set the buffer not-modified. Else print a warning."
(setq lyskom-options-done t))
(defun lyskom-read-options-eval-get-holerith ()
(let ((coding lyskom-server-coding-system))
(defun lyskom-read-options-eval-get-holerith (&optional no-coding)
(let ((coding (if no-coding 'raw-text lyskom-server-coding-system)))
(while (string-match "\\s-" (substring lyskom-options-text 0 1))
(setq lyskom-options-text (substring lyskom-options-text 1)))
......
......@@ -80,10 +80,8 @@
(define-key lyskom-sv-edit-prefix (kbd "]") '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 (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 aring)] 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix [(control Aring)] '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 "*") '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)
......@@ -1747,6 +1745,8 @@ Du m
(defvar lyskom-sv-mode-map nil)
(lyskom-language-keymap lyskom-mode-map sv lyskom-sv-mode-map)
(defvar lyskom-sv-S-prefix nil)
(if lyskom-sv-mode-map
nil
(setq lyskom-sv-mode-map (make-keymap))
......@@ -1764,10 +1764,10 @@ Du m
(define-key lyskom-sv-mode-map (kbd "l") 'lyskom-sv-list-prefix)
(define-key lyskom-sv-mode-map (kbd "s") 'lyskom-sv-S-prefix)
(define-key lyskom-sv-mode-map (kbd "r") 'lyskom-sv-fast-reply-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-keys ') 'lyskom-sv-change-prefix)
(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-keys 'button2up)) 'kom-button-click)
(define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button2)) 'kom-mouse-null)
......@@ -1782,12 +1782,8 @@ Du m
(define-key lyskom-sv-mode-map (kbd "{") 'lyskom-sv-change-prefix) ; krullar
(define-key lyskom-sv-mode-map (kbd "[") 'lyskom-sv-change-prefix)
(define-key lyskom-sv-mode-map [adiaeresis] 'lyskom-sv-change-prefix)
(define-key lyskom-sv-mode-map [Adiaeresis] '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 [aring] 'lyskom-sv-review-prefix)
(define-key lyskom-sv-mode-map [Aring] 'lyskom-sv-review-prefix)
;;(define-key lyskom-sv-mode-map "vi" 'vilka)
......@@ -1902,9 +1898,8 @@ Du m
(define-key lyskom-sv-mode-map (kbd "s m") 'kom-status-conf)
(define-key lyskom-sv-mode-map (kbd "s p") 'kom-status-person)
(define-key lyskom-sv-mode-map (kbd "s s") 'kom-status-session)
(define-key lyskom-sv-mode-map (kbd "s ") 'kom-send-message)
(define-key lyskom-sv-mode-map [?s adiaeresis] 'kom-send-message)
(define-key lyskom-sv-mode-map [?s Adiaeresis] 'kom-send-message)
(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-mode-map (kbd "s {") 'kom-send-message)
(define-key lyskom-sv-mode-map (kbd "s [") 'kom-send-message)
......
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