speed-keys access tweak

speed-keys access tweak

[Michael Ax]

[-- Attachment #1: Type: text/plain, Size: 444 bytes --]

With the (bolp) check snipped, org-speed-commands
work up to the end of org-outline-regexp.


   (defun org-speed-command-activate (keys)
     (when (or (looking-at org-outline-regexp)
               (and (functionp org-use-speed-commands)
                    (funcall org-use-speed-commands)))
       (cdr (assoc keys (append org-speed-commands-user
org-speed-commands-default)))))

Works for me. Could this be legit --- or safer?

Thanks. m


[-- Attachment #2: Type: text/html, Size: 997 bytes --]

Re: speed-keys access tweak

[Nicolas Goaziou]

Hello,

Michael Ax <michaelax@gmail.com> writes:

> With the (bolp) check snipped, org-speed-commands
> work up to the end of org-outline-regexp.
>
>   (defun org-speed-command-activate (keys)
>     (when (or (looking-at org-outline-regexp)
>               (and (functionp org-use-speed-commands)
>                    (funcall org-use-speed-commands)))
>       (cdr (assoc keys (append org-speed-commands-user
> org-speed-commands-default)))))
>
> Works for me. Could this be legit --- or safer?

It would also work in the non-desirable following case, where X is
point:

  *** Headline x*** Text

Besides, according the manual,

    Single keys can be made to execute commands when the cursor is at the
    beginning of a headline, i.e., before the first star.

Regards,

-- 
Nicolas Goaziou