diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-11-27 15:54:02 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-11-27 15:54:02 +0000 |
commit | b48fb0b2761c6bb49edac98dbdf9c9e8452e490f (patch) | |
tree | f7ae6f6267fc783f3beca1c48420bc09c3fba153 | |
parent | 461ae5af08778d8bbe934cbc66c98d48a2d21b59 (diff) | |
download | ellinika-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.el | 6 |
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))) |