Merged my-upcase-downcase-word.el to basic-config.el

tototoshi · Feb 15, 2014 · ef3f993 · ef3f993
1 parent 04b4c12
commit ef3f993
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 9 deletions.
diff --git a/basic-config.el b/basic-config.el
@@ -178,3 +178,14 @@
     (end-of-line)
     (setq end (point))
     (delete-region beg (min (1+ end) (point-max)))))
+
+;; 直前の単語の大文字/小文字切り替え
+(defun upcase-previous-word ()
+  (interactive)
+  (upcase-word -1)
+  (backward-word))
+
+(defun downcase-previous-word ()
+  (interactive)
+  (downcase-word -1)
+  (backward-word))
diff --git a/my-upcase-downcase-word.el b/my-upcase-downcase-word.el