diff options
| author | Paul Nelson <ultrono@gmail.com> | 2025-04-02 15:19:19 +0200 |
|---|---|---|
| committer | Paul Nelson <ultrono@gmail.com> | 2025-04-02 15:19:19 +0200 |
| commit | 2fe456f9c15768250f545879fde62ade1b2af56a (patch) | |
| tree | 0a728c6e280f1bc3e3d5d02dee32250eab57983a | |
| parent | e8deea855f470a931354f4c8280fb2ecfb04c588 (diff) | |
Fix docstring and use when-let* in doc-follow--manage-advice
* doc-follow.el (doc-follow--manage-advice): Fix quote syntax in
docstring to use Emacs Lisp syntax highlighting properly. Use
when-let* instead of when-let.
| -rw-r--r-- | doc-follow.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/doc-follow.el b/doc-follow.el index 1951039..153d65a 100644 --- a/doc-follow.el +++ b/doc-follow.el @@ -118,11 +118,11 @@ by adding entries to this list.") windows)))))) (defun doc-follow--manage-advice (add-or-remove) - "Add or remove advice for all functions in `doc-follow-modes`. -ADD-OR-REMOVE should be either 'add or 'remove." + "Add or remove advice for all functions in `doc-follow-modes'. +ADD-OR-REMOVE should be either \\='add or \\='remove." (dolist (mode-entry doc-follow-modes) (dolist (action '(:goto :next :prev)) - (when-let ((func (plist-get (cdr mode-entry) action))) + (when-let* ((func (plist-get (cdr mode-entry) action))) (if (eq add-or-remove 'add) (advice-add func :after #'doc-follow--sync-pages) (advice-remove func #'doc-follow--sync-pages)))))) |