🚀 go-pugleaf

In article <9012172047.AA28399@life.ai.mit.edu> wilber@homxb.att.com writes:

   When C-w is used inside of an incremental search, it copies the word
   after the point into the search string buffer.  That works fine for
   isearch-forward.  But for isearch-backward the point moves to the the
   wrong place after C-w for it to work in a useful way.

I'm including my fix.  It also contains a fix to make C-w quote the word
it's grabbing when in isearch-*-regexp.

-- 
Enjoy,

Joe Wells <jbw@bu.edu>
----------------------------------------------------------------------
*** /usr/local/emacs/lisp/isearch.el	Tue Dec  8 18:11:03 1987
--- isearch.el	Wed Dec 19 21:56:00 1990
***************
*** 77,81 ****
  	(found-start nil)
  	(opoint (point))
! 	(inhibit-quit t))  ;Prevent ^G from quitting immediately.
      (isearch-push-state)
      (save-window-excursion
--- 77,82 ----
  	(found-start nil)
  	(opoint (point))
! 	(inhibit-quit t)  ;Prevent ^G from quitting immediately.
! 	(length-added nil))
      (isearch-push-state)
      (save-window-excursion
***************
*** 108,112 ****
  			 ?\C-g
  		       (read-char))))
! 	   (setq quit-flag nil adjusted nil)
  	   ;; Meta character means exit search.
  	   (cond ((and (>= char 128)
--- 109,113 ----
  			 ?\C-g
  		       (read-char))))
! 	   (setq quit-flag nil adjusted nil length-added 0)
  	   ;; Meta character means exit search.
  	   (cond ((and (>= char 128)
***************
*** 176,180 ****
--- 177,184 ----
  					    (forward-word 1))
  					  (point))))))
+ 			   (if regexp
+ 			       (setq word (regexp-quote word)))
  			   (setq search-string (concat search-string word)
+ 				 length-added (length word)
  				 search-message
  				   (concat search-message
***************
*** 200,203 ****
--- 204,208 ----
  			  (setq search-string (concat search-string
  						      (char-to-string char))
+ 				length-added 1
  				search-message (concat search-message
  						       (text-char-description char)))))
***************
*** 243,248 ****
  		      ;; Not regexp, not reverse, or no match at point.
  		      (if (and other-end (not adjusted))
! 			  (goto-char (if forward other-end
! 				       (min opoint barrier (1+ other-end)))))
  		      (isearch-search)))
  		  (isearch-push-state))))))
--- 248,258 ----
  		      ;; Not regexp, not reverse, or no match at point.
  		      (if (and other-end (not adjusted))
! 			  (goto-char
! 			   (if forward
! 			       other-end
! 			     ;;(min opoint barrier
! 			     (+ other-end length-added)
! 			     ;;)
! 			     )))
  		      (isearch-search)))
  		  (isearch-push-state))))))