From: Dmitry Gutov <dmitry@gutov.dev>
Date: Sun, 26 May 2024 02:56:14 +0000 (+0300)
Subject: Improve navigation to cl-defgeneric uses
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a20a5a9d7a84d68c4a920aae26f9713c3c1311c7;p=emacs.git

Improve navigation to cl-defgeneric uses

* lisp/emacs-lisp/cl-generic.el
(cl--generic-find-defgeneric-regexp):
Use "symbol end" boundary (bug#71068).

(cherry picked from commit 2a12f39ffe87b0b2885d9b7e92962eeed3c8029e)
---

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 5b497b1bd26..c08441ca37f 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -1086,7 +1086,7 @@ MET-NAME is as returned by `cl--generic-load-hist-format'."
      (re-search-forward base-re nil t))))
 
 ;; WORKAROUND: This can't be a defconst due to bug#21237.
-(defvar cl--generic-find-defgeneric-regexp "(\\(?:cl-\\)?defgeneric[ \t]+%s\\>")
+(defvar cl--generic-find-defgeneric-regexp "(\\(?:cl-\\)?defgeneric[ \t]+%s\\_>")
 
 (with-eval-after-load 'find-func
   (defvar find-function-regexp-alist)