Skip to content
Snippets Groups Projects
Commit 0da05360 authored by Yann Leboulanger's avatar Yann Leboulanger
Browse files

[dpapavas] Improvements for Emacs Gtk binding theme. Fixes #7254

parent e5d809af
No related branches found
No related tags found
No related merge requests found
...@@ -350,8 +350,10 @@ class MessageWindow(object): ...@@ -350,8 +350,10 @@ class MessageWindow(object):
# CTRL mask # CTRL mask
if modifier & gtk.gdk.CONTROL_MASK: if modifier & gtk.gdk.CONTROL_MASK:
if keyval == gtk.keysyms.h: # CTRL + h if keyval == gtk.keysyms.h: # CTRL + h
control._on_history_menuitem_activate() if gtk.settings_get_default().get_property(
return True 'gtk-key-theme-name') != 'Emacs':
control._on_history_menuitem_activate()
return True
elif control.type_id == message_control.TYPE_CHAT and \ elif control.type_id == message_control.TYPE_CHAT and \
keyval == gtk.keysyms.f: # CTRL + f keyval == gtk.keysyms.f: # CTRL + f
# CTRL + f moves cursor one char forward when user uses Emacs # CTRL + f moves cursor one char forward when user uses Emacs
...@@ -431,8 +433,10 @@ class MessageWindow(object): ...@@ -431,8 +433,10 @@ class MessageWindow(object):
control.show_emoticons_menu() control.show_emoticons_menu()
return True return True
elif keyval == gtk.keysyms.d: # ALT + D show actions menu elif keyval == gtk.keysyms.d: # ALT + D show actions menu
control.on_actions_button_clicked(control.actions_button) if gtk.settings_get_default().get_property(
return True 'gtk-key-theme-name') != 'Emacs':
control.on_actions_button_clicked(control.actions_button)
return True
elif control.type_id == message_control.TYPE_GC and \ elif control.type_id == message_control.TYPE_GC and \
keyval == gtk.keysyms.t: # ALT + t keyval == gtk.keysyms.t: # ALT + t
control._on_change_subject_menuitem_activate(None) control._on_change_subject_menuitem_activate(None)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment