# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 864003685 0
# Node ID c662a8633943c24c186b1306a72af7b9c59f7e6c
# Parent  bc8774c7999bc8beb64c0c2816d8739f2f53cfc1
(dabbrev-expand, dabbrev--abbrev-at-point)
(dabbrev--search): Use buffer-substring-no-properties.

diff -r bc8774c7999b -r c662a8633943 lisp/dabbrev.el
--- a/lisp/dabbrev.el	Sun May 18 20:18:16 1997 +0000
+++ b/lisp/dabbrev.el	Mon May 19 01:01:25 1997 +0000
@@ -493,9 +493,8 @@
 		;; as our expansion this time.
 		(re-search-forward
 		 (concat "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)"))
-		(setq expansion
-		      (buffer-substring dabbrev--last-expansion-location
-					(point)))
+		(setq expansion (buffer-substring-no-properties
+				 dabbrev--last-expansion-location (point)))
 		(if dabbrev--last-case-pattern
 		    (setq expansion (upcase expansion)))
 
@@ -624,8 +623,8 @@
 	    (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))))
+    (buffer-substring-no-properties
+     dabbrev--last-abbrev-location (point))))
 	
 ;;; Initializes all global variables
 (defun dabbrev--reset-global-variables ()
@@ -884,8 +883,8 @@
 	      nil
 	    ;; We have a truly valid match.  Find the end.
 	    (re-search-forward pattern2)
-	    (setq found-string
-		  (buffer-substring (match-beginning 1) (match-end 1)))
+	    (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
@@ -900,8 +899,8 @@
 	(if found-string
 	    ;; Put it into `dabbrev--last-table'
 	    ;; and return it (either downcased, or as is).
-	    (let ((result
-		   (buffer-substring (match-beginning 0) (match-end 0))))
+	    (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))