Commit 1ad5ab9c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(case-flip-character): Make case test more general.

parent 56d52e7e
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment