Mercurial > emacs
comparison lisp/hippie-exp.el @ 13225:76ce98050470
(he-transfer-case): Fix typo in prev change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 15 Oct 1995 08:54:13 +0000 |
| parents | 2b541cc4cd97 |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 13224:e19603a14c3f | 13225:76ce98050470 |
|---|---|
| 309 (defun he-transfer-case (from-str to-str) | 309 (defun he-transfer-case (from-str to-str) |
| 310 (cond ((string= from-str (substring to-str 0 (min (length from-str) | 310 (cond ((string= from-str (substring to-str 0 (min (length from-str) |
| 311 (length to-str)))) | 311 (length to-str)))) |
| 312 to-str) | 312 to-str) |
| 313 ((not (he-ordinary-case-p to-str)) | 313 ((not (he-ordinary-case-p to-str)) |
| 314 to-string) | 314 to-str) |
| 315 ((string= from-str (downcase from-str)) | 315 ((string= from-str (downcase from-str)) |
| 316 (downcase to-str)) | 316 (downcase to-str)) |
| 317 ((string= from-str (upcase from-str)) | 317 ((string= from-str (upcase from-str)) |
| 318 (upcase to-str)) | 318 (upcase to-str)) |
| 319 ((string= from-str (he-capitalize-first from-str)) | 319 ((string= from-str (he-capitalize-first from-str)) |