The documentation for `org-use-speed-commands' says:

> For example, to activate speed commands when the point is on any
> star at the beginning of the headline, you can do this:
>
>   (setq org-use-speed-commands
>       (lambda () (and (looking-at org-outline-regexp) (looking-back "^\**"))))

It seems one of the escaping backslash characters in "^\**" was eaten.

If that is correct, please review the attached patch.

Rudy
>From d538dcadc581b0c43e554c8300b9a60b053ce651 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rudolf=20Adamkovi=C4=8D?= <rud...@adamkovic.org>
Date: Sun, 17 Aug 2025 14:12:07 +0200
Subject: [PATCH] Fix eaten escaping backslash in the documentation

* lisp/org-keys.el (org-use-speed-commands): Add a missing backslash
to the documentation string of the custom variable.  Also, update
`setq' to `setopt' and re-indent for clarity.
---
 lisp/org-keys.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/org-keys.el b/lisp/org-keys.el
index f5f005727..98645b0be 100644
--- a/lisp/org-keys.el
+++ b/lisp/org-keys.el
@@ -690,8 +690,10 @@ (defcustom org-use-speed-commands nil
 For example, to activate speed commands when the point is on any
 star at the beginning of the headline, you can do this:
 
-  (setq org-use-speed-commands
-      (lambda () (and (looking-at org-outline-regexp) (looking-back \"^\\**\"))))"
+  (setopt org-use-speed-commands
+          (lambda ()
+            (and (looking-at org-outline-regexp)
+                 (looking-back \"^\\\\**\"))))"
   :group 'org-structure
   :type '(choice
 	  (const :tag "Never" nil)
-- 
2.39.5 (Apple Git-154)

-- 
"The introduction of suitable abstractions is our only mental aid to
organize and master complexity."
--- Edsger Wybe Dijkstra, 1930-2002

Rudolf Adamkovič <rud...@adamkovic.org> [he/him]
http://adamkovic.org

Reply via email to