changeset 26079:bc18b027a049

(add-abbrev, inverse-add-abbrev, expand-region-abbrevs): Remove properties from buffer text.
author Dave Love <fx@gnu.org>
date Mon, 18 Oct 1999 21:28:04 +0000
parents 1dfff19134ab
children 2962fd9e7eae
files lisp/abbrev.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/abbrev.el	Mon Oct 18 21:20:22 1999 +0000
+++ b/lisp/abbrev.el	Mon Oct 18 21:28:04 1999 +0000
@@ -225,7 +225,7 @@
 
 (defun add-abbrev (table type arg)
   (let ((exp (and (>= arg 0)
-		  (buffer-substring
+		  (buffer-substring-no-properties
 		   (point)
 		   (if (= arg 0) (mark)
 		     (save-excursion (forward-word (- arg)) (point))))))
@@ -266,8 +266,8 @@
   (let (name nameloc exp)
     (save-excursion
      (forward-word (- arg))
-     (setq name (buffer-substring (point) (progn (forward-word 1)
-					       (setq nameloc (point))))))
+     (setq name (buffer-substring-no-properties
+		 (point) (progn (forward-word 1) (setq nameloc (point))))))
     (set-text-properties 0 (length name) nil name)
     (setq exp (read-string (format "%s expansion for \"%s\": "
 				   type name) nil nil nil t))
@@ -306,7 +306,7 @@
 			 (<= (setq pnt (point)) (- (point-max) lim))))
 	(if (abbrev-expansion
 	     (setq string
-		   (buffer-substring
+		   (buffer-substring-no-properties
 		    (save-excursion (forward-word -1) (point))
 		    pnt)))
 	    (if (or noquery (y-or-n-p (format "Expand `%s'? " string)))