Dnia Sat, Apr 21, 2001 at 09:02:25PM +0900, Tomasz Kowalski napisał:
> Na przyklad:
>
> --------------------
> (defun upcase-downcase-fricasse ()
> (interactive)
> (downcase-region (point-min) (point-max))
> (goto-char (point-min))
> (if (not (equal (current-word) ""))
> (progn
> (setq slowo (upcase-initials (current-word)))
> (kill-word 1)
> (insert slowo)))
> (while (re-search-forward "\n" nil t)
> (if (equal (match-string 0) "\n")
> (if
> (not (equal (current-word) ""))
> (progn
> (setq slowo (upcase-initials (current-word)))
> (kill-word 1)
> (insert slowo))))))
> -------------------------
Sorki ale nie jestem "orlem" w emacsie. Moglby kolega krotko wyjasnic co to robi i jak
to uruchomic?
BoL
