X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Finfo.el;h=fdbd74cf2ab00857b496de470ba2288f996e76cf;hp=eb62c6f4d1214db33aa379ad576c8042f6dd5134;hb=b267e52aa03bee2c488c8a78824d96cf2d9a6ccc;hpb=669565bfdc5d704dfb1d5ac1a0ec01fb3615a1ae

diff --git a/lisp/info.el b/lisp/info.el
index eb62c6f..fdbd74c 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -308,6 +308,10 @@
 ;; contain none or when it has become older than info files in the same
 ;; directory.
 
+;; Modified 1998-09-23 by Didier Verna <verna@inf.enst.fr>
+;;
+;; Use the new macro `with-search-caps-disable-folding'
+
 ;; Code:
 
 (defgroup info nil
@@ -1571,7 +1575,7 @@ annotation for any node of any file.  (See `a' and `x' commands.)"
   (if (equal regexp "")
       (setq regexp Info-last-search)
     (setq Info-last-search regexp))
-  (with-caps-disable-folding regexp
+  (with-search-caps-disable-folding regexp t
     (let ((found ())
           (onode Info-current-node)
           (ofile Info-current-file)