From b48fb0b2761c6bb49edac98dbdf9c9e8452e490f Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sat, 27 Nov 2004 15:54:02 +0000 Subject: (greek-input,ancient-greek-input): Minor fixes git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@274 941c8c0f-9102-463b-b60b-cd22ce0e6858 --- elisp/ellinika-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'elisp') 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))) -- cgit v1.2.1