(require 'tools)

(defun cmd-more (args)
  (cmd-get-cwd)
  (cmd-send-shell "\n")
  (mapcar '(lambda (arg)
	     (if (> (length arg) 0)
		      (progn
			(if (not (eq ?/ (aref arg 0))) 
			    (setq arg (concat default-directory arg)))
			(find-file-other-window arg))))
	  (split args "[ \t\n]+"))
  nil)