[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 153c9d5: Make 'n'/'p' work again in shortdoc after previous chang
From: |
Lars Ingebrigtsen |
Subject: |
master 153c9d5: Make 'n'/'p' work again in shortdoc after previous changes |
Date: |
Sat, 17 Jul 2021 09:41:42 -0400 (EDT) |
branch: master
commit 153c9d5ff4576b74ff9f9589f620c58d590862e8
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make 'n'/'p' work again in shortdoc after previous changes
* 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.
---
lisp/emacs-lisp/shortdoc.el | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 3a32f63..4beba1d 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 153c9d5: Make 'n'/'p' work again in shortdoc after previous changes,
Lars Ingebrigtsen <=