(paren-blinking group): Doc fix.

(current-word): Ignore text properties.

diff --git a/lisp/simple.el b/lisp/simple.el
index 21b6815b3a84083d6dd3505d824e260799adc178..bcf03192b6afb16ce89edb880da29d302277a6a4 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2528,8 +2528,8 @@ or adjacent to a word."
                   (setq end (point))
                   (skip-syntax-backward "w_")
                   (setq start (point)))
-                (buffer-substring start end)))
-       (buffer-substring start end)))))
+                (buffer-substring-no-properties start end)))
+       (buffer-substring-no-properties start end)))))
 \f
 (defcustom fill-prefix nil
   "*String for filling to insert at front of new line, or nil for none.
@@ -2877,7 +2877,7 @@ in the mode line."
   (force-mode-line-update))
 
 (defgroup paren-blinking nil
-  "Blinking (un)matching of parens and expressions."
+  "Blinking matching of parens and expressions."
   :prefix "blink-matching-"
   :group 'paren-matching)