aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPavel Janík2001-11-29 08:18:25 +0000
committerPavel Janík2001-11-29 08:18:25 +0000
commitd97e62d2176d4711bbf5dcc6992ec0b33828773e (patch)
tree382a4b6e5e455c5042d1adad77b1d351a7a4ebe0
parentb37017c6dddadaba74c21443576d8c414effa5f8 (diff)
downloademacs-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.el7
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