18 |
|
|
19 |
;;;###autoload |
;;;###autoload |
20 |
(defun studlify-region (begin end) |
(defun studlify-region (begin end) |
21 |
"Studlify-case the region" |
"Studlify-case the region." |
22 |
(interactive "*r") |
(interactive "*r") |
23 |
(save-excursion |
(save-excursion |
24 |
(goto-char begin) |
(goto-char begin) |
52 |
|
|
53 |
;;;###autoload |
;;;###autoload |
54 |
(defun studlify-word (count) |
(defun studlify-word (count) |
55 |
"Studlify-case the current word, or COUNT words if given an argument" |
"Studlify-case the current word, or COUNT words if given an argument." |
56 |
(interactive "*p") |
(interactive "*p") |
57 |
(let ((begin (point)) end rb re) |
(let ((begin (point)) end rb re) |
58 |
(forward-word count) |
(forward-word count) |
60 |
(setq rb (min begin end) re (max begin end)) |
(setq rb (min begin end) re (max begin end)) |
61 |
(studlify-region rb re))) |
(studlify-region rb re))) |
62 |
|
|
63 |
|
;;;###autoload |
64 |
(defun studlify-buffer () |
(defun studlify-buffer () |
65 |
"Studlify-case the current buffer" |
"Studlify-case the current buffer." |
66 |
(interactive "*") |
(interactive "*") |
67 |
(studlify-region (point-min) (point-max))) |
(studlify-region (point-min) (point-max))) |
68 |
|
|