Mercurial > emacs

changeset 48297:4033e7aa06a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-tag-default): Copy text at point without properties.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 14 Nov 2002 07:16:14 +0000
parents 830d1dc661e0
children 15718dea6555
files lisp/progmodes/etags.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.