summaryrefslogtreecommitdiff
path: root/Docs
diff options
context:
space:
mode:
authorSebastien Barre <sebastien.barre@kitware.com>2008-03-11 10:54:40 -0400
committerSebastien Barre <sebastien.barre@kitware.com>2008-03-11 10:54:40 -0400
commit5d2b90097dda987fafb08f7e97a86cf9fab0225f (patch)
treef77617e07401d0e2b0fcd0941536bd949a858846 /Docs
parentdc9245df6cbe4ed6211387f6090b531ce4414263 (diff)
downloadcmake-5d2b90097dda987fafb08f7e97a86cf9fab0225f.tar.gz
ENH: add simple function to convert all CMake commands to lowercase
Diffstat (limited to 'Docs')
-rw-r--r--Docs/cmake-mode.el20
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