Mercurial > emacs
changeset 6841:4de0f0648bb3
(case-flip-character): Make case test more general.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Apr 1994 00:16:31 +0000 |
| parents | 25bdc55196ad |
| children | a5d8611cbad8 |
| files | lisp/emulation/edt.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)