[xyzzy:04264] isearch

[nobu.nokada@xxxxxxxxxxxx]

はじめまして、中田といいます。

  早速でなんですが、できれば isearch はこんな風に動いてくれると嬉
しいのですが。


--- isearch.l.orig	Tue Jan 11 21:25:17 2000
+++ isearch.l	Sun Mar  5 13:56:43 2000
@@ -165,11 +165,17 @@
 		(forward-word)
 		(point)))
 	 (next-word (buffer-substring start end)))
+    (if (eq *case-fold-search* :smart)
+	(unless (string-match "[A-Z]" *isearch-current-string*)
+	  (setq next-word (string-downcase next-word))))
     (isearch-push-status)
     (isearch-scanner (concat *isearch-current-string* next-word) nil)))
 
 (defun isearch-yank ()
   (let ((x (current-kill 0)))
+    (if (eq *case-fold-search* :smart)
+	(unless (string-match "[A-Z]" *isearch-current-string*)
+	  (setq x (string-downcase x))))
     (isearch-push-status)
     (isearch-scanner (apply #'concat *isearch-current-string* x) nil)))