mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-14 07:40:00 +00:00
Make C-e not jump after the ellipsis of a folded headline
This commit is contained in:
parent
f24f2ea410
commit
e9196279f4
|
@ -1,3 +1,9 @@
|
||||||
|
2009-09-25 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org.el (org-special-ctrl-a/e): Improve documentation and
|
||||||
|
customize type.
|
||||||
|
(org-end-of-line): Don't jump to after the ellipsis.
|
||||||
|
|
||||||
2009-09-24 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-09-24 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* org.el (org-fontify-meta-lines-and-blocks): Treat lines with a
|
* org.el (org-fontify-meta-lines-and-blocks): Treat lines with a
|
||||||
|
|
18
lisp/org.el
18
lisp/org.el
|
@ -765,7 +765,9 @@ it to the beginning of the line.
|
||||||
|
|
||||||
`C-e' will jump to the end of the headline, ignoring the presence of tags
|
`C-e' will jump to the end of the headline, ignoring the presence of tags
|
||||||
in the headline. A second `C-e' will then jump to the true end of the
|
in the headline. A second `C-e' will then jump to the true end of the
|
||||||
line, after any tags.
|
line, after any tags. This also means that, when this variable is
|
||||||
|
non-nil, `C-e' also will never jump beyond the end of the heading of a
|
||||||
|
folded section, i.e. not after the ellipses.
|
||||||
|
|
||||||
When set to the symbol `reversed', the first `C-a' or `C-e' works normally,
|
When set to the symbol `reversed', the first `C-a' or `C-e' works normally,
|
||||||
going to the true line boundary first. Only a directly following, identical
|
going to the true line boundary first. Only a directly following, identical
|
||||||
|
@ -776,17 +778,17 @@ set separately."
|
||||||
:group 'org-edit-structure
|
:group 'org-edit-structure
|
||||||
:type '(choice
|
:type '(choice
|
||||||
(const :tag "off" nil)
|
(const :tag "off" nil)
|
||||||
(const :tag "after stars/bullet and before tags first" t)
|
(const :tag "on: after stars/bullet and before tags first" t)
|
||||||
(const :tag "true line boundary first" reversed)
|
(const :tag "reversed: true line boundary first" reversed)
|
||||||
(cons :tag "Set C-a and C-e separately"
|
(cons :tag "Set C-a and C-e separately"
|
||||||
(choice :tag "Special C-a"
|
(choice :tag "Special C-a"
|
||||||
(const :tag "off" nil)
|
(const :tag "off" nil)
|
||||||
(const :tag "after stars/bullet first" t)
|
(const :tag "on: after stars/bullet first" t)
|
||||||
(const :tag "before stars/bullet first" reversed))
|
(const :tag "reversed: before stars/bullet first" reversed))
|
||||||
(choice :tag "Special C-e"
|
(choice :tag "Special C-e"
|
||||||
(const :tag "off" nil)
|
(const :tag "off" nil)
|
||||||
(const :tag "before tags first" t)
|
(const :tag "on: before tags first" t)
|
||||||
(const :tag "after tags first" reversed)))))
|
(const :tag "reversed: after tags first" reversed)))))
|
||||||
(if (fboundp 'defvaralias)
|
(if (fboundp 'defvaralias)
|
||||||
(defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e))
|
(defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e))
|
||||||
|
|
||||||
|
@ -16612,7 +16614,7 @@ beyond the end of the headline."
|
||||||
(t 'end-of-line)))
|
(t 'end-of-line)))
|
||||||
(let ((pos (point)))
|
(let ((pos (point)))
|
||||||
(beginning-of-line 1)
|
(beginning-of-line 1)
|
||||||
(if (looking-at (org-re ".*?\\([ \t]*\\)\\(:[[:alnum:]_@:]+:\\)[ \t]*$"))
|
(if (looking-at (org-re ".*?\\(?:\\([ \t]*\\)\\(:[[:alnum:]_@:]+:\\)?[ \t]*\\)?$"))
|
||||||
(if (eq special t)
|
(if (eq special t)
|
||||||
(if (or (< pos (match-beginning 1))
|
(if (or (< pos (match-beginning 1))
|
||||||
(= pos (match-end 0)))
|
(= pos (match-end 0)))
|
||||||
|
|
Loading…
Reference in a new issue