diff options
| author | Pavel Janík | 2001-11-29 08:18:25 +0000 |
|---|---|---|
| committer | Pavel Janík | 2001-11-29 08:18:25 +0000 |
| commit | d97e62d2176d4711bbf5dcc6992ec0b33828773e (patch) | |
| tree | 382a4b6e5e455c5042d1adad77b1d351a7a4ebe0 | |
| parent | b37017c6dddadaba74c21443576d8c414effa5f8 (diff) | |
| download | emacs-d97e62d2176d4711bbf5dcc6992ec0b33828773e.tar.gz emacs-d97e62d2176d4711bbf5dcc6992ec0b33828773e.zip | |
(studlify-word, studlify-region, studlify-buffer): Fix doc-string.
(studlify-buffer): Add autoload cookie.
| -rw-r--r-- | lisp/play/studly.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/play/studly.el b/lisp/play/studly.el index 26d2a41bc0c..474f969ae08 100644 --- a/lisp/play/studly.el +++ b/lisp/play/studly.el | |||
| @@ -18,7 +18,7 @@ | |||
| 18 | 18 | ||
| 19 | ;;;###autoload | 19 | ;;;###autoload |
| 20 | (defun studlify-region (begin end) | 20 | (defun studlify-region (begin end) |
| 21 | "Studlify-case the region" | 21 | "Studlify-case the region." |
| 22 | (interactive "*r") | 22 | (interactive "*r") |
| 23 | (save-excursion | 23 | (save-excursion |
| 24 | (goto-char begin) | 24 | (goto-char begin) |
| @@ -52,7 +52,7 @@ | |||
| 52 | 52 | ||
| 53 | ;;;###autoload | 53 | ;;;###autoload |
| 54 | (defun studlify-word (count) | 54 | (defun studlify-word (count) |
| 55 | "Studlify-case the current word, or COUNT words if given an argument" | 55 | "Studlify-case the current word, or COUNT words if given an argument." |
| 56 | (interactive "*p") | 56 | (interactive "*p") |
| 57 | (let ((begin (point)) end rb re) | 57 | (let ((begin (point)) end rb re) |
| 58 | (forward-word count) | 58 | (forward-word count) |
| @@ -60,8 +60,9 @@ | |||
| 60 | (setq rb (min begin end) re (max begin end)) | 60 | (setq rb (min begin end) re (max begin end)) |
| 61 | (studlify-region rb re))) | 61 | (studlify-region rb re))) |
| 62 | 62 | ||
| 63 | ;;;###autoload | ||
| 63 | (defun studlify-buffer () | 64 | (defun studlify-buffer () |
| 64 | "Studlify-case the current buffer" | 65 | "Studlify-case the current buffer." |
| 65 | (interactive "*") | 66 | (interactive "*") |
| 66 | (studlify-region (point-min) (point-max))) | 67 | (studlify-region (point-min) (point-max))) |
| 67 | 68 | ||