LINUX.ORG.RU
Форум — Development  

loop в elisp


0

0 

А loop вообще стандартизирован в elisp, а то у меня столько пакаджей не
 разберёшь. Будет такое вот работать во всех emacs'ах:

(defun rails-root2 ()
  "Return RAILS_ROOT"
  (loop for curdir = default-directory
	then (concat curdir "../") and
	max = 10 then (- max 1)
	while (> max 0)
	when (file-exists-p (concat curdir "config/environment.rb"))
	return curdir))
★★★
← popen и fseek
сколько раз Motorolla лажанулась? →

Если все эти имаксы используют одни и те же cl*.el, то будет :)

hbee ★★★★
()

> (defun rails-root2 () > "Return RAILS_ROOT" > (loop for curdir = default-directory > then (concat curdir "../") and > max = 10 then (- max 1) > while (> max 0) > when (file-exists-p (concat curdir "config/environment.rb")) > return curdir))

Мде...

Zmacs ☆
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← popen и fseek
Development
сколько раз Motorolla лажанулась? →