gnu-emacs-sources
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

CODE SNIPPET: toggle char at point.


From: Sandip Chitale
Subject: CODE SNIPPET: toggle char at point.
Date: 6 Jul 2004 10:18:38 -0700

(defun toggle-case (arg)
  "Toggle char after point if it is a uppercase or a lower case char,
else simply insert the char."
  (interactive "*P")     
  (let  ((ch (char-after (point))))
    (cond ((not ch) (self-insert-command (or arg 1)) t)
          ((/= (upcase ch) ch) (upcase-region (point) (1+ (point)))
(forward-char 1) t)
          ((/= (downcase ch) ch) (downcase-region (point) (1+ (point)))
(forward-char 1)t)
          (t (self-insert-command (or arg 1))))))

;;; vi like keybinding
(global-set-key [(~)]                       'toggle-case)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]