diff options
| author | Roy Crihfield <rscrihf@gmail.com> | 2015-03-06 20:08:12 (GMT) |
|---|---|---|
| committer | Brad King <brad.king@kitware.com> | 2015-07-27 13:39:42 (GMT) |
| commit | 7987d9857e581b5266d98d79aa71a8f45611f203 (patch) | |
| tree | 2dc51e6869e159e18ca044497554d48e81bf2eca | |
| parent | 63de609ef147e665ebd8d7622f580a74a417287b (diff) | |
| download | CMake-7987d9857e581b5266d98d79aa71a8f45611f203.zip CMake-7987d9857e581b5266d98d79aa71a8f45611f203.tar.gz CMake-7987d9857e581b5266d98d79aa71a8f45611f203.tar.bz2 | |
cmake-mode.el: Rename function to be consistent
unscreamify-cmake-buffer => cmake-unscreamify-buffer
While at it, wrap the operation in (save-excursion).
| -rw-r--r-- | Auxiliary/cmake-mode.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/Auxiliary/cmake-mode.el b/Auxiliary/cmake-mode.el index fe4a4c6..ea2415d 100644 --- a/Auxiliary/cmake-mode.el +++ b/Auxiliary/cmake-mode.el @@ -172,17 +172,19 @@ the indentation. Otherwise it retains the same position on the line" ;; ;; Helper functions for buffer ;; -(defun unscreamify-cmake-buffer () +(defun cmake-unscreamify-buffer () "Convert all CMake commands to lowercase in buffer." (interactive) - (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)) + (save-excursion + (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)) + ) ) ;------------------------------------------------------------------------------ |