Mercurial > emacs
comparison lisp/play/studly.el @ 658:7cbd4fcd8b0f
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sat, 30 May 1992 21:11:25 +0000 |
parents | fec3f9a1e3e5 |
children | 9b0e666dfdf8 |
comparison
equal
deleted
inserted
replaced
657:fec3f9a1e3e5 | 658:7cbd4fcd8b0f |
---|---|
1 ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx) | 1 ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx) |
2 | |
3 ;; Copyright (C) 1992 Free Software Foundation, Inc. | |
4 | |
5 ;; This file is part of GNU Emacs. | |
6 | |
7 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
8 ;; it under the terms of the GNU General Public License as published by | |
9 ;; the Free Software Foundation; either version 1, or (at your option) | |
10 ;; any later version. | |
11 | |
12 ;; GNU Emacs is distributed in the hope that it will be useful, | |
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 ;; GNU General Public License for more details. | |
16 | |
17 ;; You should have received a copy of the GNU General Public License | |
18 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
2 | 20 |
3 (defun studlify-region (begin end) | 21 (defun studlify-region (begin end) |
4 "Studlify-case the region" | 22 "Studlify-case the region" |
5 (interactive "*r") | 23 (interactive "*r") |
6 (save-excursion | 24 (save-excursion |