uniquify-all-lines-region ( start end ) (DEFUN uniquify-все-линии-регион (начало конца)
   "Поиск дубликатов линий в регионе начала до конца поддержания первого вхождения".
   ) (Interactive "* г")
   (Save-экскурсия
     ( ( end ( copy-marker end ) ) ) (Пусть ((конец (копия-маркер конца)))
       (В то время
           (PROGN
             (Goto-символ начала)
             (.* \\ ) \n \\ ( \\ (.* \n \\ )* \\ ) \\ 1 \n " end t ) ) (Re-поиск-вперед "^ \ \ (.* \ \) \ п \ \ (\ \ (.* \ п \ \) * \ \) \ \ 1 \ п" конец т))
         1 \n \\ 2" ) ) ) ) ) (Замените матча "\ \ 1 \ п \ \ 2 ")))))

 uniquify-all-lines-buffer ( ) (DEFUN uniquify-все-линии-буфера ()
   "Удалить повторяющиеся строки в буфере и сохранить первое вхождение".
   ) (Interactive "*")
   point- min ) ( point- max ) ) ) (Uniquify-все-линии-регион (точка-мин) (точка-макс))) 

  kill-whole-line nil (DEFUN убить-все строки ноль
   "Какие убивает целые линии на курсор расположен, и места 
  курсор как можно ближе к своей прежней позиции ".
   (Interactive)
   (PROGN
     ( ( y ( current-column ) ) (Пусть ((у (текущего столбца))
	   progn ( beginning-of-line ) ( point ) ) ) ((PROGN (на начало строки) (точка)))
	   progn ( forward-line 1 ) ( point ) ) ) ) (В (PROGN (вперед-линия 1) (точка))))
       (Kill-регион-Ь)
       (Move к колонке у)))) 

  ;; PHP-нибудь вкусненькое проверить
 ;; Предполагает «PHP» находится в $ PATH
 php-lint ( ) (DEFUN PHP-нибудь вкусненькое ()
   "Выполнение PHP-нибудь вкусненькое проверки текущего файла."
   (Interactive)
   concat "php -l " ( buffer-file- name ) ) ) ) (Shell-команда (CONCAT "PHP-л" (буфер-имя-файла))))