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))