/[emacs]/emacs/lisp/play/studly.el
ViewVC logotype

Diff of /emacs/lisp/play/studly.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by pj, Mon Aug 6 09:39:53 2001 UTC revision 1.14 by pj, Thu Nov 29 08:18:25 2001 UTC
# Line 18  Line 18 
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)
# Line 52  Line 52 
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)
# Line 60  Line 60 
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    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26