Changeset 14812 for trunk/source/cocoa-ide/hemlock/src/isearchcoms.lisp

Timestamp:

Jun 6, 2011, 6:22:07 PM (10 years ago)

Author:

svspire

Message:

Invert sense of arg in "Exchange Point and Mark" to be more like Fred.
Add "I-Search Yank Selection" plus (commented-out) binding to control-y
to provide Fred-like capability to select a string then control-s control-y
control-s to search for other instances of that string.
Left binding commented out for people who depend on current binding of control-y.

File:

• trunk/source/cocoa-ide/hemlock/src/isearchcoms.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/hemlock/src/isearchcoms.lisp

@@ -134 +134 @@
         "Internal variable containing current state of I-Search"
         :buffer buffer))
-    (push-new-buffer-mark (current-point))
+    (unless (region-active-p) ; We need the selection (if there is one) to stay put!
+      (push-new-buffer-mark (current-point)))
     (setf (value i-search-state) iss)
     (%i-search-message iss)))
@@ -140 +141 @@
 (defun end-isearch-mode ()
   (setf (buffer-minor-mode (current-buffer) "I-Search") nil))
+
+(defcommand "I-Search Yank Selection" (p)
+   "Pull string from current selection into search string."
+  (declare (ignore p))
+  (let* ((iss (current-isearch-state)))
+    (i-search-extend iss (region-to-string (region (current-mark) (current-point))))))
 
 (defun i-search-backup (iss)