From a20a5a9d7a84d68c4a920aae26f9713c3c1311c7 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sun, 26 May 2024 05:56:14 +0300 Subject: [PATCH] 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) --- lisp/emacs-lisp/cl-generic.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5