kiwanami

(defun toggle-let-astah-search-let ()
  (save-excursion
    (let ((point-min (point-min))
          (re "(\\(lexical-\\)?let\\(\\*\\)?")
          (continue t) pos ast ret)
      (while (and continue (/= (point-min) (point)))
        (goto-char (or (ignore-errors (scan-lists (point) -1 1))
                       (point-min)))
        (save-excursion
          (when (and (looking-at re) (re-search-forward re nil t))

tomoya

;; -*- mode: Emacs-Lisp; coding: utf-8-unix -*-
;;; migemo.el - Japanese incremental search trough dynamic pattern expansion

;; $Id: migemo.el.in,v 1.8 2006/09/22 08:43:33 shirai Exp $
;; Copyright (C) Satoru Takabayashi

;; Author: Satoru Takabayashi <[email protected]>
;; Keywords: 

;; This file is free software; you can redistribute it and/or modify