Browse Source

ENH: add simple function to convert all CMake commands to lowercase

Sebastien Barre 18 years ago
parent
commit
5d2b90097d
1 changed files with 20 additions and 0 deletions
  1. 20 0
      Docs/cmake-mode.el

+ 20 - 0
Docs/cmake-mode.el

@@ -152,6 +152,26 @@
 
 ;------------------------------------------------------------------------------
 
+;;
+;; Helper functions for buffer
+;;
+(defun unscreamify-cmake-buffer ()
+  "Convert all CMake commands to lowercase in buffer."
+  (interactive)
+  (setq save-point (point))
+  (goto-char (point-min))
+  (while (re-search-forward "^\\([ \t]*\\)\\(\\w+\\)\\([ \t]*(\\)" nil t)
+    (replace-match 
+     (concat 
+      (match-string 1) 
+      (downcase (match-string 2)) 
+      (match-string 3)) 
+     t))
+  (goto-char save-point)
+  )
+
+;------------------------------------------------------------------------------
+
 ;;
 ;; Keyword highlighting regex-to-face map.
 ;;