diff options
| -rw-r--r-- | lisp/emulation/edt.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |