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

This commit is contained in:
Sebastien Barre 2008-03-11 10:54:40 -04:00
parent dc9245df6c
commit 5d2b90097d
1 changed files with 20 additions and 0 deletions

View File

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