awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(emacs-lisp): failure to look up module docs

Browse Source 
Incorrect regex would cause (search-failed "\* ...$") errors, and would
fail to unfold the target entries if it was hidden.
This commit is contained in:
Henrik Lissner
2023-09-12 17:00:28 +02:00
parent 0f0fade3c0
commit 8e671f494d
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/lang/emacs-lisp/autoload.el
View File

@ -102,15 +102,18 @@ if it's callable, `apropos' otherwise."
(cond ((when-let (module (+emacs-lisp--module-at-point)) (cond ((when-let (module (+emacs-lisp--module-at-point))
(doom/help-modules (car module) (cadr module)) (doom/help-modules (car module) (cadr module))
(when (eq major-mode 'org-mode) (when (eq major-mode 'org-mode)
(goto-char (point-min))
(with-demoted-errors "%s" (with-demoted-errors "%s"
(re-search-forward (re-search-forward
(if (caddr module) (if (caddr module)
"\\* Module flags$" "^\\*+ Module flags"
"\\* Description$")) "^\\* Description"))
(when (caddr module) (when (caddr module)
(re-search-forward (format "=\\%s=" (caddr module)) (re-search-forward (format "=\\%s=" (caddr module))
nil t)) nil t))
(when (invisible-p (point)) (when (memq (get-char-property (line-end-position)
'invisible)
'(outline org-fold-outline))
(org-show-hidden-entry)))) (org-show-hidden-entry))))
'deferred)) 'deferred))
(thing (helpful-symbol (intern thing))) (thing (helpful-symbol (intern thing)))