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

1 files changed, 20 insertions, 0 deletions

diff --git a/Docs/cmake-mode.el b/Docs/cmake-mode.el
index e582573677..624740ef18 100644
--- a/Docs/cmake-mode.el
+++ b/Docs/cmake-mode.el
@@ -153,6 +153,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.
 ;;
 (defconst cmake-font-lock-keywords