uniquify-all-lines-region ( start end ) (Defun uniquify-toate-liniile de-regiune (sfârşitul start)
   "Găsiţi linii dublu exemplar, în regiune la început la sfârşit menţinându prima apariţie."
   ) (Interactive "* r")
   (Salvaţi-excursie
     ( ( end ( copy-marker end ) ) ) (Fie ((sfârşitul anului (copie de poziţie sfârşitul anului)))
       (În timp ce
           (Progn
             (Du-te-char start)
             (.* \\ ) \n \\ ( \\ (.* \n \\ )* \\ ) \\ 1 \n " end t ) ) (Re-search-forward "^ \ \ (.* \ \) \ n \ \ (\ \ (.* \ n \ \) * \ \) \ \ 1 \ n" sfârşitul anului t))
         1 \n \\ 2" ) ) ) ) ) (Înlocuiţi-meci "\ \ 1 \ n \ \ 2 ")))))

 uniquify-all-lines-buffer ( ) (Defun uniquify-toate-liniile de-tampon ()
   "Şterge linii duplicat într-un tampon şi să păstreze prima apariţie."
   ) (Interactive "*")
   point- min ) ( point- max ) ) ) (Uniquify-toate-liniile de-regiune (punct-min) (punctul-max))) 

  kill-whole-line nil (Defun ucide-întregului-line zero
   "Care ucide întreaga linie de pe cursorul se află, şi locuri 
  cursor cât mai aproape posibil de pozitia sa anterioara. "
   (Interactive)
   (Progn
     ( ( y ( current-column ) ) (Fie ((y (actual-coloana))
	   progn ( beginning-of-line ) ( point ) ) ) (A (progn (începutul de linie) (litera)))
	   progn ( forward-line 1 ) ( point ) ) ) ) (B (progn (forward-line 1) (litera))))
       (Kill-regiunea AB)
       (Mutare-la-coloana y)))) 

  ;; Scamele PHP verifica
 ;; Presupune "php" este în $ PATH
 php-lint ( ) (Defun php-tifon ()
   "Efectuează o PHP scame-verifica pe fişierul curent."
   (Interactive)
   concat "php -l " ( buffer-file- name ) ) ) ) (Shell-comandă (concat "php-l" (buffer-file-name))))