Bind kom-button-click-or-yank to different buttons depending on Emacs flavour.

91c9a892 · Joel Rosdahl · a6f0323e · 91c9a892 · 91c9a892 · 91c9a892
Commit 91c9a892 authored Jan 28, 2001 by Joel Rosdahl
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 4 deletions

src/ChangeLog src/ChangeLog +6 -0

src/english-strings.el src/english-strings.el +2 -2

src/swedish-strings.el src/swedish-strings.el +2 -2

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
 2001-01-28  Joel Rosdahl  <joel@rosdahl.net>

+	* english-strings.el (lyskom-en-edit-mode-map): Bind
+	kom-button-click-or-yank to different buttons depending on Emacs
+	flavour.
+
+	* swedish-strings.el (lyskom-sv-edit-mode-map): Ditto.
+
 	* view-text.el (lyskom-view-text): Show fast replies made by
 	author first.


--- a/src/english-strings.el
+++ b/src/english-strings.el
@@ -71,9 +71,9 @@
  (define-prefix-command 'lyskom-en-edit-insert-prefix)
  (define-prefix-command 'lyskom-en-edit-aux-prefix)
  (define-prefix-command 'lyskom-en-edit-add-prefix)
-  (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button2)) 'kom-button-click-or-yank)
+  (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2 'button2up))) 'kom-button-click-or-yank)
+  (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2up 'button2))) 'kom-mouse-null)
  (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
-  (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button2up)) 'kom-mouse-null)
  (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)
  (define-key lyskom-en-edit-mode-map (kbd "C-c")	'lyskom-en-edit-prefix)
  (define-key lyskom-en-edit-prefix (kbd "C-x") 'lyskom-en-edit-aux-prefix)

--- a/src/swedish-strings.el
+++ b/src/swedish-strings.el
@@ -70,8 +70,8 @@
  (define-prefix-command 'lyskom-sv-edit-aux-prefix)
  (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 'button2)) 'kom-button-click-or-yank)
-  (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button2up)) 'kom-mouse-null)
+  (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2 'button2up))) 'kom-button-click-or-yank)
+  (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2up '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)