🚀 go-pugleaf

oops, sorry, i forgot the support functions.  btw, i didn't write this
code, but i don't know who did.  it's been in my .emacs for years...

(defun csh-re-to-regexp (reg)
  "Convert a C-shell regular expression to a true r.e."
  (concat "^" (mapconcat 'convert-csh-re-to-regexp reg "") "$"))

(defun convert-csh-re-to-regexp (ch)
  "Convert a C-shell wildcard to its regular expression counterpart"
  (cond ((equal ch ?.) "\\.")
        ((equal ch ?*) ".*")
        ((equal ch ??) ".")
        (t (char-to-string ch))))

;;; should derive default RE from mode-alist
(defun find-regexp-files (prefix dir reg)
  "Prompt for a directory and a regular expression.  Open 
buffers for all the files matching that regular expression in the
directory.  The default RE is *.{c,h,y,l,sml,sig}."
  (interactive "p\nDDirectory: \nsRegexp: ")
  (if (equal reg "")
      (setq reg ".*\\.\\(c\\|h\\|y\\|l\\|sml\\|sig\\)$")
    (if (equal prefix 1)
	(setq reg (csh-re-to-regexp reg))))
  (setq files (directory-files dir t reg))
  (if (not files)
      (message "no matching files"))
  (while files
    (find-file (car files))
    (setq files (cdr files))))
-- 
				orgasm
Scott Draves			nitrous
spot@cs.cmu.edu			death