section : cleanup trailing markdown- prefixes
This commit is contained in:
parent
fc1bb57572
commit
80e68edc54
1 changed files with 3 additions and 3 deletions
6
um.el
6
um.el
|
|
@ -398,7 +398,7 @@ A tag with a value of \"+\" is rendered as the descriptor portion of the filenam
|
||||||
(let ((origpos (point))
|
(let ((origpos (point))
|
||||||
(header (save-excursion
|
(header (save-excursion
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(search-forward markdown-header-end nil t)))
|
(search-forward um--header-end nil t)))
|
||||||
(pos (save-excursion
|
(pos (save-excursion
|
||||||
(search-forward um--section nil t direction)))
|
(search-forward um--section nil t direction)))
|
||||||
(endpos (match-end 0)))
|
(endpos (match-end 0)))
|
||||||
|
|
@ -472,9 +472,9 @@ A negative prefix argument moves it backward.
|
||||||
(let ((direction (if (< arg 0)
|
(let ((direction (if (< arg 0)
|
||||||
-1 1
|
-1 1
|
||||||
)))
|
)))
|
||||||
(markdown-mark-section)
|
(um-mark-section)
|
||||||
(kill-region nil nil t)
|
(kill-region nil nil t)
|
||||||
(markdown-goto-section direction)
|
(um--goto-section direction)
|
||||||
(yank)
|
(yank)
|
||||||
;; to get us back to the top of the section region
|
;; to get us back to the top of the section region
|
||||||
(set-mark-command 1)
|
(set-mark-command 1)
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue