Changeset 7551


Ignore:
Timestamp:
Oct 30, 2007, 3:01:29 PM (12 years ago)
Author:
jaj
Message:

Make control-w in incremental search correctly echo the search string. Fixes reopened bug#46.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/hemlock/src/searchcoms.lisp

    r7530 r7551  
    1 ;; -*- Log: hemlock.log; Package: Hemlock -*-
     1;;; -*- Log: hemlock.log; Package: Hemlock -*-
    22;;;
    33;;; **********************************************************************
     
    332332(defun %i-search-extend-string (string extension point trailer direction failure)
    333333  (when (interactive)
    334     (insert-string (buffer-point *echo-area-buffer*) string)
     334    (insert-string (buffer-point *echo-area-buffer*) extension)
    335335    (force-output *echo-area-stream*))
    336336  (let ((new-string (concatenate 'simple-string string extension)))
Note: See TracChangeset for help on using the changeset viewer.