# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1037258174 0
# Node ID 4033e7aa06a8106eaaeb432cc94cab204c38d96e
# Parent  830d1dc661e0a5ff55a9adb691e91bf80679c5e5
(find-tag-default): Copy text at point without properties.

diff -r 830d1dc661e0 -r 4033e7aa06a8 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Thu Nov 14 07:06:04 2002 +0000
+++ b/lisp/progmodes/etags.el	Thu Nov 14 07:16:14 2002 +0000
@@ -776,11 +776,12 @@
 			       (save-excursion (end-of-line) (point))
 			       t))
 	(progn (goto-char (match-end 0))
-	       (buffer-substring (point)
-				 (progn (forward-sexp -1)
-					(while (looking-at "\\s'")
-					  (forward-char 1))
-					(point))))
+	       (buffer-substring-no-properties
+                (point)
+                (progn (forward-sexp -1)
+                       (while (looking-at "\\s'")
+                         (forward-char 1))
+                       (point))))
       nil)))
 
 ;; Read a tag name from the minibuffer with defaulting and completion.