From xemacs-m  Mon Jul  7 22:51:32 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 WAA14412
	for <xemacs-beta@xemacs.org>; Mon, 7 Jul 1997 22:51:30 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id UAA05098;
	Mon, 7 Jul 1997 20:50:53 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [PATCH] dabbrev used to insert read-only extents. (grrr.)
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
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Jul__7_20:50:52_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 07 Jul 1997 20:50:52 -0700
Message-ID: <87soxq2odf.fsf@bittersweet.inetarena.com>
Lines: 101
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta11) - "Stockholm"

--Multipart_Mon_Jul__7_20:50:52_1997-1
Content-Type: text/plain; charset=US-ASCII

 I think that things inserted from other buffers by dynabbrev should
be stripped of their string properties.


--Multipart_Mon_Jul__7_20:50:52_1997-1
Content-Type: text/plain; charset=US-ASCII

1997-07-07  Karl M. Hegbloom  <karlheg@inetarena.com>

	* packages/dabbrev.el: replace `buffer-substring' with
	`buffer-substring-no-properties' so that unwanted text
	properties (like read-only) are stripped from inserted
	dabbrev expansions.


--Multipart_Mon_Jul__7_20:50:52_1997-1
Content-Type: text/plain; charset=US-ASCII

*** lisp/packages/dabbrev.el~	Wed Apr  9 22:55:34 1997
--- lisp/packages/dabbrev.el	Mon Jul  7 20:42:52 1997
***************
*** 517,523 ****
  		(re-search-forward
  		 (concat "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)"))
  		(setq expansion
! 		      (buffer-substring dabbrev--last-expansion-location
  					(point)))
  		(if dabbrev--last-case-pattern
  		    (setq expansion (upcase expansion)))
--- 517,523 ----
  		(re-search-forward
  		 (concat "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)"))
  		(setq expansion
! 		      (buffer-substring-no-properties dabbrev--last-expansion-location
  					(point)))
  		(if dabbrev--last-case-pattern
  		    (setq expansion (upcase expansion)))
***************
*** 643,649 ****
  	    (error "No possible abbreviation preceding point"))))
      ;; Now find the beginning of that one.
      (dabbrev--goto-start-of-abbrev)
!     (buffer-substring dabbrev--last-abbrev-location
  		      (point))))
  	
  ;;; Initializes all global variables
--- 643,649 ----
  	    (error "No possible abbreviation preceding point"))))
      ;; Now find the beginning of that one.
      (dabbrev--goto-start-of-abbrev)
!     (buffer-substring-no-properties dabbrev--last-abbrev-location
  		      (point))))
  	
  ;;; Initializes all global variables
***************
*** 896,902 ****
  	    ;; We have a truly valid match.  Find the end.
  	    (re-search-forward pattern2)
  	    (setq found-string
! 		  (buffer-substring (match-beginning 1) (match-end 1)))
  	    (and ignore-case (setq found-string (downcase found-string)))
  	    ;; Ignore this match if it's already in the table.
  	    (if (dabbrev-filter-elements
--- 896,902 ----
  	    ;; We have a truly valid match.  Find the end.
  	    (re-search-forward pattern2)
  	    (setq found-string
! 		  (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
  	    (and ignore-case (setq found-string (downcase found-string)))
  	    ;; Ignore this match if it's already in the table.
  	    (if (dabbrev-filter-elements
***************
*** 912,918 ****
  	    ;; Put it into `dabbrev--last-table'
  	    ;; and return it (either downcased, or as is).
  	    (let ((result
! 		   (buffer-substring (match-beginning 0) (match-end 0))))
  	      (setq dabbrev--last-table
  		    (cons found-string dabbrev--last-table))
  	      (if (and ignore-case (eval dabbrev-case-replace))
--- 912,918 ----
  	    ;; Put it into `dabbrev--last-table'
  	    ;; and return it (either downcased, or as is).
  	    (let ((result
! 		   (buffer-substring-no-properties (match-beginning 0) (match-end 0))))
  	      (setq dabbrev--last-table
  		    (cons found-string dabbrev--last-table))
  	      (if (and ignore-case (eval dabbrev-case-replace))

--Multipart_Mon_Jul__7_20:50:52_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg+sig@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

--Multipart_Mon_Jul__7_20:50:52_1997-1--

