Changeset 19146 for lang/elisp

Show
Ignore:
Timestamp:
09/11/08 00:46:16 (2 months ago)
Author:
imakado
Message:
 
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/elisp/anything-c-moccur/trunk/anything-c-moccur.el

    r19141 r19146  
    102102 
    103103;;; variables 
    104 (defvar anything-c-moccur-version 0.3) 
     104(defvar anything-c-moccur-version 0.31) 
    105105(defvar anything-c-moccur-anything-invoking-flag nil) 
    106106(defvar anything-c-moccur-anything-initial-pattern "") 
    … …  
    327327  (or (string-match (rx bol (+ space) eol) re) 
    328328      (string-equal "" re) 
    329       (string-match (rx bol (* (any "<" ">" "\\" "_" "`")) eol) re))) 
     329      (string-match (rx (or bol (+ space)) (+ (any "<" ">" "\\" "_" "`")) (or eol (+ space ))) re))) 
    330330 
    331331(defun anything-c-moccur-moccur-search (regexp arg buffers) 
    … …  
    702702      (expect t 
    703703        (when (anything-c-moccur-bad-regexp-p "\\_>") t)) 
    704          
     704      (expect t 
     705        (when (anything-c-moccur-bad-regexp-p "\\_> ") t)) 
     706      (expect t 
     707        (when (anything-c-moccur-bad-regexp-p " \\_>") t)) 
     708      (expect t 
     709        (when (anything-c-moccur-bad-regexp-p " \\_> ") t)) 
     710      (expect t 
     711        (when (anything-c-moccur-bad-regexp-p "g \\_> ") t)) 
     712      (expect t 
     713        (when (anything-c-moccur-bad-regexp-p "g \\_>") t)) 
     714      (expect t 
     715        (when (anything-c-moccur-bad-regexp-p " \\_> g") t)) 
     716      (expect nil 
     717        (when (anything-c-moccur-bad-regexp-p "g\\_> ") t)) 
     718      (expect nil 
     719        (when (anything-c-moccur-bad-regexp-p " g\\_>") t)) 
    705720        ))) 
    706721