aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-11-27 15:54:02 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-11-27 15:54:02 +0000
commitb48fb0b2761c6bb49edac98dbdf9c9e8452e490f (patch)
treef7ae6f6267fc783f3beca1c48420bc09c3fba153
parent461ae5af08778d8bbe934cbc66c98d48a2d21b59 (diff)
downloadellinika-b48fb0b2761c6bb49edac98dbdf9c9e8452e490f.tar.gz
ellinika-b48fb0b2761c6bb49edac98dbdf9c9e8452e490f.tar.bz2
(greek-input,ancient-greek-input): Minor fixes
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@274 941c8c0f-9102-463b-b60b-cd22ce0e6858
-rw-r--r--elisp/ellinika-mode.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/ellinika-mode.el b/elisp/ellinika-mode.el
index 9ca7d6d..6d4a997 100644
--- a/elisp/ellinika-mode.el
+++ b/elisp/ellinika-mode.el
@@ -26,20 +26,20 @@
(defun greek-input (arg)
(interactive "p")
(set-input-method
- (if (boundp 'greek-input-method)
+ (if (and (boundp 'greek-input-method) greek-input-method)
greek-input-method
'greek)))
(defun ancient-greek-input (arg)
(interactive "p")
(set-input-method
- (if (boundp 'ancient-greek-input-method)
+ (if (and (boundp 'ancient-greek-input-method) ancient-greek-input-method)
ancient-greek-input-method
'greek-ibycus4)))
(defun alt-input (arg)
(interactive "p")
- (if (boundp 'alternative-input-method)
+ (if (and (boundp 'alternative-input-method) alternative-input-method)
(set-input-method alternative-input-method)
(inactivate-input-method)))

Return to:

Send suggestions and report system problems to the System administrator.