# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766196191 0
# Node ID 4de0f0648bb3e33eb7f4b4f310432f68219391b6
# Parent  25bdc55196ad91be0c8f90b5d912df8aa950b8b6
(case-flip-character): Make case test more general.

diff -r 25bdc55196ad -r 4de0f0648bb3 lisp/emulation/edt.el
--- a/lisp/emulation/edt.el	Tue Apr 12 22:50:09 1994 +0000
+++ b/lisp/emulation/edt.el	Wed Apr 13 00:16:31 1994 +0000
@@ -332,7 +332,8 @@
 Accepts a prefix argument of the number of characters to invert."
   (interactive "p")
   (while (> num 0)
-    (funcall (if (<= ?a (following-char))
+    (funcall (if (let ((ch (following-char)))
+		   (= ch (downcase ch)))
 		 'upcase-region 'downcase-region)
 	     (point) (1+ (point)))
     (forward-char 1)