From 1cba32311975229d7c13966c6b5723943cfbd519 Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Thu, 27 Aug 2009 10:41:09 +0000
Subject: fix für #168: neovars geht jetzt mit Emacs 23.1 – allerdings
 ungetestet auf früheren Emacs-Versionen. Sollten diese als ahk_class auch
 »Emacs« liefern, bräuchte man noch irgendwie eine zusätzliche
 Fallunterscheidung, oder man müsste auf alternative Wege zurückgreifen. Z.B.
 gibt es die Funktion ucs-insert
 [http://groups.google.com/group/de.comp.editoren/browse_thread/thread/7675e814012b0c4f/ed036fcbb645781b?lnk=raot]
 mit ähnlicher Funktion, die offenbar schon in früheren Emacs-Versionen
 existiert.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@2056 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/src/source/varsfunctions.ahk | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'windows/neo-vars/src/source/varsfunctions.ahk')

diff --git a/windows/neo-vars/src/source/varsfunctions.ahk b/windows/neo-vars/src/source/varsfunctions.ahk
index 0bbbf2a..5e6f8a3 100644
--- a/windows/neo-vars/src/source/varsfunctions.ahk
+++ b/windows/neo-vars/src/source/varsfunctions.ahk
@@ -364,6 +364,9 @@ SendUnicodeChar(charCode){
   {
     StringLower,charCode,charCode
     send % "^+u" . SubStr(charCode,3) . " "
+  } else IfWinActive,ahk_class Emacs
+  {
+    send % "^x8{Enter}" . SubStr(charCode,3) . "{Enter}"
   } else {
     static ki := "#"
     if (ki =="#") {
@@ -394,6 +397,9 @@ SendUnicodeCharDown(charCode){
   {
     StringLower,charCode,charCode
     send % "^+u" . SubStr(charCode,3) . " "
+  } else IfWinActive,ahk_class Emacs
+  {
+    send % "^x8{Enter}" . SubStr(charCode,3) . "{Enter}"
   } else {
     static ki := "#"
     if (ki =="#") {
@@ -416,6 +422,9 @@ SendUnicodeCharDown(charCode){
 
 SendUnicodeCharUp(charCode){
   IfWinActive,ahk_class gdkWindowToplevel
+  {
+    ; nothing
+  } else IfWinActive,ahk_class Emacs
   {
     ; nothing
   } else {
-- 
cgit v1.2.3