From 1ad5ab9cb75589648bbbc28bbe12d29e0e1162e8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Apr 1994 00:16:31 +0000 Subject: [PATCH] (case-flip-character): Make case test more general. --- lisp/emulation/edt.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index b6bc4071f8b..5ee298998cf 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -332,7 +332,8 @@ Accepts a prefix argument for the number of paragraphs." 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) -- 2.39.5