[climacs-cvs] CVS update: climacs/gui.lisp

[Aleksandar Bakic]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv2401

Modified Files:
	gui.lisp 
Log Message:
Contribution by John Q. Splittist: Minibuffer feedback for the Isearch fns.

Date: Thu May  5 00:51:20 2005
Author: abakic

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.129 climacs/gui.lisp:1.130
--- climacs/gui.lisp:1.129	Tue May  3 22:45:17 2005
+++ climacs/gui.lisp	Thu May  5 00:51:19 2005
@@ -1092,6 +1092,8 @@
               (offset mark) (if forwardp
                                 (- (offset mark2) (length string))
                                 (+ (offset mark2) (length string)))))
+      (display-message "~:[Failing ~;~]Isearch~:[ backward~;~]: ~A"
+		       success forwardp string)
       (push (make-instance 'isearch-state
                            :search-string string
                            :search-mark mark
@@ -1102,9 +1104,11 @@
         (beep)))))
 
 (define-named-command com-isearch-mode-forward ()
+  (display-message "Isearch: ")
   (isearch-command-loop (current-window) t))
 
 (define-named-command com-isearch-mode-backward ()
+  (display-message "Isearch backward: ")
   (isearch-command-loop (current-window) nil))
 
 (define-named-command com-isearch-append-char ()
@@ -1122,6 +1126,7 @@
 (define-named-command com-isearch-delete-char ()
   (let* ((pane (current-window)))
     (cond ((null (second (isearch-states pane)))
+	   (display-message "Isearch: ")
            (beep))
           (t
            (pop (isearch-states pane))
@@ -1134,7 +1139,10 @@
                        (+ (offset (search-mark state))
                           (length (search-string state)))
                        (- (offset (search-mark state))
-                          (length (search-string state))))))))))
+                          (length (search-string state)))))
+	     (display-message "Isearch~:[ backward~;~]: ~A"
+			      (search-forward-p state)
+			      (search-string state)))))))
 
 (define-named-command com-isearch-forward ()
   (let* ((pane (current-window))