anchor.diff:  (define-key *isearch-keymap* "C-r" 'isearch-prev)
   (define-key *isearch-keymap* "C-y" 'isearch-yank)
   (define-key *global-keymap* "M-r" 'isearch-replace-highlight)
  +(define-key *global-keymap* "M-s M-n" 'isearch-next-highlight)
  +(define-key *global-keymap* "M-s n" 'isearch-next-highlight)
  +(define-key *global-keymap* "M-s M-p" 'isearch-prev-highlight)
  +(define-key *global-keymap* "M-s p" 'isearch-prev-highlight)
   
   (defun isearch-update-display ()
     (isearch-update-minibuffer)
  
positive.code:           (insert-string p string)))
        (isearch-reset-buffer))))
  
  
  (defvar *replace-before-string* nil)
  
negative.code:   (setq *isearch-prompt* prompt)
    (setq *isearch-string* initial-string)
    (setq *isearch-search-function* search-func)
    (setq *isearch-start-point* (copy-point (current-point) :temporary))
    (setq *isearch-search-forward-function* search-forward-function)
    (setq *isearch-search-backward-function* search-backward-function)
  