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

Minor bug fixes

parent 749fe7a9
1999-06-11 David Byers <davby@ida.liu.se>
* edit-text.el (lyskom-edit-insert-miscs): Fix parameter list for
lyskom-aux-item-definition-call (edit-insert print).
* swedish-strings.el (lyskom-message): Fix wording in xref-type.
* compatibility.el (kbd): Redefine kbd if it seems to be
misbehaving.
......
......@@ -200,8 +200,8 @@
"\n"
(lyskom-format
'aux-item-info
(aux-item->tag item)
(aux-item->aux-no item)
(aux-item->tag item)
(if def
(lyskom-aux-item-definition->name def)
"unknown")
......
......@@ -205,12 +205,12 @@ KEYS should be a string in the format used for saving keyboard macros
(setcdr tail new-parent))))
(defconst lyskom-gnu-keysym
'((button1 . "<mouse-1>")
(button2 . "<mouse-2>")
(button3 . "<mouse-3>")
(button1up . "<down-mouse-1>")
(button2up . "<down-mouse-2>")
(button3up . "<down-mouse-3>")))
'((button1 . "<down-mouse-1>")
(button2 . "<down-mouse-2>")
(button3 . "<down-mouse-3>")
(button1up . "<mouse-1>")
(button2up . "<mouse-2>")
(button3up . "<mouse-3>")))
(defconst lyskom-xemacs-keysym
'((button1 . "<button1>")
......
......@@ -212,7 +212,7 @@ footn-to -> Fotnot till text %d."
(lambda (item)
(let ((data (lyskom-aux-item-definition-call
item '(edit-insert print)
item nil lyskom-pers-no)))
item lyskom-pers-no)))
(when data
(lyskom-princ
(concat (lyskom-get-string 'aux-item-prefix) data "\n")
......
......@@ -69,7 +69,7 @@
(define-prefix-command 'lyskom-en-edit-aux-prefix)
(define-prefix-command 'lyskom-en-edit-add-prefix)
(define-key lyskom-en-edit-mode-map "\C-c" 'lyskom-en-edit-prefix)
(define-key lyskom-sv-edit-mode-map "\C-c\C-x" 'lyskom-en-edit-aux-prefix)
(define-key lyskom-en-edit-mode-map "\C-c\C-x" 'lyskom-en-edit-aux-prefix)
(define-key lyskom-en-edit-mode-map "\C-c?" 'lyskom-help)
(define-key lyskom-en-edit-mode-map "\C-c\C-r" 'lyskom-en-edit-review-prefix)
(define-key lyskom-en-edit-mode-map "\C-c\C-i" 'lyskom-en-edit-insert-prefix)
......
......@@ -70,6 +70,7 @@
(define-prefix-command 'lyskom-sv-edit-add-prefix)
(define-key lyskom-sv-edit-mode-map (kbd "C-c") 'lyskom-sv-edit-prefix)
(define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button2up)) 'kom-button-click-or-yank)
(define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button2)) 'kom-mouse-null)
(define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
(define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)
(define-key lyskom-sv-edit-prefix (kbd "C-x") 'lyskom-sv-edit-aux-prefix)
......@@ -104,9 +105,9 @@
(define-key lyskom-sv-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text)
(define-key lyskom-sv-edit-prefix (kbd "C-a") 'lyskom-sv-edit-add-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-a C-m") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a RET") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a <RET>") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a C-j") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a LFD") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a <LFD>") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a C-k") 'kom-edit-add-comment)
(define-key lyskom-sv-edit-prefix (kbd "C-a C-e") 'kom-edit-add-copy)
(define-key lyskom-sv-edit-prefix (kbd "C-a C-f") 'kom-edit-move-text)
......@@ -1197,7 +1198,7 @@ Inneh
(conference . "Mte")
(text . "Inlgg")
(xref-type . "Vad vill du referera till (text, mte eller person)? ")
(xref-type . "Vad vill du referera till (inlgg, mte eller person)? ")
(which-text-to-xref . "Lgg till referens till text nummer: ")
(which-text-to-xref-err . "Hittar inte texten. Lgg till referens till text nummer: ")
(which-pers-to-xref . "Lgg till referens till person: ")
......@@ -1599,6 +1600,7 @@ Inneh
(define-key lyskom-sv-mode-map (kbd "") '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)
(define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
(define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)
(define-key lyskom-sv-mode-map (kbd "*") 'kom-button-press)
......@@ -1627,11 +1629,11 @@ Inneh
(define-key lyskom-sv-mode-map (kbd "e") 'kom-set-unread)
(define-key lyskom-sv-mode-map (kbd "a") 'kom-extended-command)
(define-key lyskom-sv-mode-map (kbd "SPC") 'kom-next-command)
(define-key lyskom-sv-mode-map (kbd "LFD") 'kom-page-next-command)
(define-key lyskom-sv-mode-map (kbd "<SPC>") 'kom-next-command)
(define-key lyskom-sv-mode-map (kbd "<RET>") 'kom-line-next-command)
(define-key lyskom-sv-mode-map (kbd "<LFD>") 'kom-page-next-command)
(define-key lyskom-sv-mode-map (kbd "C-j") 'kom-page-next-command)
(define-key lyskom-sv-mode-map (kbd "j") 'kom-page-next-command)
(define-key lyskom-sv-mode-map (kbd "RET") 'kom-line-next-command)
(define-key lyskom-sv-mode-map (kbd "C-m") 'kom-line-next-command)
(define-key lyskom-sv-mode-map (kbd "?") 'describe-mode)
......@@ -1726,7 +1728,7 @@ Inneh
(define-key lyskom-sv-mode-map (kbd "s [") 'kom-send-message)
(define-key lyskom-sv-mode-map (kbd "r r") 'kom-fast-reply)
(define-key lyskom-sv-mode-map (kbd "r h") 'kom-fast-agree)
(define-key lyskom-sv-mode-map (kbd "r h") 'kom-agree)
;; Running in buffer
......@@ -1735,6 +1737,8 @@ Inneh
(define-key lyskom-sv-mode-map (kbd "s t") 'kom-save-text)
(define-key lyskom-sv-mode-map (kbd "C-?") 'scroll-down)
(define-key lyskom-sv-mode-map (kbd "<DEL>") 'scroll-down)
(define-key lyskom-sv-mode-map (kbd "<BS>") 'scroll-down)
)
......@@ -1793,6 +1797,7 @@ Inneh
(setq lyskom-sv-prioritize-mode-map (make-keymap))
(suppress-keymap lyskom-sv-prioritize-mode-map)
(define-key lyskom-sv-prioritize-mode-map (kbd (lyskom-keys 'button2up)) 'kom-button-click)
(define-key lyskom-sv-prioritize-mode-map (kbd (lyskom-keys 'button2)) 'kom-mouse-null)
(define-key lyskom-sv-prioritize-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
(define-key lyskom-sv-prioritize-mode-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)
(define-key lyskom-sv-prioritize-mode-map (kbd "*") 'kom-button-press)
......@@ -1857,10 +1862,10 @@ Inneh
(define-key lyskom-sv-customize-map (kbd "M-TAB") 'widget-backward)
(define-key lyskom-sv-customize-map (kbd "C-i") 'widget-forward)
(define-key lyskom-sv-customize-map (kbd "M-C-i") 'widget-backward)
(define-key lyskom-sv-customize-map (kbd "RET") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd "C-m") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd "C-j") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd "LFD") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd "<RET>") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd "<LFD>") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button2up)) 'widget-button-click)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button3up)) 'lyskom-widget-click)
(define-key lyskom-sv-customize-map (kbd "C-c C-c") 'lyskom-customize-save-and-quit)
......
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