From 55a9b2e620f4236bb491b6e1bf54c382510adb87 Mon Sep 17 00:00:00 2001
From: Daniel McClanahan <danieldmcclanahan@gmail.com>
Date: Wed, 16 Sep 2015 09:02:35 +0200
Subject: [PATCH] =?utf8?q?Fix=20search=20argument=20in=20=E2=80=98lisp--el?=
 =?utf8?q?-match-keyword=E2=80=99=20(Bug#21492)=20(Bug#21493)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

* lisp/emacs-lisp/lisp-mode.el (lisp--el-match-keyword): Fix
search argument.  (Bug#21492) (Bug#21493)

Copyright-paperwork-exempt: yes
---
 lisp/emacs-lisp/lisp-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 56c2966656c..fed91b34a88 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -224,7 +224,8 @@
   ;; FIXME: Move to elisp-mode.el.
   (catch 'found
     (while (re-search-forward
-            (eval-when-compile "(\\(" lisp-mode-symbol-regexp "\\)\\_>")
+            (eval-when-compile
+              (concat "(\\(" lisp-mode-symbol-regexp "\\)\\_>"))
             limit t)
       (let ((sym (intern-soft (match-string 1))))
 	(when (or (special-form-p sym)
-- 
2.39.2