From xemacs-m  Sun Jun 15 15:46:48 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 PAA23867
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 15:46:46 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id NAA08707;
	Sun, 15 Jun 1997 13:47:01 -0700
Date: Sun, 15 Jun 1997 13:47:01 -0700
Message-Id: <199706152047.NAA08707@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: <xemacs-beta@xemacs.org>
Subject: [patch] iso/iso-acc.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
*** iso-acc.el.orig	Sun Jun 15 13:45:07 1997
--- iso-acc.el	Sun Jun 15 13:46:13 1997
***************
*** 430,437 ****
        (forward-char 1)
        (let (entry)
  	(while (< (point) end)
! 	  (if (and (memq (preceding-char) iso-accents-enable)
! 		   (setq entry (cdr (assq (following-char) (assq (preceding-char) iso-accents-list)))))
  	      (progn
  		(forward-char -1)
  		(delete-char 2)
--- 430,440 ----
        (forward-char 1)
        (let (entry)
  	(while (< (point) end)
! 	  (if (and (memq (char-before (point)) iso-accents-enable)
! 		   (setq entry (cdr (assq
! 				     (char-after (point))
! 				     (assq (char-before (point))
! 					   iso-accents-list)))))
  	      (progn
  		(forward-char -1)
  		(delete-char 2)
***************
*** 459,466 ****
        (goto-char start)
        (let (entry)
  	(while (< (point) end)
! 	  (if (and (> (following-char) 127)
! 		   (setq entry (iso-accent-rassoc-unit (following-char)
  						       iso-accents-list)))
  	      (progn
  		(delete-char 1)
--- 462,469 ----
        (goto-char start)
        (let (entry)
  	(while (< (point) end)
! 	  (if (and (> (char-after (point)) 127)
! 		   (setq entry (iso-accent-rassoc-unit (char-after (point))
  						       iso-accents-list)))
  	      (progn
  		(delete-char 1)
***************
*** 478,485 ****
        (goto-char start)
        (let (entry)
  	(while (< (point) end)
! 	  (if (and (> (following-char) 127)
! 		   (setq entry (iso-accent-rassoc-unit (following-char)
  						       iso-accents-list)))
  	      (progn
  		(delete-char 1)
--- 481,488 ----
        (goto-char start)
        (let (entry)
  	(while (< (point) end)
! 	  (if (and (> (char-after (point)) 127)
! 		   (setq entry (iso-accent-rassoc-unit (char-after (point))
  						       iso-accents-list)))
  	      (progn
  		(delete-char 1)
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

