procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make 'n'/'p' work again in shortdoc after previous changes

Browse source 
* lisp/emacs-lisp/shortdoc.el (shortdoc--goto-section): Adjust to
changes in how the text properties are inserted in 22a5482ab6
(bug#49605).  Also make into a regular function.
This commit is contained in:
Lars Ingebrigtsen 2021-07-17 15:41:33 +02:00
parent 109c27341e
commit 153c9d5ff4
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/emacs-lisp/shortdoc.el
View file

@ -1319,16 +1319,15 @@ Example:
(define-derived-mode shortdoc-mode special-mode "shortdoc"
"Mode for shortdoc.")
(defmacro shortdoc--goto-section (arg sym &optional reverse)
`(progn
(unless (natnump ,arg)
(setq ,arg 1))
(while (< 0 ,arg)
(,(if reverse
'text-property-search-backward
'text-property-search-forward)
,sym t)
(setq ,arg (1- ,arg)))))
(defun shortdoc--goto-section (arg sym &optional reverse)
(unless (natnump arg)
(setq arg 1))
(while (> arg 0)
(funcall
(if reverse 'text-property-search-backward
'text-property-search-forward)
sym nil t t)
(setq arg (1- arg))))
(defun shortdoc-next (&optional arg)
"Move cursor to the next function.