Énekes lennék és rock zenész, ragálnám halkan hogy radadam, s táncolva–lóbálva üvölteném, hogy púláp, izzadva ugrálnék és énekelném hadarva, hogy ha én egyszer énekes lennék és rock zenész.

Énekes lennék és rock zenész, ragálnám halkan hogy radadam, s táncolva–lóbálva üvölteném, hogy púláp, izzadva ugrálnék és énekelném hadarva, hogy ha én egyszer énekes lennék és rock zenész.

Játékteremben a múltkor, hogy a párszázas Django mellett öccázér a raverhard2-raverharder, válogatás korong a javából, két órányi eszeveszett UTAZÁS, hát öregem! A kilencvennégyben kiadott szett érdekessége, hogy egy dán szájtot leszámítva az INTERNET sem ismeri, én meg két tejér megvettem. Mondanám hogy te is, de hát nincs hol még TORRENTBEN sem, de oda adom hogy lásd, ha kéred!

[R]aving is not an »all the time thing« culture, as the hippies were and are. Raving is a temporary activity separate from the daily lives of ravers. Raving is a culture of escape. Escape from the real world. Reality does not exist at a rave. (The History of Rave Music)
Dzs-val tegnap a szigeten odajött hozzánk egy lány, hogy helónemzavarok, igazából tizenkét és tizennyolc közötti diákokat szereplőválogatáshoz, éshogy de ne haragudj, kilógunk a sorból. És az egészben az a kemény, hogy már lassan az sem igaz, hogy diák, vázé.
Tolok egy kanyart.
Azért kedves a Riótól, hogy az összes egynyári diszkószart elhozza ide a gödörbe.
Megvolt kazin? Csak azért kérdem, mert ha igen, akkor inkább napholdfeszteljen a szülinapomon!
I needed to unique lines in a buffer’s content—the same functionality that shell command uniq provides—but could not find the proper Elisp equivalent for it, though. Even EmacsWiki suggests using the shell command to delete duplicate lines. Here goes my implementation for Lisp programs, it may come in useful.
Updated: regex quoting fixed.
Updated again: Aaron S. Hawley pointed me a much cleaner duplicate lines solution.
(defun uniq-lines (beg end)
"Unique lines in region.
Called from a program, there are two arguments:
BEG and END (region to sort)."
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
(while (not (eobp))
(kill-line 1)
(yank)
(let ((next-line (point)))
(while
(re-search-forward
(format "^%s" (regexp-quote (car kill-ring))) nil t)
(replace-match "" nil nil))
(goto-char next-line))))))