From: Daniel McClanahan <danieldmcclanahan@gmail.com>
Date: Wed, 16 Sep 2015 07:02:35 +0000 (+0200)
Subject: Fix search argument in ‘lisp--el-match-keyword’ (Bug#21492) (Bug#21493)
X-Git-Tag: emacs-25.0.90~1224^2~107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55a9b2e620f4236bb491b6e1bf54c382510adb87;p=emacs.git

Fix search argument in ‘lisp--el-match-keyword’ (Bug#21492) (Bug#21493)

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

Copyright-paperwork-exempt: yes
---

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)