Boguslaw Olszewski wrote:
>w emacsie? A moe kto ma jaki skrypcik
>ktry oprcz zmiany liter na mae automatycznie now lini zaczynaby dua liter? To
>byoby idealnie.
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))))))
-------------------------
Pozdrawiam.
Tomek Kowalski
