From xemacs-m  Sun Jun 15 15:43:15 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA23837
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 15:43:11 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id NAA08691;
	Sun, 15 Jun 1997 13:43:25 -0700
Date: Sun, 15 Jun 1997 13:43:25 -0700
Message-Id: <199706152043.NAA08691@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: <xemacs-beta@xemacs.org>
Subject: [patch] ilisp/{completer,completer.new,completer.no-fun}.el
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D


8<----------------------------------------------------------------->8
*** completer.el.orig	Sun Jun 15 13:42:05 1997
--- completer.el	Sun Jun 15 13:42:35 1997
***************
*** 976,982 ****
        (let* ((end (save-excursion (skip-chars-forward "^ \t\n)]}\"") (point)))
  	     (beg (save-excursion
  		    (backward-sexp 1)
! 		    (while (= (char-syntax (following-char)) ?\')
  		      (forward-char 1))
  		    (point)))
  	     (pattern (buffer-substring beg end))
--- 976,982 ----
        (let* ((end (save-excursion (skip-chars-forward "^ \t\n)]}\"") (point)))
  	     (beg (save-excursion
  		    (backward-sexp 1)
! 		    (while (= (char-syntax (char-after (point))) ?\')
  		      (forward-char 1))
  		    (point)))
  	     (pattern (buffer-substring beg end))
*** completer.new.el.orig	Sun Jun 15 13:42:19 1997
--- completer.new.el	Sun Jun 15 13:42:43 1997
***************
*** 962,968 ****
        (let* ((end (save-excursion (skip-chars-forward "^ \t\n)]}\"") (point)))
  	     (beg (save-excursion
  		    (backward-sexp 1)
! 		    (while (= (char-syntax (following-char)) ?\')
  		      (forward-char 1))
  		    (point)))
  	     (pattern (buffer-substring beg end))
--- 962,968 ----
        (let* ((end (save-excursion (skip-chars-forward "^ \t\n)]}\"") (point)))
  	     (beg (save-excursion
  		    (backward-sexp 1)
! 		    (while (= (char-syntax (char-after (point))) ?\')
  		      (forward-char 1))
  		    (point)))
  	     (pattern (buffer-substring beg end))
*** completer.no-fun.el.orig	Sun Jun 15 13:42:27 1997
--- completer.no-fun.el	Sun Jun 15 13:42:52 1997
***************
*** 962,968 ****
        (let* ((end (save-excursion (skip-chars-forward "^ \t\n)]}\"") (point)))
  	     (beg (save-excursion
  		    (backward-sexp 1)
! 		    (while (= (char-syntax (following-char)) ?\')
  		      (forward-char 1))
  		    (point)))
  	     (pattern (buffer-substring beg end))
--- 962,968 ----
        (let* ((end (save-excursion (skip-chars-forward "^ \t\n)]}\"") (point)))
  	     (beg (save-excursion
  		    (backward-sexp 1)
! 		    (while (= (char-syntax (char-after (point))) ?\')
  		      (forward-char 1))
  		    (point)))
  	     (pattern (buffer-substring beg end))
8<----------------------------------------------------------------->8

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

