;; This file:
;;   http://anggtwu.net/elisp/seen2.el.html
;;   http://anggtwu.net/elisp/seen2.el
;;          (find-angg "elisp/seen2.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "elisp/seen2.el"))
;; (find-angg ".emacs" "seen")

(setq seen ())

(defun seen-stop-at (arg)
  (equal (format "%s" arg) (getenv "SEEN_STOP_AT"))

(defun seen (arg)
  (interactive)
  (setq seen2 (cons arg seen2))
  (if (equal arg "stop")
      (throw 'seen2-stoped-at arg)))

(seen2 1)
(seen2 2)
(seen2 3)
(seen2 "stop")
(seen2 4)
(seen2 5)


'("This is a test block:"


  (catch 'seen2-stop

    (load "~/elisp/seen2.el")

    )

seen2



"--")








;; Local Variables:
;; coding:  utf-8-unix
;; End: