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 @@ -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. ;;