/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.129 by abakic, Tue May 3 20:45:17 2005 UTC revision 1.130 by abakic, Wed May 4 22:51:19 2005 UTC
# Line 1092  as two values" Line 1092  as two values"
1092                (offset mark) (if forwardp                (offset mark) (if forwardp
1093                                  (- (offset mark2) (length string))                                  (- (offset mark2) (length string))
1094                                  (+ (offset mark2) (length string)))))                                  (+ (offset mark2) (length string)))))
1095          (display-message "~:[Failing ~;~]Isearch~:[ backward~;~]: ~A"
1096                           success forwardp string)
1097        (push (make-instance 'isearch-state        (push (make-instance 'isearch-state
1098                             :search-string string                             :search-string string
1099                             :search-mark mark                             :search-mark mark
# Line 1102  as two values" Line 1104  as two values"
1104          (beep)))))          (beep)))))
1105    
1106  (define-named-command com-isearch-mode-forward ()  (define-named-command com-isearch-mode-forward ()
1107      (display-message "Isearch: ")
1108    (isearch-command-loop (current-window) t))    (isearch-command-loop (current-window) t))
1109    
1110  (define-named-command com-isearch-mode-backward ()  (define-named-command com-isearch-mode-backward ()
1111      (display-message "Isearch backward: ")
1112    (isearch-command-loop (current-window) nil))    (isearch-command-loop (current-window) nil))
1113    
1114  (define-named-command com-isearch-append-char ()  (define-named-command com-isearch-append-char ()
# Line 1122  as two values" Line 1126  as two values"
1126  (define-named-command com-isearch-delete-char ()  (define-named-command com-isearch-delete-char ()
1127    (let* ((pane (current-window)))    (let* ((pane (current-window)))
1128      (cond ((null (second (isearch-states pane)))      (cond ((null (second (isearch-states pane)))
1129               (display-message "Isearch: ")
1130             (beep))             (beep))
1131            (t            (t
1132             (pop (isearch-states pane))             (pop (isearch-states pane))
# Line 1134  as two values" Line 1139  as two values"
1139                         (+ (offset (search-mark state))                         (+ (offset (search-mark state))
1140                            (length (search-string state)))                            (length (search-string state)))
1141                         (- (offset (search-mark state))                         (- (offset (search-mark state))
1142                            (length (search-string state))))))))))                            (length (search-string state)))))
1143                 (display-message "Isearch~:[ backward~;~]: ~A"
1144                                  (search-forward-p state)
1145                                  (search-string state)))))))
1146    
1147  (define-named-command com-isearch-forward ()  (define-named-command com-isearch-forward ()
1148    (let* ((pane (current-window))    (let* ((pane (current-window))

Legend:
Removed from v.1.129  
changed lines
  Added in v.1.130

  ViewVC Help
Powered by ViewVC 1.1.5