mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Improve navigation to cl-defgeneric uses

Browse source 
* lisp/emacs-lisp/cl-generic.el
(cl--generic-find-defgeneric-regexp):
Use "symbol end" boundary (bug#71068).
This commit is contained in:
Dmitry Gutov 2024-05-26 05:56:14 +03:00
parent 7ca238c441
commit 2a12f39ffe
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-generic.el
View file

@ -1087,7 +1087,7 @@ MET-NAME is as returned by `cl--generic-load-hist-format'."
(re-search-forward base-re nil t)))) (re-search-forward base-re nil t))))
;; WORKAROUND: This can't be a defconst due to bug#21237. ;; 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 (with-eval-after-load 'find-func
(defvar find-function-regexp-alist) (defvar find-function-regexp-alist)